Paging on Array/GetRow Method
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>

