Hej ,

Sitter och bygger ett redigerings verktyg till xml språk filer och nu vill jag kunna lägga till en nod,

Men får inte till det ?

Hittade detta på msdn.com:
<code>
Dim xmlDoc As New Msxml2.DOMDocument30
Dim root As IXMLDOMElement
Dim MyText As IXMLDOMText
Dim MyNewNode As IXMLDOMNode
xmlDoc.async = False
xmlDoc.loadXML "<root><child/></root>"
If (xmlDoc.parseError.errorCode <> 0) Then
Dim myErr
Set myErr = xmlDoc.parseError
MsgBox("You have error " & myErr.reason)
Else
Set root = xmlDoc.documentElement
Set MyText = xmlDoc.createTextNode("Hello World")
Set MyNewNode = root.insertBefore(MyText, root.childNodes.Item(0))
MsgBox (xmlDoc.xml)
End If
</code>

Någon som har någon erfarenhet av detta ? som kan hjälpa mig ?

Ja jag får inte till det, här är min kod ,
jag hämtar den jag vill ändra och om den är ok ska jag ju lägga till en nod som ska se ut så här:

<translation name="strName">strContent</translation>

<code>
strFile = Request.Form("txtFile")

Set XMLDoc = CreateObject("MSXML2.DOMDocument.4.0")
XMLDoc.setProperty "ServerHTTPRequest", True
XMLDoc.async = False
XMLDoc.validateOnParse = False
XMLDoc.resolveExternals = False
XMLDoc.Load (Request.ServerVariables("appl_physical_path")&"lib_languages/"& strFile &"")

If (XMLDoc.parseError.errorCode <> 0) Then
Response.Write "XML error: " & xmlDoc.parseError.Reason
Else

strName = Request.Form("txtName")
strContent = Request.Form("txtContent")


Response.Write "Lägger till noder och stänger fönstret"

End If

Set XMLDoc = Nothing
</code>

Kan du hjälpa mig med detta ?