Code (VBScript):
Set objXMLDoc = CreateObject("Microsoft.XMLDOM")
objXMLDoc.async = False
objXMLDoc.load("quotations.xml")
Dim root, objNewEntityRef, currNode
Set root = objXMLDoc.documentElement
Set objNewEntityRef = objXMLDoc.createEntityReference("newRef")
root.appendChild(objNewEntityRef)
Set currNode = root.lastChild
document.write(currNode.nodeType)
document.write("<br>" & currNode.nodeName)
Output:
5
newRef