xml.vbs

On Error resume next

set oXML=CreateObject("Microsoft.XMLDOM")
set pi=oXML.createProcessingInstruction("xml"," version='1.0' encoding='UTF-8'")
oXML.appendChild(pi)

set rootnode=oXML.createElement("query")
oXML.appendChild(rootnode)

set cx=createobject("ADODB.Connection")
if Err.Number<> 0  then
   WScript.Stdout.Write "Error on createobject ADODB.Connection"
else
   cx.connectionstring="dsn=test_odbc;uid=usr;pwd=passwd;"
   cx.open
   if Err.Number<> 0  then
      WScript.Stdout.Write "Error on connect to DB"
   else
      set cr=createobject("ADODB.Recordset")
      set cr.activeconnection=cx
      cr.open "select * from systables"
      if Err.Number<> 0  then
         WScript.Stdout.Write "Error on Select"
      else
        while cr.EOF=false
          set rownode=oXML.createElement("row")
          rootnode.appendChild(rownode)
          for each x in cr.fields
            set fieldnode=oXML.createElement(x.name)
            fieldnode.text=x.value
            rownode.appendChild(fieldnode)
            Set fieldnode = nothing
            if Err.Number<> 0  then
              WScript.Stdout.Write "Errr"
            else
            end if
          next
          Set rownode = nothing  
          cr.MoveNext
        wend
      end if
      cr.close
   end if
   cx.close
end if
oXML.save("foobar.xml")