codice:
pagina = request.queryString("pagina")
if len(pagina) > 0 and isNumeric(pagina) then
pagina = cLng(pagina)
else
pagina = 1
end if
pagina = int(pagina)
if pagina < 0 then pagina = 1
recordPerPagina = 10
questaPagina = request.serverVariables("PATH_INFO")
set conn = server.createObject("ADODB.Connection")
conn.open connectionString
sql = "SELECT * FROM tabella1"
set rs = server.createObject("ADODB.Recordset")
rs.open sql, 1, 3
if not rs.eof then
rs.pageSize = recordPerPagina ' ovvero quanti record mostrare in ogni pagina
rs.absolutePage = pagina ' ovvero il numero pagina passato via queryString su cui posizionarsi all'interno del recordset
for r = 1 to recordPerPagina
if not rs.eof then
' leggo i dati dalla tabella del db
response.write rs("campo1") & " " & rs("campo2") & "
"
else
exit for ' esco dal ciclo for perchè non ci sono più record
end if
next
' blocco paginazione
response.write "Pagine: "
for p = 1 to rs.pageCount
if p = pagina then
response.write p & " "
else
response.write "" & p & " "
end if
next
else
response.write "Non ci sono dati da visualizzare"
end if
rs.close
set rs = nothing
conn.close
set conn = nothing