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?

Rispondi quotando