
<%@ 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	
%>