Установите oXML = Server.CreateObject («MSXML2.DomDocument.6.0»)
oXML.async = ложно: oXML.resolveExternals = ложно
Установите oRoot = oXML.createElement («корень»)
oRoot oXML.appendChild
Сделайте пока не Rs.Eof
Установите oNode = oXML.createElement («heydon»)
Установите oSubNode = oXML.createElement («испытание»)
oSubNode.text = rs (0)
oNode.AppendChild (oSubNode)
Установите oSubNode = oXML.createElement («испытание»)
oSubNode.text = rs (1)
oNode.AppendChild (oSubNode)
oRoot.AppendChild (oNode)
oRS.MoveNext
Петля