te mando el codigo que encontre en un manual:
<!-- #include file= "adovbs.inc" -->
<html>
<head>
<title>Ejemplo de Paginación</title>
</head>
<body>
<p>Ejemplo de Paginación</p>
<%
pagina_act = Request("pag_act")
if pagina_act = "" then
pagina_vista = 1
else
pagina_vista = Cint(pagina_act)
end if
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
sql = "Select * from Control_de_Asistencia"
Conn.Open "Personal"
RS.open sql, Conn, adOpenStatic, adLockOptimistic
TotalReg = RS.RecordCount
if TotalReg = 0 then %>
<p align="center
">E R R O R, no hay datos para ese empleado....</p>
<% else
RS.Pagesize = 10
TotalPag = RS.PageCount
if pagina_vista > TotalPag then
pagina_vista = TotalPag
end if
RS.absolutepage = pagina_vista
response.write "<table border=1 width=´80%´><tr>"
for each campo in rs.fields
response.write "<td><b>" & campo.name & "</b></td>"
next
response.write "</tr>"
Do while not (RS is nothing)
RowCount = rs.PageSize
Do While not rs.eof and rowcount > 0
response.write "<tr>"
For each campo in rs.fields
response.write
"<td>" & campo.value & "</td>"
Next
response.write "</TR>"
