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