Come si fa la paginazione?

[ffilogamo]

Estraggo e visualizzo i record cosi:

<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
Server.MapPath("/mdb-database/loginx.mdb")

Dim objRS
Set objRS = Server.CreateObject("ADODB.RecordSet")
sSQL="select * from tblNews order by ID"
objRS.Open sSQL, objConn, 3, 3
%>

<%
if not objRS.EOF then
do while not objRS.EOF

Response.Write objRS("id") & " " & objRS("Heading") & " " & objRS("Content") & "
"
objRS.MoveNext
Loop

objRS.Close
Set objRS = Nothing

objConn.Close
Set objConn = Nothing
%>
<%
end if
%>


come si fa la paginazione?
o meglio dopo 10 creare altre pagine tipo 1 > 10??