Fijar el oXML = Server.CreateObject (“MSXML2.DomDocument.6.0”)
oXML.async = falso: oXML.resolveExternals = falso
Fijar el oRoot = oXML.createElement (la “raíz”)
oRoot de oXML.appendChild
Hacer mientras que no Rs.Eof
Fijar el oNode = oXML.createElement (el “heydon”)
Fijar el oSubNode = oXML.createElement (la “prueba”)
oSubNode.text = rs (0)
oNode.AppendChild (oSubNode)
Fijar el oSubNode = oXML.createElement (la “prueba”)
oSubNode.text = rs (1)
oNode.AppendChild (oSubNode)
oRoot.AppendChild (oNode)
oRS.MoveNext
Lazo