scusate ma saro' io che sono una frana ma a me funziona bene la paginazione solo che quando clicco per andare sulla pagina successiva mi succede che la ricerca precedente si annulla e mi compaiono tutte le pagine del database come e' possibile ??? allego il codice che ho inserito

'legge dal form

titolo=request.form("titolo")

Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "ragio"
RecordsPerPagina = 5
page = Request("page")
if page="" then page=1
set rs=Server.CreateObject("ADODB.Recordset")
strRicerca = Request("ricerca")
sql="select * from comage where titolo like '%"&commento&"%' "
rs.OPEN sql,objdbconnection,1,3
rs.PageSize = RecordsPerPagina
rs.AbsolutePage = page
' verifica se esiste almeno un elemento
if rs.EOF then
Response.write("<font face =arial><p align=""center"">Nessun articolo trovato.</p>")
'Response.Write(vbcr&"")
'Response.Write("</HTML>")
'Response.write("</br>")

Else

For i=1 to RecordsPerPagina

%>

<% Do while NOT RS.EOF
i=i+1
%>

<table width="75%" border="0">
<tr>
<td><font face="arial" size="2"><a href="comage/Articolo.asp?ID=<%=rs("ID")%>"><%=rs("Titolo")%></a></font></td>
</tr>
<tr>
<td><font face="arial" size="2"><%=rs("Commento")%></font></td>
</tr>
</table>

<%

rs.MoveNext

next

end if

%>

<p><br>
<font size="2" face="Arial, Helvetica, sans-serif">PAGINE DEI RISULTATI
</font>:

</p>
</td>
</tr>
<tr>
<td height="2">
<%

Response.Write "<P><B>Pagine:</B> "
For pag=1 to rs.PageCount

Response.Write "<A href='search4.asp?page=" & pag
Response.Write "&ricerca=" & Server.UrlEncode(strRicerca)
Response.write "'>"

Response.Write pag

Response.Write "</A> "

Next

Response.Write "</P>"

%>