---
title: "URL Property Example (VBScript) | Microsoft Docs"
ms.technology: connectivity
ms.custom: ""
ms.date: "01/19/2017"
ms.reviewer:
ms.prod: sql
ms.prod_service: connectivity
ms.topic: conceptual
dev_langs:
- "VB"
helpviewer_keywords:
- "URL property [ADO], VBScript example"
ms.assetid: 6ae5ac50-c88c-4262-b7ab-f2b3de382a0b
author: MightyPen
ms.author: genemi
---
# URL Property Example (VBScript)
> [!IMPORTANT]
> Beginning with Windows 8 and Windows Server 2012, RDS server components are no longer included in the Windows operating system (see Windows 8 and [Windows Server 2012 Compatibility Cookbook](https://www.microsoft.com/download/details.aspx?id=27416) for more detail). RDS client components will be removed in a future version of Windows. Avoid using this feature in new development work, and plan to modify applications that currently use this feature. Applications that use RDS should migrate to [WCF Data Service](https://go.microsoft.com/fwlink/?LinkId=199565).
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.
```
<%@ Language=VBScript %>
URL Property Example (VBScript)
URL Property Example (VBScript)
FirstName
LastName
Extension
```
The server-side code that exists in **URLServerVBS.asp** submits the updated **Recordset** to the data source.
```
<%@ 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=" & _
Request.ServerVariables("SERVER_NAME") & ";" & _
"Integrated Security='SSPI';Initial Catalog='Northwind';"
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
' Clean up
rsEmployees.Close
Cnxn.Close
Set rsEmployees = Nothing
Set Cnxn = Nothing
%>
```
## See Also
[URL Property (RDS)](../../../ado/reference/rds-api/url-property-rds.md)