Devo creare un file xml del tipo:

<corpo>
<paragrafo id=0>
<testo>0</testo>
<appendice>0</appendice>
</paragrafo>

<paragrafo id=1>
<testo>1</testo>
<appendice>1</appendice>
</paragrafo>

</corpo>

Al momento riesco solo a inserire i nodi 'paragrafo' ma non i sottonodi:

Dim xmldoc
Set xmldoc = Server.CreateObject("Microsoft.XMLDOM")
xmldoc.preserveWhiteSpace = true
Set objPI = xmldoc.createProcessingInstruction("xml", " version='1.0' encoding='iso-8859-1'")
xmldoc.insertBefore objPI, xmldoc.childNodes(0)

Set root = xmldoc.createNode("element", "corpo", "")
xmldoc.appendChild (root)

for x=0 to 1
Set figlio = xmldoc.createNode("element", "paragrafo" & 0, "")
figlio.Text = x
figlio.setattribute "id", x
xmldoc.documentElement.appendChild (figlio)
Set figlio = nothing
next
xmldoc.save (nome_file)

Come devo fare?