home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / MS_DEV / VID / SERVER / ASF / DATA.Z / ado2.asp < prev    next >
Text File  |  1996-09-20  |  506b  |  27 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 CLASSID="Clsid:00000293-0000-0010-8000-00AA006D2EA4"></OBJECT>
  6.  
  7. <%
  8.   Conn.Open "ADOSamples"
  9.  
  10.   Set RS = Conn.Execute("SELECT * FROM Orders")
  11. %>
  12. <P>
  13. <TABLE BORDER=1>
  14. <% Do While Not RS.EOF %>
  15.   <TR>
  16.   <% For i = 0 to RS.Fields.Count - 1 %>
  17.     <TD VALIGN=TOP><%= RS(i) %></TD>
  18.   <% Next %>
  19.   </TR>
  20. <%
  21.   RS.MoveNext
  22.   Loop
  23. %>
  24. </TABLE>
  25. </BODY>
  26. </HTML>
  27.