Something is strange here. Some htmlencoding is occurring somewhere. Is
this
really what it looks like?
YES
What about when you View Source?
THAT IS WHAT I SENT YOU
Do the < become < ?
NO
Could this be a problem on the host side??
I thought this could be a firewall issue. I ran the script from a box
sitting outside, same result.
My entire script is below. User name & password changed for security.
~_~_~_~Begin Script~_~_~_~
<%@ Language=VBScript %>
<%Response.Buffer=true%>
<%
const SoapServer =
"https://webapps.agbr.com/AGLinkiDataHoster/AGLinkiDataHost.asmx"
set xmldom = server.CreateObject("Microsoft.XMLDOM")
set xmlhttp = server.CreateObject("Microsoft.XMLHTTP")
xmlhttp.open "POST", SoapServer, false
xmlhttp.setRequestHeader "Man" , POST & "
/AGLinkiDataHoster/AGLinkiDataHost.asmx HTTP/1.1"
xmlhttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
xmlhttp.setRequestHeader "Content-Length", Len(SoapTest)
xmlhttp.setRequestHeader
"SOAPAction","http://tempuri.org/AGLinkiDataHoster/AGLinkiDataHost/RetrievePromotionalOpportunitiesList"
xmlhttp.send(SoapTest)
if xmlhttp.Status = 200 then '405 means error, 200 means ok. You know
why.
Set xmldom = xmlhttp.responseXML
Dim xml
Set xml = Server.CreateObject("Microsoft.XMLDOM")
'Set xml = Server.CreateObject("Msxml2.DOMDocument.3.0")
xml.setProperty "SelectionLanguage", "XPath"
xml.async = False
xml.loadXML xmldom.xml
dim nodes, node, attrs, attr, i
set nodes = nothing
path="/RetrievePromotionalOpportunitiesListResponse" & _
"/RetrievePromotionalOpportunitiesListResult/deals" & _
"/escanoffers/escanoffer"
'set node = xml.selectnodes(path)
set node = xml.selectnodes("//escanoffer")
'set node =
xmldom.selectnodes("/RetrievePromotionalOpportunitiesListResponse/RetrievePromotionalOpportunitiesListResult/deals/escanoffers")
if not nodes is nothing then
for i = 0 to nodes.length - 1
set attrs = node.attributes
for x = 0 to attrs.length-1
set attr=attrs.item(x)
response.write "nodename:" & attr.nodename & "<br>"
response.write "nodevalue:" & attr.nodevalue & "<br>"
next
set node = nodes.nextnode
next
end if
'Set xml = Nothing
Response.write(xml.xml)
Else
Response.Write("Didn't Work<BR>")
Response.Write("status="&xmlhttp.status)
Response.write("<BR>"&xmlhttp.statusText)
Response.Write("<BR>"&Request.ServerVariables("ALL _HTTP"))
End if
set xmlhttp = nothing
set xmldom = nothing
function SoapTest()
SoapTest = SoapTest & "<soap:Envelope
xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance""
xmlns:xsd=""http://www.w3.org/2001/XMLSchema""
xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">"
SoapTest = SoapTest & " <soap:Body>"
SoapTest = SoapTest & " <RetrievePromotionalOpportunitiesList
xmlns=""http://tempuri.org/AGLinkiDataHoster/AGLinkiDataHost"">"
SoapTest = SoapTest & " <Username>ROUSECORP</Username>"
SoapTest = SoapTest & " <Password>agR18!</Password>"
SoapTest = SoapTest & " </RetrievePromotionalOpportunitiesList>"
SoapTest = SoapTest & " </soap:Body>"
SoapTest = SoapTest & "</soap:Envelope>"
end function
%>
~_~_~_~End Script~_~_~_~
