I am banging my head against the wall here. Can someone tell me if it is my code or could it be something on the server side?
Code:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%
Dim strTEST
Dim objDOM
set objDOM = Server.CreateObject("MSXML2.DOMDocument.4.0")
objDOM.async=false
strTEST = "<?xml version=""1.0"" encoding=""utf-8""?>"
strTEST = strTEST & "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" "
strTEST = strTEST & "xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" "
strTEST = strTEST & "xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">"
strTEST = strTEST & "<soap:Body><InboundTraffic xmlns=""http://tempuri.org/""><request>"
strTEST = strTEST & "<MygrantXMLOrderingSystemRequest><RequestHeader><EnvironmentID>TEST</EnvironmentID>"
strTEST = strTEST & "<CustomerID>C012949-001</CustomerID><CustomerContact>RobS</CustomerContact><WebUserID>broadtest</WebUserID>"
strTEST = strTEST & "<Password>password</Password><PurchaseOrderNo>PO12345</PurchaseOrderNo><OrderDeliveryNote>Buyer Comment</OrderDeliveryNote><RequestType>Inquiry</RequestType><VersionNumber>1.0</VersionNumber></RequestHeader>"
strTEST = strTEST & "<RequestSet><RequestItem><RequestItemNo>1</RequestItemNo><RequestDetail><RequestNAGSPrefix>DW</RequestNAGSPrefix><RequestNAGSNumber>01206</RequestNAGSNumber><RequestNAGSColor>GB</RequestNAGSColor><RequestNAGSHardwareIndicator>Y</RequestNAGSHardwareIndicator><RequestNAGSPremiumIndicator>N</RequestNAGSPremiumIndicator><RequestBrand>FYG</RequestBrand><RequestQuantity>1</RequestQuantity><OrderLineDeliveryNote>This is a test order, glass</OrderLineDeliveryNote></RequestDetail></RequestItem><RequestItem><RequestItemNo>2</RequestItemNo><RequestDetail><RequestProductID>BKT 6856</RequestProductID><RequestBrand>PER</RequestBrand><RequestQuantity>1</RequestQuantity><OrderLineDeliveryNote>This is a test order, moulding</OrderLineDeliveryNote></RequestDetail></RequestItem></RequestSet><RequestStatusCode>0</RequestStatusCode><RequestStatusText>Success</RequestStatusText></MygrantXMLOrderingSystemRequest>"
strTEST = strTEST & "</request></InboundTraffic></soap:Body>"
strTEST = strTEST & "</soap:Envelope>"
objDOM.loadXML(strTEST)
Set oXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")
Call oXMLHTTP.setTimeouts(60000, 60000, 300000, 300000)
oXMLHTTP.Open "POST","http://75.21.47.101/CoRE650WebService/CoRE650WebService/CoRE650WebService.asmx", false
oXMLHTTP.SetRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHTTP.SetRequestHeader "Content-length", len(strTEST)
oXMLHTTP.SetRequestHeader "SOAPAction", "http://tempuri.org/InboundTraffic"
oXMLHTTP.send objDOM.xml
'TEST
response.write " Response=" & oXMLHTTP.status & "**"
response.write " Response status=" & oXMLHTTP.statusText & "**"
strResult = "Response text: " & oXMLHTTP.responseText & "**"
response.write strResult
response.write " Response header=" & oXMLHTTP.getAllResponseHeaders & "**"
response.End
%>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
<title>Untitled Page</title>
</head>
<body>
<form id="form1" runat="server">
<div>
</div>
</form>
</body>
</html>
Comment