RDS 2.5 API Reference

Server Property Example (VBScript)

The following code shows how to set the RDS.DataControl parameter at design time and bind it to a data-aware control using the SQLOLEDB provider. Cut and paste this code into a normal ASP document and name it ServerDesignVBS.asp. ASP script will identify your server.

<!-- BeginServerDesignVBS -->

<%@ Language=VBScript %>

<html>

<head>

<meta name="VI60_DefaultClientScript" content=VBScript>

<meta name="GENERATOR" content="Microsoft Visual Studio 6.0">

<title>Server Property Example (VBScript)</title>

<style>

<!--

body {

font-family: 'Verdana','Arial','Helvetica',sans-serif;

BACKGROUND-COLOR:white;

COLOR:black;

}

.thead {

background-color: #008080;

font-family: 'Verdana','Arial','Helvetica',sans-serif;

font-size: x-small;

color: white;

}

.thead2 {

background-color: #800000;

font-family: 'Verdana','Arial','Helvetica',sans-serif;

font-size: x-small;

color: white;

}

.tbody {

text-align: center;

background-color: #f7efde;

font-family: 'Verdana','Arial','Helvetica',sans-serif;

font-size: x-small;

}

-->

</style>

</head>

<body>

<h1>Server Property Example (VBScript)</h1>

<TABLE DATASRC=#RDS>

<TR>

<TD> <SPAN DATAFLD="FirstName"></SPAN> </TD>

<TD> <SPAN DATAFLD="LastName"></SPAN> </TD>

<TD> <SPAN DATAFLD="Title"></SPAN> </TD>

<TD> <SPAN DATAFLD="Type"></SPAN> </TD>

<TD> <SPAN DATAFLD="Email"></SPAN> </TD>

</TR>

</TABLE>

<!-- Remote Data Service with Parameters set at Design Time -->

<OBJECT classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33"

ID=RDS HEIGHT=1 WIDTH=1>

<PARAM NAME="SQL" VALUE="Select * from Employees">

<PARAM NAME="SERVER" VALUE="http://<%=Request.ServerVariables("SERVER_NAME")%>">

<PARAM NAME="CONNECT" VALUE="Provider='sqloledb';Integrated Security='SSPI';Initial Catalog='Northwind'">

</OBJECT>

</body>

</html>

<!-- EndServerDesignVBS -->

The following example shows how to set the necessary parameters of RDS.DataControl at run time. To test this example, cut and paste this code into a normal ASP document and name it ServerRuntimeVBS.asp. ASP script will identify your server.

<!-- BeginServerRuntimeVBS -->

<%@ Language=VBScript %>

<html>

<head>

<meta name="VI60_DefaultClientScript" content=VBScript>

<meta name="GENERATOR" content="Microsoft Visual Studio 6.0">

<title>Server Property Example (VBScript)</title>

<style>

<!--

body {

font-family: 'Verdana','Arial','Helvetica',sans-serif;

BACKGROUND-COLOR:white;

COLOR:black;

}

.thead {

background-color: #008080;

font-family: 'Verdana','Arial','Helvetica',sans-serif;

font-size: x-small;

color: white;

}

.thead2 {

background-color: #800000;

font-family: 'Verdana','Arial','Helvetica',sans-serif;

font-size: x-small;

color: white;

}

.tbody {

text-align: center;

background-color: #f7efde;

font-family: 'Verdana','Arial','Helvetica',sans-serif;

font-size: x-small;

}

-->

</style>

</head>

<body>

<h1>Server Property Example (VBScript)</h1>

<H2>RDS API Code Examples</H2>

<H3>Remote Data Service Server Property Set at Run Time</H3>

<!-- RDS.DataControl with no parameters set at design time -->

<OBJECT classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33"

ID=RDC HEIGHT=1 WIDTH=1>

</OBJECT>

<TABLE DATASRC=#RDC>

<TR>

<TD> <SPAN DATAFLD="FirstName"></SPAN> </TD>

<TD> <SPAN DATAFLD="LastName"></SPAN> </TD>

<TD> <SPAN DATAFLD="Title"></SPAN> </TD>

<TD> <SPAN DATAFLD="Type"></SPAN> </TD>

<TD> <SPAN DATAFLD="Email"></SPAN> </TD>

</TR>

</TABLE>

<HR>

<Input Size=70 Name="txtServer" Value="HTTP://<%= Request.ServerVariables("SERVER_NAME")%>">

<BR>

<Input Size=70 Name="txtConnect" Value="Provider='sqloledb';Integrated Security='SSPI';Initial Catalog='Northwind'">

<BR>

<Input Size=70 Name="txtSQL" Value="Select * from Employees">

<HR>

<INPUT TYPE=BUTTON NAME="Run" VALUE="Run"><BR>

<Script Language="VBScript">

<!--

' Set parameters of RDS.DataControl at Run Time

Sub Run_OnClick

RDC.Server = txtServer.Value

RDC.SQL = txtSQL.Value

RDC.Connect = txtConnect.Value

RDC.Refresh

End Sub

-->

</Script>

</body>

</html>

<!-- EndServerRuntimeVBS -->

DataControl Object (RDS) | Server Property (RDS)

© 1998-2003 Microsoft Corporation. All rights reserved.