Private Sub upnode(ByVal id As String)
        Dim xd As New System.Xml.XmlDocument
        Dim xmlDoc As String
 
        If ID.StartsWith("a0") = True Then
            xmlDoc = Server.MapPath("\navigation\buch1.xml")
        ElseIf ID.StartsWith("a1") = True Then
            xmlDoc = Server.MapPath("\navigation\buch2.xml")
        ElseIf ID.StartsWith("a2") = True Then
            xmlDoc = Server.MapPath("\navigation\buch3.xml")
        ElseIf ID.StartsWith("a3") = True Then
            xmlDoc = Server.MapPath("\navigation\buch4.xml")
        ElseIf ID.StartsWith("a4") = True Then
            xmlDoc = Server.MapPath("\navigation\buch5.xml")
        ElseIf ID.StartsWith("a5") = True Then
            xmlDoc = Server.MapPath("\navigation\buch6.xml")
        ElseIf ID.StartsWith("a6") = True Then
            xmlDoc = Server.MapPath("\navigation\buch7.xml")
        ElseIf ID.StartsWith("a8") = True Then
            xmlDoc = Server.MapPath("\navigation\anwendungen.xml")
        End If
 
        xd.Load(xmlDoc)
 
        Dim node As System.Xml.XmlNode = xd.SelectSingleNode("//" & id & "")
        Dim newNode As System.Xml.XmlElement
        Dim nodeParent As System.Xml.XmlNode = node.ParentNode
        Dim nodeBefor As System.Xml.XmlNode = xd.SelectSingleNode("//" & _
          getNodeIDBefore(id) & "")
 
        nodeParent.RemoveChild(node)
        newNode = xd.CreateElement(getNodeID(id, node))
        newNode.SetAttribute("html", node.Attributes("html").InnerText)
        newNode.SetAttribute("img", node.Attributes("img").InnerText)
        newNode.SetAttribute("exp", "True")
        newNode.SetAttribute("url", "")
        newNode.SetAttribute("doc", node.Attributes("doc").InnerText)
 
        xd.InsertAfter(newNode, xd.DocumentElement(nodeBefor.Name))
        xd.Save(xmlDoc)
 
        loadxml()

Das Dokument hat bereits einen DocumentElement-Knoten. 
Beschreibung: Beim Ausführen der aktuellen Webanforderung ist ein _
  unverarbeiteter Fehler aufgetreten. Überprüfen Sie die Stapelüberwachung, um _
  weitere Informationen über diesen Fehler anzuzeigen und festzustellen, wo der _
  Fehler im Code verursacht wurde. 
 
Ausnahmedetails: System.InvalidOperationException: Das Dokument hat bereits _
  einen DocumentElement-Knoten.
 
Quellfehler: 
 
 
Zeile 323:        'Response.Write(" newnode.Value: " & newNode.Value)
Zeile 324:        'node.AppendChild(newNode)
Zeile 325:        xd.InsertAfter(newNode, xd.DocumentElement(nodeBefor.Name))
Zeile 326:        xd.Save(xmlDoc)
Zeile 327: