opret - ret - slet i xml

set objXml = Server.CreateObject("Microsoft.XMLDOM")
  objXML.async = False
  objXML.Load(Server.MapPath("../db/messageboard.xml"))
 
  if objXML.parseError.errorCode <> 0 Then
      Response.Write objXML.parseError.reason
  End If

 
  Select Case Request.Form("opg")
      Case "first"
        Set message = objXML.createElement("message")
     
        message.appendChild objXML.createElement("author")
        message.appendChild objXML.createElement("email")
        message.appendChild objXML.createElement("subject")
        message.appendChild objXML.createElement("date")
        message.appendChild objXML.createElement("text")
        message.appendChild objXML.createElement("replies")

        If objXML.documentelement.hasChildNodes Then
            newID = (CInt(objXML.documentelement.lastChild.getAttribute("id")) + 1)
        Else
            newID = 1
        End If
     
        message.setAttribute("id") = newID
        message.childNodes(0).text = Request.Form("name")
        message.childNodes(1).text = Request.Form("email")
        message.childNodes(2).text = Request.Form("subject")
        message.childNodes(3).text = now()
        message.childNodes(4).text = Request.Form("message")     
        objXML.documentElement.appendChild message.cloneNode(true)
        worked = 1 
 
      Case "reply"
        Set messageList = objXML.getElementsByTagName("message")
        For i = 0 to (messageList.length - 1 )
            If (messageList.item(i).getAttribute("id") = Request.Form("id")) Then
              Set message = messageList.item(i)
            End If
        Next   
       
        If message.childNodes(5).hasChildNodes Then
            Set tmpList = message.childNodes(5).childNodes
            newId = Request.Form("id") & ":" & CStr((tmpList.length + 1))
        Else
            newId = Request.Form("id") & ":1"
        End If

        Set reply = objXML.createElement("message")

        reply.appendChild objXML.createElement("author")
        reply.appendChild objXML.createElement("email")
        reply.appendChild objXML.createElement("subject")
        reply.appendChild objXML.createElement("date")
        reply.appendChild objXML.createElement("text")
        reply.appendChild objXML.createElement("replies")

        reply.setAttribute("id") = newID
        reply.childNodes(0).text = Request.Form("name")
        reply.childNodes(1).text = Request.Form("email")
        reply.childNodes(2).text = Request.Form("subject")
        reply.childNodes(3).text = now()
        reply.childNodes(4).text = Request.Form("message")     
        message.childNodes(5).appendChild reply.cloneNode(true)
        worked = 1
  End Select

  objXML.Save(Server.MapPath("../db/messageboard.xml"))'
  Set objXML = Nothing
 
  If Request.Form("lang")="dk" Then
      Response.Write "<center><br>Din besked er oprettet <br>Tak !" & _
                    "<br><a Href=" & ASPHostPath & "/messageboard/onesubjectdk.asp?id=" & newId & _
                    ">Tilbage til aktuel besked</A><br><br><br><br><br><br><br><br><br><br><br>"
                   
  Else
      Response.Write "<center><br>Your message has been submitted<br>Thank you !" & _
                    "<A Href=" & ASPHostPath & "/messageboard/onesubject.asp?id=" & newId & _
                    ">Back to subject</A><br><br><br><br><br><br><br><br><br><br><br>"
  End If

/Morten

Det er lidt rodet men det virker :-)

det er selve opret-delen... right? hvad med ret og slet?

mht ret ligger der vel to ting i det - både ret i et eksisterende element men også tilføjelse af et nyt element i samtlige de foregående poster.

Slet-delen (jvf. ovennævnte create):

d = document.getElementById("message");

d_nested = document.getElementById("author");

throwaway_node = d.removeChild(d_nested);

Og ret-delen er vel bare ligesom i mit første svar hvor værdier først tildeles efter at noder er oprettet :

reply.setAttribute("id") = newID
        reply.childNodes(0).text = Request.Form("name")
        reply.childNodes(1).text = Request.Form("email")
        reply.childNodes(2).text = Request.Form("subject")
        reply.childNodes(3).text = now()
        reply.childNodes(4).text = Request.Form("message")     

/Morten

Kan du bruge det ?

ser godt ud - har endnu ikke prøvet det hele af, men starter godt... spm lukkes og tak for hjælpen