update page after editing sitemap

Hey guys have written the following code to allow authorised users to add categories to a shopping catalog:


    Sub editXml()

        If txtNewCat.Text.Count > 0 Then
            Dim sMap As New XmlDocument
            sMap.Load(Server.MapPath("App_Data/Web.sitemap"))

            Dim doc As XmlNode = sMap.ChildNodes(1)
            Dim root As XmlNode = doc.ChildNodes(0)
            Dim pNode As XmlNode
            For Each node As XmlNode In root.ChildNodes
             ...