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
