Simple XML Example

From: James Baker (cppjames_at_hotmail.com)
Date: 08/19/04 

Date: Thu, 19 Aug 2004 10:03:00 -0400

I have a very simple query that gets a few records from a database. I need
to take this, turn it into XML and post it to a client's website via
VBScript. I was able to find an example of exporting the data to an XML
file, but I'm lost on the syntax for actually posting the data to a third
party page. I'm sure this is simple, can someone provide me with an
example? Thanks!

Relevant code currently is:

Response.ContentType = "text/xml"

Dim ObjADORS
Const adPersistXML = 1

Set ObjADORS = Server.CreateObject("ADODB.Recordset")

'FileNumber, ClientFileNo, StatusDate, StatusTime, StatusComment
ObjADORS.Open "SELECT FormType, Description FROM FormTypes",
"DSN=kasecure1;uid=sa;pwd=pcbs"

ObjADORS.Save "c:\inetpub\wwwroot\manager\Test.xml", adPersistXML

ObjADORS.Close
Set ObjADORS = Nothing