my script just aims to append a new child node (that has been read in from
an html form) to an existing 3 tier (incl. root element) xml doc...i get
a 500 error ...comment in the code below indicates where i suspect (but can't
figure out why) problem exists...any help would be appreciated...TIA!
<%
Dim objXMLDoc
Dim objParentNode
Dim objNewEntry
Dim objNewParentNode
Dim objNewDateText
Dim objNewBlurbText
Dim objNewLink1Text
Dim objNewLink2Text
Dim objNewDateElement
Dim objNewBlurbElement
Dim objNewLink1Element
Dim objNewLink2Element
Dim newDate, newBlog, newLink1, newLink2

Set objXMLDoc = CreateObject("Microsoft.XMLDOM")
objXMLDoc.async = False
objXMLDoc.load("blurb.xml")

newDate = Request.Form("date")
newBlog = Request.Form("blurb")
newLink1 = Request.Form("link1")
newLink2 = Request.Form("link2")

Set objNewDateElement = objXMLDoc.createElement("date")
Set objNewDateText = objXMLDoc.createTextNode(newDate)
objNewDateElement.appendChild(objNewDateText)

Set objNewBlurbElement = objXMLDoc.createElement("blurb")
Set objNewBlurbText = objXMLDoc.createTextNode(newBlurb)
objNewBlurbElement.appendChild(objNewBlurbText)

Set objNewLink1Element = objXMLDoc.createElement("link1")
Set objNewLink1Text = objXMLDoc.createTextNode(newLink1)
objNewLink1Element.appendChild(objNewLink1Text)

Set objNewLink2Element = objXMLDoc.createElement("link2")
Set objNewLink2Text = objXMLDoc.createTextNode(newLink2)
objNewLink2Element.appendChild(objNewLink2Text)

Set objNewEntry = objXMLDoc.createElement("entry")
objNewEntry.appendChild(objNewDateElement)
objNewEntry.appendChild(objNewBlurbElement)
objNewEntry.appendChild(objNewLink1Element)
objNewEntry.appendChild(objNewLink2Element)

Set objParentNode = objXMLDoc.documentElement

'THIS IS LINE WHERE I THINK PROBLEM IS
objParentNode.appendChild(objNewEntry)

'code goes on to save the xml doc from here to end