Summary This sample illustrates an example of adding an attribute to an element and also demonstrates adding a child element.

Additional information

function doInsert() dim objNode, objDOM, strXPath, objParentNode, objChildNode '//////////////////////////////// '////// Create and display the original XML Document /////// '//////////////////////////////// 'Create an XML DOM object from the XML file Set objDOM = CreateObject("Microsoft.XMLDOM") objDOM.async = false objDOM.load("Customers.xml") 'Display the original XML values txtOrig.value = objDOM.xml '//////////////////////////////// '////// Add an attribute to the element where CustomerID = "ANATR" /////// '//////////////////////////////// 'Select the node for which CustomerID = "ANTON" Note that we select attribute values using the "@" 'Define the XPath that references the element where CustomerID = 'ANATR' strXPath = "/customers/customer[@CustomerID='ANATR'~" 'Create a reference to the element for the XPath Query Set objParentNode = CreateObject("Microsoft.XMLDOM") set objParentNode = objDOM.selectSingleNode(strXPath) 'Add an attribute with a name="email" and a value = "markgoldin@attbi.com" AddNodeAttribute objDOM, objParentNode, "email", "YourName@hotmail.com" 'Display the contents of the XML DOM with the New Attribute added txtNew.value = objDOM.xml '//////////////////////////////// '////// Add a child element to the element modified above (where CustomerID = "ANATR") /////// '//////////////////////////////// 'Create a new element with the name of "abc" AddDomElement objParentNode, "abc", "Value of New Element" 'Display the contents of the XML DOM with the New Attribute added AND the new child element txtNewWithChild.value = objDOM.xml end function Sub AddDomElement(objParentNode, strName, strValue) Dim objDOM, objNode Set objDOM = CreateObject("Microsoft.XMLDOM") Set objNode = objDOM.createElement(strName) objNode.Text = strValue objParentNode.appendChild objNode End Sub Sub AddNodeAttribute(objDom, objNode, strName, strValue) Dim objAttrib Set objAttrib = objDOM.createAttribute(strName) objAttrib.Text =strValue objNode.Attributes.setNamedItem objAttrib objDOM.documentElement.appendChild objNode End Sub