DIM SQLselect, RSselect
RecordsPerPagina = 1 ' <-------------metti il numero di record
SQL = "SELECT * FROM "
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, objConn, 3, 3
RS.PageSize = RecordsPerPagina
RS.AbsolutePage = page
For i=1 to RecordsPerPagina
IF RS.EOF and RS.BOF then
%>NON CI SONO DATI PRESENTI<%
else
if Not RS.EOF then

record che vuoi

RS.MoveNext
end if
end if
Next
Response.Write "PAGINA "
Response.Write page
Response.Write " DI "
Response.Write RS.PageCount
Response.Write "

"
For pag=1 to RS.PageCount
Response.Write "<span><A href='pagina.asp?page=" & pag
Response.write "'>"
Response.Write pag
Response.Write "</A> </span>"
Next
RS.Close
Set RS = Nothing
%>