questo codice ad esempio può fare al caso mio? ho provato piu volte a modificarlo per adattarlo al mio codice di cui sopra ma non ci sono riuscito.
<%
'recupero la pagina
page = Request.QueryString("page")
' imposto il numero di record per pagina
perpage = 10
'connessione al db
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("percorso/database.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM messaggi ORDER BY id"
Rs.Open sql, Conn, 1, 3
'imposto la variabile in modo da ottenere l'ultima se non ne viene specificata un'altra
If page = "" then
page = (rs.PageCount)
End if
'imposto la dimensione della pagina
Rs.PageSize = perpage
' mi sposto all'ultima pagina
Rs.AbsolutePage = page
'scrivo i link ai 10 record
For i = 1 to perpage
If Not Rs.EOF then
if Rs("id") < 10 then
Response.Write ("[<a href='tuapagina.asp?id=" & Rs("id") & "'>0" & Rs("id") & "</a>] ")
else
Response.Write ("[<a href='tuapagina.asp?id=" & Rs("id") & "'>" & Rs("id") & "</a>] ")
end if
Rs.MoveNext
end if
next
'scrivo i numeri delle pagine
Response.Write "<P><B>Pagine:</B> "
For pag= 1 to rs.PageCount
if page = pag then
'grassetto per la pagina corrente
Response.Write "<b>"
Response.Write "<A href='questapagina.asp?page=" & pag
Response.write "'>"
Response.Write pag
Response.Write "</A> "
Response.Write "</b>"
else
'normale per le altre pagine
Response.Write "<A href='questapagina.asp?page=" & pag
Response.write "'>"
Response.Write pag
Response.Write "</A> "
end if
Next
Response.Write "</P>"
'chiudo la connessione
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>
