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