<html>
<body>
<script language="vbscript">
Dim xmlDoc
Dim MyNode
Dim root
Set xmlDoc = CreateObject("Msxml2.DOMDocument.4.0")
xmlDoc.async = False
xmlDoc.load("candidate.xml")
Set root = xmlDoc.documentElement
document.write root.xml
document.write "<br>--------------------------<br>"
Set MyNode = xmlDoc.createNode(1, "SampleNode", "")
mynode.text="<this is my new node>"
root.appendChild(MyNode)
msgbox xmlDoc.documentElement.xml
document.write xmlDoc.documentElement.xml
</script>
</body>
</html>