XML ASP.Net Tutorial

  1. Home
  2. ASP.Net Tutorial
  3. XML
  4. Append data to an XML file (VB net)
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Xml" %>

   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


   

File: Data.xml


  
    asdf
    
      asdf
      asdf
    
    asdf
  
  
    asdf
    
      asdf
      asdf
    
    asdf
  
  
    asdf
    
      asdf
      asdf
    
    asdf