Remote Data Service contains a server-side business object (ActiveX® DLL) called RDSServer.DataFactory that sends commands to a data source and passes the results back across the Internet or an intranet for you. RDSServer.DataFactory is the default ActiveX DLL that you can use to provide live data on your Web page with little programming.
The following example shows how to call the RDSServer.DataFactory object from a VBScript Web page. You use the RDS.DataSpace object on the client to create an instance of the RDSServer.DataFactory object on the server.
<HTML>
<HEAD></HEAD>
<BODY>
<!-- RDS.DataControl -->
<OBJECT classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" ID=ADC1>
</OBJECT>
<!-- RDS.DataSpace -->
<OBJECT ID="ADS1" WIDTH=1 HEIGHT=1
CLASSID="CLSID:BD96C556-65A3-11D0-983A-00C04FC29E36">
</OBJECT>
.
.
.
<SCRIPT LANGUAGE="VBScript">
Option Explicit
Sub Window_OnLoad()
Dim ADF1, myRS
Set ADF1 = ADS1.CreateObject("RDSServer.DataFactory", _
"http://<%=Request.ServerVariables("SERVER_NAME")%>")
Set myRS = _
ADF1.Query("DSN=pubs;UID=sa;PWD=permission;", _
"Select * From Authors")
' Assign the returned recordset to SourceRecordset.
ADC1.SourceRecordset = myRS
End Sub
</SCRIPT>
</BODY>
</HTML>