Ayuda Con Paginacion, Probe Y Nada

[basty]

LA CONEXION ES ESTA, PASO CODIGO

============================================
<%
set conn = Server.CreateObject("ADODB.connection")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("foro.mdb") & ";" & _
"Persist Security Info=False"
conn.Open(sConnection)

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = conn
rs.Open "SELECT * FROM thing where replyid=0 ORDER BY msgid DESC"
if rs.EOF then response.write "<br><font face='arial' size='3'>Aun no hay mensajes en este foro...escribe el primero!</font>"
while NOT rs.EOF
%>

<%
Set rso = Server.CreateObject("ADODB.Recordset")
rso.Open "SELECT * FROM thing where replyid="&id, conn, 3%>
<%response.write rso.recordcount%>

<%
rs.MoveNext
WEND
%>


============================================

AGRADEZCO EL Q ME EXPLIQUE COMO APLICO UNA PAGINACION A ESO........GRACIAS