Ciao
ho usato questo script per la prima volta ed ho notato alcune cose:

la riga
totpag = rs.pagesize
forse dovrebbe essere
totpage = rs.pagecount

la riga
Response.write "<a href="cerca.asp?page=" & page+1 & """>" &_
"&gt;&gt;</a> "
restituisce un link alla pagina successiva alla prima e non alla successiva all'ultima (ho risolto mettendo il contenuto della var I al posto di page+1)

poi il test forse dovrebbe essere fatto:
if endpage < totpage
e non
if page <=totpage



poi ad ogni cambio pagina varia la sequenza es.
1 2 3 4 5 6 7 8 9 10
clicco su 4 ed ho
4 5 6 7 8 9 10 11 12 13
ho pensato che è meglio forse lasciare invariati i link finchè non si passa ai 10 successivi (ho usato una varibile 'startclick' aggiunta al percorso dei link
.....?PAGE=" & I & "&startlink=" & startpage & "'>" & i & "</A> "
all'inizio dello script assegno:
startlink=request("startlink")
e se startlink<>"" assegno a startpage startlink.
mentre se passo ai 10 successivi startlink assumerà il valore della nuova pagina.

per finire ho messo la possibilità di tornare ai 10 precedenti con un altro link:
....?PAGE=" & startpage-max-1 & "&startlink=" & startpage-max-1 & "'>" & "Precedenti </A> "

infine per far quadrare le cose ho impostato max a 9 per ottenere 10 link pagina.

In questo commento ho usato molti 'forse' e 'dovrebbe' poichè ho ancora il dubbio che forse non ho capito io bene come andava usato lo script.
Se invece le osservazioni sono giuste spero possano essere utili a qualcuno.
Saluti
Sandro

ciao mi sembra valide le tue modifiche ma perche a me succede ke quando io faccio una ricerca dopo klicco sul tasto freccia per andare avanti pero mi si annulla la ricerca e mi appaiono tutti i record del database di nuovo !!!!!! non riesco a risolvere il problema !!!! ke sbaglio ???
in sintesi questo e' il codice !
'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>"

%>

grazie ciao