Share via

Server Property Example (VBScript)

  • Article

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)