VBScript Sample: vbscript/ado/adoquery/adoquery.asp
   ASP Script
   Comments or Client-side Script
   HTML and Text

<HTML>
<HEAD>
<TITLE>ActiveX Data Object (ADO)</TITLE>
</HEAD>
<BODY BGCOLOR=#eadfdf>
<H3>ActiveX Data Object (ADO)</H3>

<%
   Set Conn = Server.CreateObject("ADODB.CONNECTION")
   Conn.Open "DSN=studentdatabase;UID=;PWD=;"
   Set RS = Conn.Execute("SELECT * FROM Students")
%>

<P>
<TABLE BORDER=1>
<TR>

<%  For i = 0 to RS.Fields.Count - 1 %>
<TD><B><%  = RS(i).Name %></B></TD>
<%  Next %>

</TR>
<%  Do While Not RS.EOF %>
   <TR>
      <%  For i = 0 to RS.Fields.Count - 1 %>
       <TD VALIGN=TOP><%  = RS(i).value %></TD>
   <%  Next %>
      </TR>
<%
   RS.MoveNext
   Loop
   RS.Close
   Conn.Close
%>

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


Copyright © 1998-2002, Halcyon Software Inc. All rights reserved.