Categories: MSDN / DotNet / Java / Scripts / Linux / PHP Ask - La ask - La Answer

Paging on Array/GetRow Method

I need some help. I'd like to use the code below, but it returns a huge number
of records,
now to limit that I normally use paging through ADO, but I've never used
it with GetRows
retrieval method, nor was I able to find anything on the topic.

Any help would be much appreciate it.

<table align="center" cellpadding="2" cellspacing="0">
<% Response.Buffer = True
Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=e:\web\public_html\europeum\eumembers.mdb;"

SQL = "SELECT fldUSERNAME, fldPASSWORD, fldEMAIL, fldACTIVE, fldEXPIRE,
ID FROM table_member"
Set RS = MyConn.execute(SQL)
strRETURNED_DATA = RS.getrows
RS.close
Set RS = Nothing
MyConn.close

Set MyConn = Nothing
intNUM_COL=ubound(strRETURNED_DATA,1)
intNUM_ROW=ubound(strRETURNED_DATA,2)

FOR intROW_COUNTER = 0 TO intNUM_ROW
strARROW = ""
strROW = ""
USERNAME = strRETURNED_DATA(0,intROW_COUNTER)
PASSWORD = strRETURNED_DATA(1,intROW_COUNTER)
EMAIL = strRETURNED_DATA(2,intROW_COUNTER)
ACTIVE = strRETURNED_DATA(3,intROW_COUNTER)
EXPIRE = strRETURNED_DATA(4,intROW_COUNTER)
ID = strRETURNED_DATA(5,intROW_COUNTER)
If Cdate(EXPIRE) < Date Then strARROW = strARROW & "<font color='#008844'></font>"
If ACTIVE = "0" Then strARROW = strARROW & "<font color=red></font>"

strROW = strROW & "<tr class='trLIST'>" & vbcrlf
strROW = strROW & "<td width='20' class='tdLIST'>" & ID & "</td>"
& vbcrlf
strROW = strROW & "<td class='tdLIST'>" & strARROW & USERNAME & "</td>"
& vbcrlf
strROW = strROW & "<td class='tdLIST' style='font-size: 10px;'>"
& PASSWORD & "</td>" & vbcrlf
strROW = strROW & "<td class='tdLIST' style='font-size: 10px;'>"
& EMAIL & "</td>" & vbcrlf
strROW = strROW & "<td width='15'><a href='member_edit.asp?ID=" &
ID & "'><img src='../images/ico_edit.gif' width='15' height='15' alt='Edit
member' border='0'></a></td>" & vbcrlf
strROW = strROW & "<td width='15'><a href='member_del.asp?ID=" &
ID & "'><img src='../images/ico_del.gif' width='15' height='15' alt='Delete
Member' border='0'></a></td>" & vbcrlf
strROW = strROW & "<td width='15'><a href='member_del.asp?ID=" &
ID & "'><img src='../images/ico_email.gif' width='15' height='15' alt='Email
Member' border='0'></a></td>" & vbcrlf
strROW = strROW & "<td width='15'><a href='log_list.asp?M_ID=" &
ID & "&user=" & Server.URLEncode(USERNAME) & "'><img src='../images/ico_logs.gif'
width='15' height='15' alt='View Member's Log' border='0'></a></td>" & vbcrlf
strROW = strROW & "</tr>" & vbcrlf
Response.write strROW
NEXT

Response.flush
%>
</table>
[3404 byte] By [Vladimir S. Pekulas] at [2007-11-9 17:47:43]