Create XML Child Nodes with Attributes

How to create XML child nodes with attributes.

LOCAL loXml
LOCAL loXNode0
LOCAL loXChild


loXml = CreateObject('Chilkat.Xml')

*  The Chilkat XML component is freeware.

loXml.Tag = "product"

loXNode0 = loXml.NewChild("properties","")

loXChild = loXNode0.NewChild("price","")
loXChild.AddAttribute("SellPrice","11.99")
RELEASE loXChild

loXChild = loXNode0.NewChild("price","")
loXChild.AddAttribute("BasePrice","11.99")
RELEASE loXChild

RELEASE loXNode0

? loXml.GetXml()

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