paginar resultados

julian
14 de Julio del 2003
Tengo un problema al paginar un recordset, este solamente me muestra los datos de las 12 primeras paginas del mismo, aunque reconoce que hay mas registros en el mismo y tiene 17 pags, de las que no muestra los datos.

pablinweb
14 de Julio del 2003
Si no veo el codigo no puedo decirte nada...
Te paso un link en donde tienen un ejemplo muy bueno de como paginar

http://soloasp.com.ar/vereje.asp?eje=30

Saludos

julian
14 de Julio del 2003
este es el codigo, lo he resumido por que si no seria demasiadas lineas, si necesitas algo mas dimelo. por ciero, en el codigo de la pagina que me has dado aparece rs.Cachesize= mostrar. no entiendo para que lo cargas en la cache.
De antemano gracias por la ayuda.

'creo la conexion
strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../data/clinique.mdb")
Dim con,tabla
Set con=Server.CreateObject("adodb.connection")
Set tabla=Server.CreateObject("adodb.recordset")
con.Open strconn
'configuro la sql
if sexo<>"" then
sql="select * from productos where cod_subgru='" & sexo & "'"
else
sql="select * from productos"
end if
tabla.open sql,con,3,&H0001
<body>
if request.querystring("i")<>"" and (not tabla.eof or not tabla.bof) then
tabla.Absolutepage=request("i")
else
tabla.Absolutepage=1
end if
tabla.PageSize=4
TotalPaginas=int(tabla.PageCount) 'numero de paginas TOTAL
TotalRegistros=tabla.RecordCount ' numeo de Registros TOTAL

if request.querystring("i")<>"" then
i=request("i")
else
i=1
end if

'bucle para mostrar los datos hay que tener en cuenta que puede venir de una busqueda o no.
<% j=0
while (not tabla.eof) and (j<tabla.pagesize)
if campo<>"" or texto<>"" then
comparar
else
pintar
end if
if tabla.Fields("codigo")<>"" then
vacio=false
end if
tabla.MoveNext
j=j+1
wend
if vacio=true then'comprueba si la tabla esta vacia
mensajevacio
end if%>
'funcion para mostrar el desplazamiento
<%desplazamiento_pagesize sexo ,i, campo, texto%>

agradeceria una respuesta con la mayor brevedad posible.