SOS motore ricerca e paginazione

[carlo55]

Aiutatemi per favore altrimenti sclero di brutto ho creato un motore di ricerca (comuni d'Italia che mi è

costato tanta fatica nella ricostruzione con aggiornamento alle ultime province e stradario) per province

e/o comuni tutto funziona, ma applicando la paginazione visualizzo solo la prima pagina le successive mi

vanno in errore:

Errore di sintassi (operatore mancante) nell'espressione della query 'id_PROV ='. /test/varie_PROVE/prova_cerca_cap/esito_cerca_2_1.asp, line 71

'id_PROV è numerico
lo scritto è il seguente:

<%
' Pagina di redirect in caso di errori
back = "errori.asp"
' dichiaro le variabili che contengono i dati
DIM prov, comune
'variabile per provincia
var_prov = Request.Form("prov")
'variabile per comune
var_comu =Replace(Request.Form(trim("comune")),"'","''")

If var_prov="Provincia" and Len(var_comu)=0 Then
Response.Redirect(back & "?err=100")
Response.End
End If
'************************************************* ************************************************** ****
' DEFINISCO IL NUMERO DI RECORD DA VISUALIZZARE PER OGNI PAGINA
quanti = 30


' RECUPERO IL NUMERO DI PAGINA CORRENTE E CONTROLLO CHE NON SIA INFERIORE A 1
pag = Request.QueryString("pag")
If IsNumeric(pag) = False Or pag < 1 Then pag = 1

' IMPOSTO UN CONTATORE
contatore = 0
'************************************************* ************************************************** ****
Set RS_cerca = Server.CreateObject("ADODB.Recordset")
sql_cerca="select * from IT_03_comuni"

if var_prov<>"Provincia" and len(var_comu) = 0 then
SQL_cerca = SQL_cerca & " where id_PROV = " & var_prov & " ORDER BY COM_nome "
end if
if len(var_comu) > 0 and var_prov="Provincia" then
SQL_cerca = SQL_cerca & " where COM_nome like '%" & var_comu & "%' ORDER BY COM_nome "
end if
if var_prov<> "Provincia" and len(var_comu) > 0 then
SQL_cerca = SQL_cerca & " where id_PROV = " & var_prov &" and COM_nome like '%" & var_comu & "%' ORDER BY

COM_nome"
end if

RS_cerca.Open SQL_cerca, Connes, 1, 3

if RS_cerca.eof then

Response.Redirect(back & "?err=101")
Response.End

else
%>
<div align="center">
<table border="0" width="700" cellspacing="0" cellpadding="0" style="font-family: Verdana; font-size: 10pt">
<tr>
<td height="10" colspan="2"></td>
</tr>
<tr>
<td colspan="2"><p align="center"><font face="Verdana" size="2" color="#000080">ESITO DELLA

RICERCA</font></td>
</tr>
<tr>
<td height="5" colspan="2"></td>
</tr>
<tr>
<td colspan="2">PARAMETRI DI RICERCA:</td>
</tr>
<tr>
<td width="280">PROVINCIA:
<%
if var_prov<>"Provincia" then
SQL_prov = "SELECT id_PROV, PROV_nome from IT_02_province where

id_PROV= " & RS_cerca("id_PROV")
Set rs_prov = Connes.Execute(SQL_prov)
while not rs_prov.eof
record_NOME=rs_prov("PROV_nome")
response.write record_NOME
%>
</td>
<%
rs_prov.movenext
wend
chiudo(rs_prov)
end if
%>
<td width="420">COMUNE:
<%
if Len(var_comu)<>0 then
response.write var_comu
end if
%>
</td>
</tr>
<tr>
<td colspan="2"></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" width="700" cellspacing="0" style="font-family: Verdana; font-size: 10pt">
<tr>
<td height="10"></td>
</tr>
<tr>
<td bgcolor="#E8F404">
<table border="0" width="100%" cellspacing="0" bgcolor="#E1E1E1" cellpadding="4" style="font-family:

Verdana; font-size: 10pt">
<tr>
<td width="54" bgcolor="#000080"><font color="#FFFFFF">PR.</font></td>
<td width="489" bgcolor="#000080"><font color="#FFFFFF">Comune</font></td>
<td width="131" bgcolor="#000080"><font color="#FFFFFF">C. A. P.</font></td>
</tr>
<%
' EFFETTUO MATERIALMENTE LA PAGINAZIONE
rs_cerca.PageSize = quanti
rs_cerca.AbsolutePage = pag


while not rs_cerca.eof And contatore < quanti
'alterno i colori di sfondo delle celle
if intVolta="1" then
intVolta="0"
inTesto="#00FF99"
intSfondo="#EEEEEE"
else
intVolta="1"
inTesto="#FFFF99"
intSfondo="#E1EDF2"
end if
%>
<tr bgcolor="<%= intSfondo %>">
<td width="54" height="20" valign="middle"><% =RS_cerca("COM_sigla") %></td>
<td width="489" height="20" valign="middle"><% =RS_cerca("COM_nome") %>
<%
if len(RS_cerca("COM_not"))<>0 then
response.write "<font color=" & "#FF0000" & ">(" & RS_cerca("COM_not") &"</font>)"
end if
%>
</td>
<td width="131" height="20" valign="middle"><% =RS_cerca("COM_cap") %></td>
</tr>
<%
rs_cerca.movenext
' INCREMENTO IL VALORE DEL CONTATORE
contatore = contatore + 1
wend
%>
</table>
</td>
</tr>
<tr>
<td height="20"></td>
</tr>
<tr>
<td height="1" bgcolor="#808000"></td>
</tr>
<tr>
<td height="20"></td>
</tr>
</table>
</div>

<table width="750" cellpadding="0" align="center" cellspacing="0">
<tr>
<td colspan="3" height="5"></td>
</tr>
<tr bgcolor="#000066">
<td colspan="3" height="1"></td>
</tr>
<tr>
<td colspan="3" height="3"></td>
</tr>
<tr>
<%
record_totali = RS_cerca.recordCount
%>
<td colspan="3"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Record

totali <%= record_totali%> e visualizzati per pagina <%= quanti%></font></div></td>
</tr>
<tr>
<td colspan="3" height="3"></td>
</tr>
<tr bgcolor="#CCFFFF">
<td width="10%"><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<%If pag > 1 Then%>
[img]immag/indietro.gif[/img] " border= "0">
<%End If%>
</font></div></td>
<td width="80%"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<%
Dim x
x = 1
For x = 1 To RS_cerca.PageCount
If CInt(pag) <> x Then
%>
[<%=x%>]
<%
Else
%>
[<%=x%>]
<%
End If
Next
%>
</font></div></td>
<td width="10%"><div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<%If RS_cerca.EOF = False Then%>
<a href="esito_cerca_2_1.asp?pag=<%=pag+1%>">[img]immag/avanti.gif[/img]

" border= "0"></a>
<%
End If
chiudo(RS_cerca)
%>
</font></div></td>
</tr>
</table>

<%
end if
%>

Nel ringraziarVI e perdonate la mia ignoranza un caro saluto

[carlo55]

up

[carlo55]

mi aiutate per favore ve ne dono grato