Paginada Recordset Asesoramiento

<%
 
Dim objRS, objConn,
 
 
objConn = "Provider=Microsoft.Jet.OLEDB.4.0; objConn=" & _
    Server.MapPath("downloadform.mdb")
 
' Creating Recordset Object
Set objRS = Server.CreateObject("ADODB.Recordset")
 
    'How many records per page
    Const iRecordsPerPage = 10
 
    Dim currentPage  'what page are we on??
    Dim bolLastPage  'are we on the last page?
   
    if len(Request.QueryString("page")) = 0 then
        currentPage = 1
    else
        currentPage = CInt(Request.QueryString("page"))
    end if
 
    'Show the paged results
    strSQL = "sp_PagedItems " & currentPage & "," & iRecordsPerPage
    objRS.Open "SELECT * FROM users ORDER BY id DESC", strSQL, objConn
   
    'See if we're on the last page
    if Not objRS.EOF then
        if CInt(objRS("MoreRecords")) > 0 then
            bolLastPage = False
        else
            bolLastPage = True
        end if
    end if
%>

<%
 Dim connStr
  connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
   Server.MapPath("downloadform.mdb")
 
 Dim rs
  Set rs = Server.CreateObject("ADODB.Recordset")
 
  rs.PageSize = 20
  rs.CacheSize = 20
  rs.CursorLocation = adUseClient
 
 rs.Open "SELECT * FROM users ORDER BY id DESC", 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
  Response.Write "<br><br>" & vbcrlf
 
  Dim fldF, intRec
  ' Design your own layout for Results Page Here:
 Response.Write "<table border=1 align=center cellpadding=3 "
  Response.Write "cellspacing=0><thead><tr>"
  For Each fldF in rs.Fields
   Response.Write "<td>" & fldF.Name & "</td>"
  Next
  Response.Write "</tr></thead><tbody>"
 
  For intRec=1 To rs.PageSize
   If Not rs.EOF Then
    Response.Write "<tr>"
    Response.Write "<td>   <strong>Name :</strong> " & rs("name") & "</td>"
    Response.Write "<td>   <strong>Date :</strong> " & rs("dateposted") & "</td>"
    Response.Write "<td>   <strong>File Size :</strong> " & rs("comments") & "</td>"
    Response.Write "<td>   <strong>Link :</strong> <a href='" & rs("topic") & "'>" & "File Link" & "</a>" & "</td>"
    Response.Write "<td>   <input type='hidden' name='id' value='" & rs("id") & "'> </td>"
    Response.Write "<tr>"
    rs.MoveNext
   End If
  Next
  Response.Write "</tbody></table><p>"
 
' Now showing first, next, back, last buttons.
 
Response.Write "<div align=""center"">" & vbcrlf
Response.Write "<a href="""
Response.Write Request.ServerVariables("SCRIPT_NAME")
Response.Write "?pagenum=1""><b>First Page</b></a>"
Response.Write "    |   "
 
If abspage = 1 Then
    Response.Write "<span style=""color:silver;"">Previous Page</span>"
Else
    Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME")
    Response.Write "?pagenum=" & abspage - 1 & """><b>Previous Page</b></a>"
End If
 
Response.Write "    |   "
    If abspage < pagecnt Then
        Response.Write "<a href=""" & _
            Request.ServerVariables("SCRIPT_NAME")
        Response.Write "?pagenum=" & abspage + 1 & """>Next Page</a>"
    Else
        Response.Write "<span style=""color:silver;""" & _
            "><b>Next Page</b></span>"
End If
 
Response.Write "    |   "
Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME")
    Response.Write "?pagenum=" & pagecnt & """><b>Last Page</b></a>"
Response.Write "</div>" & vbcrlf
 
Else
    Response.Write "No records found!"
End If
 
rs.Close
Set rs = Nothing
 
%>