home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 March / Chip_1999-03_cd.bin / zkuste / delphi / INFO / DI9812RL.ZIP / MyTest.asp < prev   
Text File  |  1998-10-26  |  841b  |  33 lines
  1. <%@ Language=VBScript%>
  2. <HTML>
  3. <HEAD>
  4. <META NAME="GENERATOR" 
  5.   Content="HyperAct eAuthor Help 3.0 Preview 5">
  6. <META HTTP-EQUIV="Content-Type" 
  7.   content="text/html; charset=iso-8859-1">
  8. <TITLE>Document Title</TITLE>
  9. </HEAD>
  10. <BODY>
  11. <%
  12.   Set DelphiObj = Server.CreateObject("AdoProj.DelphiADO")
  13. %>
  14. <h3>This page provides information gathered
  15.  from a
  16.  Delphi Automation object</h3>
  17. Object Version: <%= DelphiObj.Version %><BR>
  18. <%
  19.   Set Conn = Server.CreateObject("ADODB.Connection") 
  20.   Conn.open "DISample", "", ""
  21.   Set Rs = Server.CreateObject("ADODB.Recordset")
  22.   Rs.open "SELECT * FROM [Customers]", Conn, 3, 3
  23. %>
  24. Number of records in recordset <%= Rs.RecordCount %>
  25. <BR>
  26. <%
  27.   Counter = DelphiObj.CustomerCount
  28. %>
  29. Number of records reported by Delphi object <%= Counter %> 
  30. <br>
  31. End of Story
  32. </BODY>
  33. </HTML>