Protected Sub bt1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bt1.Click
        dt = cls1.Crr("Select * from tbemp", "test1")
        ds.Tables.Add(dt)
        ds.WriteXml(Server.MapPath("XMLFile2.xml"))
    End Sub

< html xmlns="http://www.w3.org/1999/xhtml"  >
< head runat="server" >
    < title >Untitled Page< /title >
< /head >
< body >
    < form id="form1" runat="server" >
    < asp:Button ID="bt1" runat ="Server" Text ="CreateXml" / >
    < /form >
< /body >
< /html >