RE:AYUDA por favor!! (next page)
empollate este codigo te servira de ayuda en futuras paginaciones de datos.
******** AGUR POTXOLA ( Adios bonita )************
<% Option Explicit
´ ADO constants used in this page
Const adOpenForwardOnly = 0
Const adLockReadOnly = 1
Const adCmdTableDirect = &H0200
Const adUseClient = 3
%>
<html>
<head>
<style>
body { font-family : Verdana; font-size : 8pt; }
a { font-family : Verdana; font-size : 8pt; text-decoration : none; }
</style>
</head>
<body>
<%
Dim connStr
set connStr=server.createobject("adodb.connection")
connStr.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\inetpub\wwwroot\db\jaiak.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.PageSize = 100
rs.CacheSize = 5
rs.CursorLocation = adUseClient
rs.Open "pueblos", connStr, adOpenForwardOnly, adLockReadOnly, adCmdTableDirect
If Len(Request("pagenum")) = 0 Then
rs.AbsolutePage = 1
Else
If CInt(Request("pagenum")) <= rs.PageCount Then
rs.AbsolutePage = Request("pagenum")
Else
rs.AbsolutePage = 1
End If
End If
Dim abspage, pagecnt
abspage = rs.AbsolutePage
pagecnt = rs.PageCount
If Not rs.EOF Then
Response.Write "PageCount : " & rs.PageCount & "<br>" & vbcrlf
Response.Write "Absolute Page : " & rs.AbsolutePage & "<br>" & vbcrlf
Response.Write "Total number of records : " & rs.RecordCount
Respons
