Aiuto: Paginazione asp!

[sraone77]

Aiuto: Paginazione asp!

Ragazzi, scusate ho un problema con uno script.
Ho creato un semplicissimo guestbook, ma non riesco a capire perchè quando clicco per cambiare pagina lo script mi visualizza soltato i primi record?

Qualcuno mi può da dare un'occhiata allo script?

...
<%@ LANGUAGE = VBScript %>
<%
Dim Cn
Set Cn=Server.CreateObject("ADODB.Connection")
Cn.Open "PROVIDER=MSDASQL;" & _
"DRIVER={Microsoft Access Driver (*.mdb)}; " & _
"DBQ=" & server.mappath("mdb-database/guestbook.mdb")
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")

'imposto il numero di record da visualizzare in una pagina
RecordsPerPagina = 5

page = Request("page")
if page="" then page=1
Sql = "Select * from messaggi order by ID Desc ;"
objRS.open Sql, Cn, 1
objRS.PageSize = RecordsPerPagina
objRS.AbsolutePage = page

if objRS.Eof=True or objRS.Bof=True then
Response.Write "<P>Nessun risultato trovato</P>"
Else

For i=1 to RecordsPerPagina
if Not objRS.EOF then
%>
<table align="center" width="100%" cellpadding="1" cellspacing="0">
<tr>
<td width="100%">Inviato da <b><%=objRS("nickname")%></b><%=objRS("messaggio")%>il <%=objRS("data")%>
</td>
</tr>
</table>

<%

objRS.MoveNext

end if
next
End if

'stampo le pagine da visulizzare
For pag=1 to objRS.PageCount
Response.Write "<a href= 'guestbook.asp? page=" & pag & "'>"
Response.Write pag
Response.Write "</a> "
Next

objRS.Close
Set objRS = Nothing
Cn.Close
Set Cn=Nothing
%>
...

[paocavo]

@sraone77 said:

...
'stampo le pagine da visulizzare
For pag=1 to objRS.PageCount
Response.Write "<a href= 'guestbook.asp?page=" & pag & "'>"
Response.Write pag
Response.Write "</a> "
Next
...

L'errore stava (credo) nella generazione dei link di navigazione delle varie pagine. C'era uno spazio in più che invalidava l'URL

[sraone77]

@paocavo said:

L'errore stava (credo) nella generazione dei link di navigazione delle varie pagine. C'era uno spazio in più che invalidava l'URL

Infatti non me ne ero accorto, grazie!