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
%>