ActiveX Data Object (ADO)
<%
Conn.Open "ADOSamples"
Set RS = Conn.Execute("SELECT * FROM Orders")
%>
<% For i = 0 to RS.Fields.Count - 1 %>
<% = RS(i).Name %> |
<% Next %>
<% Do While Not RS.EOF %>
<% For i = 0 to RS.Fields.Count - 1 %>
<% = RS(i) %> |
<% Next %>
<%
RS.MoveNext
Loop
RS.Close
Conn.Close
%>