Using getrows in ASP to implement code for database record Paging

CopyCode The Code is as follows: <% @ Language = VBScript %>
<% Option explicit %>
<%
Rem uses getrows in ASP to implement code for database record paging.
Dim istart, ioffset
Istart = request ("START ")
Ioffset = request ("offset ")

If not isnumeric (istart) or Len (istart) = 0 then
Istart = 0
Else
Istart = CINT (istart)
End if

If not isnumeric (ioffset) or Len (ioffset) = 0 then
Ioffset = 30
Else
Ioffset = CINT (ioffset)
End if

Response. Write "Viewing" & ioffset & "records starting at record" & istart & "<br>"

Dim objconn, objrs
Set objconn = server. Createobject ("ADODB. Connection ")
'Objconn. Open "DSN = MP3"
Dim connstr
Dim DB
DB = "csnjimageman. mdb"
Connstr = "provider = Microsoft. Jet. oledb.4.0; Data Source =" & server. mappath ("" & dB &"")
Objconn. Open connstr

Set objrs = server. Createobject ("ADODB. recordset ")
Objrs. Open "select * From imageinfo", objconn

Dim aresults
Aresults = objrs. getrows

Objrs. Close
Set objrs = nothing

Objconn. Close
Set objconn = nothing

Dim irows, icols, irowloop, icolloop, Istop
Irows = ubound (aresults, 2)
Icols = ubound (aresults, 1)

If irows> (ioffset + istart) then
Istop = ioffset + istart-1
Else
Istop = irows
End if

For irowloop = istart to Istop
For icolloop = 0 to icols
Response. Write aresults (icolloop, irowloop )&""
Next
Response. Write "<br>"
Next

Response. Write "<p>"
If istart> 0 then
'Show Prev Link
Response. Write "<a href =" "getrows. asp? Start = "& istart-ioffset &_
"& Offset =" & ioffset & ""> previous "& ioffset &" </a>"
End if

If Istop <irows then
'Show next link
Response. Write "<a href =" "getrows. asp? Start = "& istart + ioffset &_
"& Offset =" & ioffset & ""> next "& ioffset &" </a>"
End if
%>