<% SOAP_ENDPOINT = "" SOAP_NS = "" SOAP_FUNCTION = "" SOAP_REQUEST = "" SOAP_RESPONSE = "" function SOAP_StartRequest(sEndPoint, sNameSpace, sFunction) SOAP_ENDPOINT = sEndPoint SOAP_NS = sNameSpace SOAP_FUNCTION = sFunction 'do the SOAP envelope SOAP_REQUEST = "" SOAP_REQUEST = SOAP_REQUEST + " " 'start the SOAP body SOAP_REQUEST = SOAP_REQUEST + "" 'start function SOAP_REQUEST = SOAP_REQUEST + "<" + SOAP_FUNCTION + " xmlns=""" + SOAP_NS + """>" end function Function SOAP_AddParameter(byval strParam, byval strValue) Dim strSoap SOAP_REQUEST = SOAP_REQUEST + "<" + strParam + ">" SOAP_REQUEST = SOAP_REQUEST + strValue SOAP_REQUEST = SOAP_REQUEST + "" End Function function SOAP_SendRequest() 'end function, body and envelope SOAP_REQUEST = SOAP_REQUEST + "" SOAP_REQUEST = SOAP_REQUEST + "" SOAP_REQUEST = SOAP_REQUEST + "" Dim oHttp Dim strResult Set oHttp = CreateObject("Msxml2.XMLHTTP") oHttp.open "POST", SOAP_ENDPOINT, false oHttp.setRequestHeader "Content-Type", "text/xml" oHttp.setRequestHeader "SOAPAction", SOAP_NS + "/" & SOAP_FUNCTION oHttp.send SOAP_REQUEST SOAP_RESPONSE = oHttp.responseText end function Function SOAP_GetResult(resultParam) Dim oXml Set oXml = CreateObject("Msxml2.DOMDocument") oXml.Async = true oXml.LoadXml SOAP_RESPONSE Dim strPath strPath = "/*/*//" + resultParam Dim oNode Set oNode = oXml.documentElement.SelectSingleNode(strPath) SOAP_GetResult = oNode.Text End Function %>