24/06/2002, 05:55
|
| | | Fecha de Ingreso: mayo-2002
Mensajes: 45
Antigüedad: 23 años Puntos: 0 | |
| Re: 8 por pagina
Aqui te paso un ejemplo:
...
if (Request.Form("siguiente")="SIGUIEN TE") then
Session("PaginaActual")=Session("Pa ginaActual")+1
else
if(Request.Form("atras")="ATRAS&quo t;) then
Session("PaginaActual")=Session("Pa ginaActual")-1
else
Session("PaginaActual")=1
end if
end if
' Apertura de conexión a BD
...
Set Ob_RS = Server.CreateObject ("ADODB.Recordset")
...
Ob_RS.PageSize = NumRecxPag ' Nº de registros x página a mostrar
Ob_RS.CacheSize = NumRecxPag
Ob_RS.AbsolutePage=Session("PaginaActual" ;)
' Bucle de recorrido del Recorset hasta NumRecxPag
...
<FORM NAME="form1" METHOD="post" ACTION="OleDBvb.asp">
<%if(Session("PaginaActual")>1) then %>
<INPUT TYPE="submit" NAME="atras" VALUE="ATRAS" >
<%end if
if(Session("PaginaActual")<Ob_RS.Page Count)then %>
<INPUT TYPE="submit" NAME="siguiente" VALUE="SIGUIENTE">
<% end if%>
</FORM>
...
y cierra conexión.
Un salu23. |