Placer l'oXML = le Server.CreateObject (« MSXML2.DomDocument.6.0 »)
oXML.async = faux : oXML.resolveExternals = faux
Placer l'oRoot = l'oXML.createElement (la « racine »)
oRoot d'oXML.appendChild
Faire tandis que pas Rs.Eof
Placer l'oNode = l'oXML.createElement (le « heydon »)
Placer l'oSubNode = l'oXML.createElement (le « essai »)
oSubNode.text = rs (0)
oNode.AppendChild (oSubNode)
Placer l'oSubNode = l'oXML.createElement (le « essai »)
oSubNode.text = rs (1)
oNode.AppendChild (oSubNode)
oRoot.AppendChild (oNode)
oRS.MoveNext
Boucle