URL Property Example (VBScript)

The following code demonstrates how to set the URL property on the client side to specify an .asp file that in turn handles the submission of changes to the data source.

<!-- BeginURLClientVBS -->
<%@ Language=VBScript %>
<html>
<head>
    <meta name="VI60_DefaultClientScript"  content=VBScript>
    <meta name="GENERATOR" content="Microsoft Visual Studio 6.0">
    <title>URL 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 onload=Getdata()>
<h1>URL Property Example (VBScript)</h1>
<OBJECT classid=clsid:BD96C556-65A3-11D0-983A-00C04FC29E33 height=1 id=ADC width=1>
</OBJECT>

<table datasrc="#ADC" align="center">
<thead>
<tr id="ColHeaders" class="thead2">
   <th>FirstName</th>
   <th>LastName</th>
   <th>Extension</th>
</tr>
</thead>
<tbody class="tbody">
<tr>
   <td><input datafld="FirstName" size=15> </td>
   <td><input datafld="LastName" size=25> </td>
   <td><input datafld="Extension" size=15> </td>
</tr>
</tbody>
</table>

<script Language="VBScript">
Sub Getdata()

      ADC.URL = "http://MyServer/URLServerVBS.asp"
      ADC.Refresh
End Sub

</script>



</body>
</html>
<!-- EndURLClientVBS -->

The server-side code that exists in URLServerVBS.asp submits the updated Recordset to the data source.

<!-- BeginURLServerVBS -->
<%@ Language=VBScript %>
<%

      ' XML output req's
   Response.ContentType = "text/xml"
   const adPersistXML  = 1
   
      ' recordset vars
   Dim strSQL, rsEmployees 
   Dim strCnxn, Cnxn
   
   strCnxn = "Provider=SQLOLEDB;Data Source=(local);Database=Northwind;User Id=sa;Password=;"
   Set Cnxn = Server.CreateObject("ADODB.Connection")
   Set rsEmployees = Server.CreateObject("ADODB.Recordset")
   
   strSQL = "SELECT FirstName, LastName, Extension FROM Employees"

   Cnxn.Open strCnxn
   rsEmployees.Open strSQL, Cnxn
   
      ' output as XML
   rsEmployees.Save Response, adPersistXML
%>
<!-- EndURLServerVBS -->

URL Property Example (VBScript)

See Also