ActiveX Data Object (ADO)

<% Conn.Open "ADOSamples" Set RS = Conn.Execute("SELECT * FROM Orders") %>

<% For i = 0 to RS.Fields.Count - 1 %> <% Next %> <% Do While Not RS.EOF %> <% For i = 0 to RS.Fields.Count - 1 %> <% Next %> <% RS.MoveNext Loop RS.Close Conn.Close %>
<% = RS(i).Name %>
<% = RS(i) %>