<% For i = 0 to RS.Fields.Count - 1 %>
<% = RS(i).Name %> |
<% Next %>
<%
' Put up to 100 rows in a 2d variant array
v=RS.GetRows(100)
RS.close
Conn.close
%>
<% For row = 0 to UBound(v,2) ' iterate through the rows in the variant array %>
<% For col = 0 to UBound(v,1) %>
<% = v(col,row) %> |
<% Next %>
<% Next %>