<%@ Language=VBScript %> <%Response.Buffer=true%> <% const SoapServer = "http://www.yourserver.com/SOAP/server.asp" set xmldom = server.CreateObject("Microsoft.XMLDOM") set xmlhttp = server.CreateObject("Microsoft.XMLHTTP") xmlhttp.open "POST", SoapServer, false xmlhttp.setRequestHeader "Man", POST & " " & SoapServer & " HTTP/1.1" xmlhttp.setRequestHeader "MessageType", "CALL" xmlhttp.setRequestHeader "ContentType", "text/xml" xmlhttp.send(SoapTest) if xmlhttp.Status = 200 then '405 means error, 200 means ok. You know why. Set xmldom = xmlhttp.responseXML Response.write(xmldom.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:SOAP=""urn:schemas-xmlsoap-org:soap.v1"">" SoapTest = SoapTest & "<SOAP:Body>" SoapTest = SoapTest & "<TestRequest>" SoapTest = SoapTest & "<auth>HotGnibGnabs</auth>" SoapTest = SoapTest & "<message>What's the word?</message>" SoapTest = SoapTest & "</TestRequest>" SoapTest = SoapTest & "</SOAP:Body>" SoapTest = SoapTest & "</SOAP:Envelope>" end function %>