Create XML Child Nodes with Attributes

How to create XML child nodes with attributes.

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)


set xml = CreateObject("Chilkat.Xml")

'  The Chilkat XML component is freeware.

xml.Tag = "product"

Set xNode0 = xml.NewChild("properties","")

Set xChild = xNode0.NewChild("price","")
xChild.AddAttribute "SellPrice","11.99"

Set xChild = xNode0.NewChild("price","")
xChild.AddAttribute "BasePrice","11.99"

outFile.WriteLine(xml.GetXml())

'  Prints this:
'  <product>
'     <properties>
'         <price SellPrice="11.99"></price>
'         <price BasePrice="11.99"></price>
'     </properties>
' </product>


outFile.Close