Regolare il oXML = Server.CreateObject (“MSXML2.DomDocument.6.0„)
oXML.async = falso: oXML.resolveExternals = falso
Regolare il oRoot = oXML.createElement (“radice„)
oRoot di oXML.appendChild
Fare mentre non Rs.Eof
Regolare il oNode = oXML.createElement (“heydon„)
Regolare il oSubNode = oXML.createElement (“prova„)
oSubNode.text = rs (0)
oNode.AppendChild (oSubNode)
Regolare il oSubNode = oXML.createElement (“prova„)
oSubNode.text = rs (1)
oNode.AppendChild (oSubNode)
oRoot.AppendChild (oNode)
oRS.MoveNext
Ciclo