home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / MS_DEV / VID / SERVER / ASF / DATA.Z / ado3.asp < prev    next >
Text File  |  1996-10-07  |  612b  |  33 lines
  1. <HTML>
  2. <HEAD><TITLE>ActiveX Data Object (ADO)</TITLE><HEAD>
  3. <BODY>
  4. <H3>ActiveX Data Object (ADO)</H3>
  5. <OBJECT RUNAT=Server ID=Conn PROGID="ADODB.Connection"></OBJECT>
  6. <%
  7.   Conn.Open "ADOSamples"
  8.  
  9.   Set RS = Conn.Execute("SELECT * FROM Orders")
  10. %>
  11. <P>
  12. <TABLE BORDER=1>
  13. <TR>
  14.   <% For i = 0 to RS.Fields.Count - 1 %>
  15.      <TD><B><%= RS(i).Name %></B></TD>
  16.   <% Next %>
  17. </TR>
  18. <% Do While Not RS.EOF %>
  19.   <TR>
  20.   <% For i = 0 to RS.Fields.Count - 1 %>
  21.     <TD VALIGN=TOP><%= RS(i) %></TD>
  22.   <% Next %>
  23.   </TR>
  24. <%
  25.   RS.MoveNext
  26.   Loop
  27.   RS.Close
  28.   Conn.Close
  29. %>
  30. </TABLE>
  31. </BODY>
  32. </HTML>
  33.