<HTML>
<HEAD>
<TITLE>ActiveX Data Object (ADO)</TITLE>
</HEAD>
<BODY BGCOLOR=#FFFFFF>
<H3>ActiveX Data Object (ADO)</H3>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Open Session("ADO_CONNECT_STRING")
Conn.Open "dmv_www"
Set rs = Conn.Execute("SELECT * FROM Driver")
%>

<P>
<TABLE BORDER=1>
<TR>
<%   For i = 0 to RS.Fields.Count - 1 %>
       <TD><B><FONT SIZE=2><%= rs(i).Name %></B></TD>
<%   Next %>
</TR>
<%   Do While Not rs.EOF %>
       <TR>
       <%   For i = 0 to rs.Fields.Count - 1 %>
            <TD VALIGN=TOP><FONT SIZE=2><%   = rs(i) %></TD>
       <%   Next %>
       </TR>
       <%
       rs.MoveNext
Loop
rs.Close
Conn.Close
%>


</TABLE>
</BODY>
</HTML>