Imports System.IO
Imports System.Xml
Imports System.Data
Imports System.Data.SqlClient
 
Partial Class writeXML
    Inherits System.Web.UI.Page
 
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        GetXML(Request.QueryString("pid"))
    End Sub
 
    Public Function sqlConnect() As SqlConnection
        Dim oCn As SqlConnection = New SqlConnection("Data Source=xxxx\xxxx; Initial Catalog=tableName; User Id=dbUSERNAME; Password=dbPASSWORD")
        Return oCn
    End Function
 
    Private Function GetDataSet(ByVal strSQL As String) As DataSet
 
        '1. Create a connection
        Dim myConnection As SqlConnection = sqlConnect()
 
        '2. Create the command object, passing in the SQL string    
        Dim myCommand As New SqlCommand(strSQL, myConnection)
 
        myConnection.Open()
 
        '3. Create the DataAdapter
        Dim myDataAdapter As New SqlDataAdapter()
        myDataAdapter.SelectCommand = myCommand
 
 
        '4. Populate the DataSet and close the connection
        Dim myDataSet As New DataSet()
        myDataAdapter.Fill(myDataSet)
        myConnection.Close()
 
        'Return the DataSet
        Return myDataSet
 
    End Function
 
 
    Public Sub GetXML(ByVal id As String)
 
        Dim sqlCommand As String
 
        sqlCommand = "SELECT column1, column2  "
        sqlCommand &= "FROM tableName "
        sqlCommand &= "WHERE id = '" & id & "';  "
 
        Dim retrievedDataSet As New DataSet
        retrievedDataSet = GetDataSet(sqlCommand)
 
        Dim xmlDocument As XmlDocument = New XmlDocument
        xmlDocument.LoadXml(retrievedDataSet.GetXml)
 
 
        Response.Clear()
        Response.ContentType = "text/xml"
        Response.ContentEncoding = Encoding.UTF8
        Response.Write(xmlDocument.InnerXml)
        Response.Flush()
        Response.End()
 
    End Sub
 
End Class