S
shank
The below partial code gets UPS rates. It's based on a request and response.
I can get the request to write to screen with "response.write
server.HTMLEncode(strXML)".
How can I get the response to write to screen so I can see what's being
returned by UPS?
thanks
<%
strXML is established above here.....
Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.Open "POST","https://www.ups.com/ups.app/xml/Rate?",false
xmlhttp.setRequestHeader "Content-Type",
"application/x-www-form-urlencoded"
' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
= = = = =
'this code writes UPS XML Request and Response to screen
' response.write server.HTMLEncode(strXML)
' response.End()
' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
= = = = =
xmlhttp.send strXML
xml_response = xmlhttp.responseText
Set mydoc=Server.CreateObject("Microsoft.xmlDOM")
mydoc.loadxml( xml_response )
Set Response_NodeList = mydoc.documentElement.selectNodes("Response")
ups_result =
Response_NodeList.Item(0).selectSingleNode("ResponseStatusCode").Text
......
%>
I can get the request to write to screen with "response.write
server.HTMLEncode(strXML)".
How can I get the response to write to screen so I can see what's being
returned by UPS?
thanks
<%
strXML is established above here.....
Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.Open "POST","https://www.ups.com/ups.app/xml/Rate?",false
xmlhttp.setRequestHeader "Content-Type",
"application/x-www-form-urlencoded"
' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
= = = = =
'this code writes UPS XML Request and Response to screen
' response.write server.HTMLEncode(strXML)
' response.End()
' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
= = = = =
xmlhttp.send strXML
xml_response = xmlhttp.responseText
Set mydoc=Server.CreateObject("Microsoft.xmlDOM")
mydoc.loadxml( xml_response )
Set Response_NodeList = mydoc.documentElement.selectNodes("Response")
ups_result =
Response_NodeList.Item(0).selectSingleNode("ResponseStatusCode").Text
......
%>