Set myxml = CreateObject("Microsoft.XMLHTTP")
Set myxsl = CreateObject("MSXML2.DOMDocument")
myxsl.Load ("myfile.xsl")
Set mydoc = CreateObject("MSXML2.DOMDocument")
CommandText = "Select <<fields>> From <<table>>"
Set qry = DBConn.Execute(CommandText, , adCmdText)
If qry.BOF And qry.EOF Then
Else
qry.MoveFirst
Do While Not qry.EOF
'******************************
'myXMLquery is defined here
'******************************
mydoc.loadXML myXMLquery
Dummy = LogIt("mydoc.loadXML loaded")
If mydoc.parseError.ErrorCode Then
Dummy = LogIt("mydoc.parseError.ErrorCode = " & mydoc.parseError.ErrorCode)
Else
myxml.Open "GET", "http://<<otherserver>>", False
Dummy = LogIt("myXML.Open successful")
myxml.setRequestHeader "Content-type", "text/xml"
myxml.Send mydoc
Dummy = LogIt("XML document sent")
Set myresponse = myxml.responseXML
Dummy = LogIt("XML response received")
'******************************
'now process the response
'******************************
myresponse.transformNodeToObject myxsl, mydoc
'results stored in a database here
End If
qry.MoveNext
Loop
End If
qry.Close
Set qry = Nothing
Set mydoc = Nothing
Set myxml = Nothing
Set myxsl = Nothing
Set myresponse = Nothing
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.
Our community of experts have been thoroughly vetted for their expertise and industry experience.