home *** CD-ROM | disk | FTP | other *** search
/ Using Visual Basic 5 (Platinum Edition) / vb5.iso / Code / ch33 / default.asp next >
Encoding:
Text File  |  1997-07-07  |  665 b   |  36 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2.  
  3. <HTML>
  4. <HEAD>
  5. <TITLE>ActiveX Data Object (ADO)</TITLE>
  6. </HEAD>
  7. <BODY BGCOLOR=#FFFFFF>
  8. <H3>ActiveX Data Object (ADO)</H3>
  9. <%
  10. Set Conn = Server.CreateObject("ADODB.Connection")
  11. Conn.Open "DSN=PlatVB5;SERVER=SoftCoyote;UID=sa;PWD=wlfhwlfh"
  12. Set RS = Conn.Execute("SELECT * FROM MyTable")
  13. %>
  14. <P>
  15. <TABLE BORDER=1>
  16. <TR>
  17. <% For i = 0 to RS.Fields.Count - 1 %>
  18.     <TD><B><% = RS(i).Name %></B></TD>
  19. <% Next %>
  20. </TR>
  21. <% Do While Not RS.EOF %>
  22.     <TR>
  23.     <% For i = 0 to RS.Fields.Count - 1 %>
  24.         <TD VALIGN=TOP><% = RS(i) %></TD>
  25.     <% Next %>
  26.     </TR>
  27.     <%
  28.     RS.MoveNext
  29. Loop
  30. RS.Close
  31. Conn.Close
  32. %>
  33. </TABLE>
  34. </BODY>
  35. </HTML>
  36.