<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>