ho letto un pò nel form e ho presio un esempio su come mettere più recordset in diverse pagine con i numeretti per andare a quella successiva e precedente..

ma la mia select viene fatta con delle variabili e quando passo alla pg succ dice ke nn trova niente..come se nn riuscisse a portare dietro il criteri della ricerca....

se imposto invece una select con criteri fissi funge tutto....

posto un il codice:
-------------------------------------------------------------------------------------
<%
Dim sc, cn, rs, quanti, pag, contatore, titolo,titolo1



cString = ""
cString= cString& "driver={Microsoft Access Driver (*.mdb)};dbq="
cString = cString & Server.MapPath("\database\bcd.mdb")


Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")


objConn.Open cString
quanti = 5




pag = Request.QueryString("pag")
If IsNumeric(pag) = False Or pag < 1 Then pag = 1


contatore = 0

reg = replace(request("regioni"),"'", "''")
prov = replace(request("provincie"),"'", "''")
com = replace(request("comuni"),"'", "''")

if prov = "" then

objRs.open "SELECT * from prodotti where macrocat = '" & reg & "' order by prezzopub Asc", objConn,1


else

if com = "" then

set objRs = objConn.Execute("SELECT * from prodotti where macrocat = '" & reg & "' AND sottocat= '" & prov & "' order by prezzopub Asc", objConn,1)

else

set objRs = objConn.Execute("SELECT * from prodotti where macrocat = '" & reg & "' AND sottocat= '" & prov & "' And marca= '" & com & "' order by prezzopub Asc", objConn,1)


end if
end if
if objRs.eof then

response.write "<center>La ricerca non ha prodotto nessun risultato.</center>"

else
objRs.PageSize = quanti
objRs.AbsolutePage = pag

While objrs.EOF = False And contatore < quanti
%>

<table height="50" cellspacing="0" cellpadding="0" width="600"
valign="top" align="center" border=1 bordercolor=white>

<tbody>
<tr>
<%response.write "<td valign=middle align=left width=100 height=80 border=1 bordercolor=black>[img]& objRs([/img]</td>"%>
<td colspan="2" valign="middle" align="center" width="545" height="50">

<%response.write "<font face=arial, verdana color=#336699 size=3>" & objRs("macrocat") & " </font><font face=arial, verdana color=#FF0000 size=2>" & objRs("marca") & " </font>
"%>
<%response.write "[b]<font face=arial, verdana color=#003366 size=1>" & objRs("sottocat") & "</font>"%>
<%response.write "<font face=arial, verdana color=red size=1>" & objRs("codprodotto") & "</font>
"%>
<%response.write "<font face=verdana color=#3399cc size=1>" & objRs("descrizione") & "</font>
"%>
<%response.write "[b]<font face=arial, verdana color=red size=1>Q.tà : " & objRs("quant") & "</font></td>"%>
<%response.write "<td valign=middle align=left width=100 height=80><font face=verdana color=#993300 size=2>" & formatCurrency(objRs("prezzopub")) & "</font></div></td></tr>"%>
<% objrs.MoveNext

contatore = contatore + 1
Wend
end if%>

<p align="center">
<%If pag > 1 Then%>
<font face=arial, verdana color=#336699 size=1>Indietro</font>
<%End If%>
<%
Dim x
x = 1
For x = 1 To objrs.PageCount
If CInt(pag) <> x Then
%>
<font face=arial, verdana color=#336699 size=1><%=x%></font>-
<%
Else
%>
<font face=arial, verdana color=#336699 size=2><%=x%></font>-
<%
End If
Next
%>
<%If objrs.EOF = False Then%>
<font face=arial, verdana color=#336699 size=1>Avanti</font>
<%End If%>
</p>


<%

objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>


</tbody>
</table>

P.S ho impostato 5 risulati per pagina..ma me ne mette prima 4 poi le pagine e poi il quinto :berto: