<%@ Page Language="VB" %>
<%@ Import Namespace="System.Xml" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "[URL unfurl="true"]http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">[/URL]
<script runat="server">
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Dim MyXMLContent As New XmlTextWriter(Server.MapPath("xml/demo.xml"), Encoding.UTF8)
MyXMLContent.WriteStartDocument()
MyXMLContent.WriteComment("#########################################")
MyXMLContent.WriteComment("MyComment")
MyXMLContent.WriteComment("#########################################")
MyXMLContent.WriteComment("Timestamp:" & Now)
MyXMLContent.WriteStartElement("Element1")
MyXMLContent.WriteStartElement("Element2")
MyXMLContent.WriteElementString("ElementStr1", "ElementStr1_Val")
MyXMLContent.WriteElementString("ElementStr2", "ElementStr2_Val")
'Close Element2
MyXMLContent.WriteEndElement()
MyXMLContent.WriteStartElement("Element3")
MyXMLContent.WriteElementString("ElementStr3", "ElementStr3_Val")
MyXMLContent.WriteElementString("ElementStr4", "ElementStr4_Val")
'Close Element3
MyXMLContent.WriteEndElement()
'Close Element1
MyXMLContent.WriteEndElement()
MyXMLContent.WriteEndDocument()
MyXMLContent.Flush()
MyXMLContent.Close()
End Sub
</script>
<html xmlns="[URL unfurl="true"]http://www.w3.org/1999/xhtml">[/URL]
<head runat="server">
<title>XML Writer - Demo</title>
<script type="text/javascript">
function pageLoad() {
}
</script>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:ScriptManager ID="ScriptManager1" runat="server" />
<a href="xml/demo.xml">Download Demo XML</a>
</div>
</form>
</body>
</html>