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=VBScri pt %>
<%Response.Buff er=true%>
<%
const SoapServer =
"https://webapps.agbr.co m/AGLinkiDataHost er/AGLinkiDataHost .asmx"
set xmldom = server.CreateOb ject("Microsoft .XMLDOM")
set xmlhttp = server.CreateOb ject("Microsoft .XMLHTTP")
xmlhttp.open "POST", SoapServer, false
xmlhttp.setRequ estHeader "Man" , POST & "
/AGLinkiDataHost er/AGLinkiDataHost .asmx HTTP/1.1"
xmlhttp.setRequ estHeader "Content-Type", "text/xml; charset=utf-8"
xmlhttp.setRequ estHeader "Content-Length", Len(SoapTest)
xmlhttp.setRequ estHeader
"SOAPAction","h ttp://tempuri.org/AGLinkiDataHost er/AGLinkiDataHost/RetrievePromoti onalOpportuniti esList"
xmlhttp.send(So apTest)
if xmlhttp.Status = 200 then '405 means error, 200 means ok. You know
why.
Set xmldom = xmlhttp.respons eXML
Dim xml
Set xml = Server.CreateOb ject("Microsoft .XMLDOM")
'Set xml = Server.CreateOb ject("Msxml2.DO MDocument.3.0")
xml.setProperty "SelectionLangu age", "XPath"
xml.async = False
xml.loadXML xmldom.xml
dim nodes, node, attrs, attr, i
set nodes = nothing
path="/RetrievePromoti onalOpportuniti esListResponse" & _
"/RetrievePromoti onalOpportuniti esListResult/deals" & _
"/escanoffers/escanoffer"
'set node = xml.selectnodes (path)
set node = xml.selectnodes ("//escanoffer")
'set node =
xmldom.selectno des("/RetrievePromoti onalOpportuniti esListResponse/RetrievePromoti onalOpportuniti esListResult/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="&xmlht tp.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:Enve lope
xmlns:xsi=""htt p://www.w3.org/2001/XMLSchema-instance""
xmlns:xsd=""htt p://www.w3.org/2001/XMLSchema""
xmlns:soap=""ht tp://schemas.xmlsoap .org/soap/envelope/"">"
SoapTest = SoapTest & " <soap:Body>"
SoapTest = SoapTest & " <RetrievePromot ionalOpportunit iesList
xmlns=""http://tempuri.org/AGLinkiDataHost er/AGLinkiDataHost "">"
SoapTest = SoapTest & " <Username>ROUSE CORP</Username>"
SoapTest = SoapTest & " <Password>agR18 !</Password>"
SoapTest = SoapTest & " </RetrievePromoti onalOpportuniti esList>"
SoapTest = SoapTest & " </soap:Body>"
SoapTest = SoapTest & "</soap:Envelope>"
end function
%>
~_~_~_~End Script~_~_~_~
