<%@ Language=VBScript%>
Document Title
<%
Set DelphiObj = Server.CreateObject("AdoProj.DelphiADO")
%>
This page provides information gathered
from a
Delphi Automation object
Object Version: <%= DelphiObj.Version %>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "DISample", "", ""
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open "SELECT * FROM [Customers]", Conn, 3, 3
%>
Number of records in recordset <%= Rs.RecordCount %>
<%
Counter = DelphiObj.CustomerCount
%>
Number of records reported by Delphi object <%= Counter %>
End of Story