Thursday, February 23, 2006

Create XML object and post it ovet HTTP to a URL

Dim oxmldoc As New XmlDocument
oxmldoc.Load("c:\BarclaysXML\CCBarcl.xml")


Dim xmlHttp As Object
Dim strXMLResponse As String
xmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
xmlHttp.Open("POST", https://www.motounlock.net, False)
xmlHttp.send(oxmldoc.OuterXml)
strXMLResponse = xmlHttp.responseText

No comments: