<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<Script Runat="Server">
Sub Page_Load
Dim conNorthwind As SqlConnection
Dim dadEmployees As SqlDataAdapter
Dim dstEmployees As DataSet
Dim strXmlData As String
conNorthwind = New SqlConnection( "Server=localhost;UID=sa;PWD=secret;Database=Northwind" )
dadEmployees = New SqlDataAdapter( "Select * From Employees", conNorthwind )
dstEmployees = New DataSet()
dadEmployees.Fill ( dstEmployees, "Employees" )
strXmlData = dstEmployees.GetXml()
Response.Write( "<pre>" & Server.HtmlEncode( strXmlData ) & "</pre>" )
End Sub
</Script> |