Dim xmlDoc As String
        Dim nodeBeforeId As String
        Dim redirectID As String
        Dim docNum As Integer = CInt(id.Substring(1, 1)) + 1
 
        xmlDoc = Server.MapPath("\navigation\buch" & docNum.ToString() & ".xml")
        redirectID = id.Substring(0, id.IndexOf("_"))
        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
 
        newNode = xd.CreateElement(getNodeID(id, node))
        newNode.SetAttribute("html", node.Attributes("html").InnerText.Replace( _
          node.Name, newNode.Name))
        newNode.SetAttribute("img", node.Attributes("img").InnerText)
        newNode.SetAttribute("exp", "True")
        newNode.SetAttribute("url", "")
        newNode.SetAttribute("doc", node.Attributes("doc").InnerText)
 
        nodeBeforeId = getNodeIDBefore(id, nodeParent)
        If nodeBeforeId <> "" Then
            nodeParent.InsertBefore(newNode, nodeParent.SelectSingleNode("//" & _
              nodeBeforeId & ""))
            nodeParent.RemoveChild(node)
 
            xd.Save(xmlDoc)
 
            Response.Redirect("naviadmin.aspx?id=" & redirectID)
        End If
 
    End Sub