(VBScript) Create XML with Multiple Same-Tag Children

Demonstrates how to create XML where siblings have the identical tags.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' This example creates the following XML:

' <soap:Envelope>
'     <soap:Body>
'         <S:AlternatePartyIds>
'             <S:Id>123456789</S:Id>
'             <S:AssigningPartyId>NationalId</S:AssigningPartyId>
'         </S:AlternatePartyIds>
'         <S:AlternatePartyIds>
'             <S:Id>987654</S:Id>
'             <S:AssigningPartyId>DriversLicense</S:AssigningPartyId>
'             <S:IssuingState>SD</S:IssuingState>
'         </S:AlternatePartyIds>
'     </soap:Body>
' </soap:Envelope>

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
set xml = CreateObject("Chilkat.Xml")
xml.Tag = "soap:Envelope"
xml.UpdateChildContent "soap:Body|S:AlternatePartyIds|S:Id","123456789"
xml.UpdateChildContent "soap:Body|S:AlternatePartyIds|S:AssigningPartyId","NationalId"
xml.UpdateChildContent "soap:Body|S:AlternatePartyIds[1]|S:Id","987654"
xml.UpdateChildContent "soap:Body|S:AlternatePartyIds[1]|S:AssigningPartyId","DriversLicense"
xml.UpdateChildContent "soap:Body|S:AlternatePartyIds[1]|S:IssuingState","SD"

outFile.WriteLine(xml.GetXml())

outFile.Close