Reeks oXML = Server.CreateObject („MSXML2.DomDocument.6.0“)
oXML.async = Vals: oXML.resolveExternals = Vals
Reeks oRoot = oXML.createElement („wortel“)
oXML.appendChild oRoot
Doe terwijl niet Rs.Eof
Plaats oNode = oXML.createElement („heydon“)
Plaats oSubNode = oXML.createElement („test“)
oSubNode.text = rs (0)
oNode.AppendChild (oSubNode)
Reeks oSubNode = oXML.createElement („test“)
oSubNode.text = rs (1)
oNode.AppendChild (oSubNode)
oRoot.AppendChild (oNode)
oRS.MoveNext
Lijn