Since you ask ;)
1. set xml = Server.CreateObject("Microsoft.XMLHTTP")
try this with "MSXML2.ServerXMLHTTP.4.0"
2. You don't really need the xml2 object at all, you could change
strStatus = xml.Status
strRetval = xml.responseText
set xml = nothing
Dim xml2
Set xml2 = Server.CreateObject("Msxml2.DomDocument.4.0")
xml2.async = false
xml2.loadXML strRetVal
Dim STANDARDGROUNDTOTAL
STANDARDGROUNDTOTAL = xml2.documentElement.childnodes(16).text
set xml2 = nothing
to
Dim STANDARDGROUNDTOTAL
If xml.status = 200 Then
STANDARDGROUNDTOTAL = xml.responseXML.documentElement.childnodes(16).tex t
End If
Set xml = Nothing
3. a more general point. The way you're getting the STANDARDGROUNDTOTAL out of the xml will be very sensitive to changes in the order of the returned xml - personally I use the selectSingleNode method. Also you should test that the node you expect actually exists before trying to extract its .text property. Something like this:
Set docElem = xml.responseXML.documentElement
If docElem Is Nothing Then
' unexpected XML format received - take some action
Else
Set nodeYouWant = docElem.selectSingleNode("<<path to node here>>")
If nodeYouWant Is Nothing Then
' unexpected XML format received - take some action
Else
STANDARDGROUNDTOTAL = nodeYouWant.text
End If
End If
rgds
Phil
Parsing xml datastream using XMLDOM
