Mega Code Archive
Append data to an XML file (VB net)
<![CDATA[
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Xml" %>
<script runat=server>
sub Page_Load(Sender as Object, e as EventArgs)
dim xmldoc as new XMLDocument()
try
xmldoc.Load(Server.MapPath("Data.xml"))
dim eleBook as XmlElement = xmldoc.CreateElement("book")
dim attStyle as XmlAttribute = xmldoc.CreateAttribute("style")
eleBook.SetAttributeNode(attStyle)
eleBook.SetAttribute("style", "hardcover")
dim root as XmlElement = xmldoc.Item("bookstore")
root.AppendChild(eleBook)
xmldoc.Save(Server.MapPath("Data.xml"))
output.Text = "Append operation successful"
catch ex as Exception
output.Text = "Error accessing XML file"
end try
end sub
</script>
<html><body>
<asp:Label id="output" runat="server" />
</body></html>
File: Data.xml
<?xml version="1.0"?>
<bookstore>
<book genre="asdf">
<title>asdf</title>
<author>
<first-name>asdf</first-name>
<last-name>asdf</last-name>
</author>
<price>asdf</price>
</book>
<book genre="asdf">
<title>asdf</title>
<author>
<first-name>asdf</first-name>
<last-name>asdf</last-name>
</author>
<price>asdf</price>
</book>
<book genre="asdf">
<title>asdf</title>
<author>
<first-name>asdf</first-name>
<last-name>asdf</last-name>
</author>
<price>asdf</price>
</book>
</bookstore>
]]>