SOAP sample execution

Hi,

I have wriiten a sample SoapClient.asp and the corresponding Soap .asp which serves the purpose of thr Server.

I am completely new to the SOAP environment and have developed the sample application based on the help gathered from the net. However, when I try to execute the SoapClient.asp nothing happens.

When I try to put a break point in my ASP to step through the code the control does not reach the ASP at all.

Could you help be on how to proceed with the execution????

Please find below the sample of the SoapClient.asp,

'Dim objHTTP As New MSXML.XMLHTTPRequest
Dim strReturn
Dim dblTax
Dim strQuery

'Create the SOAP Envelope
strEnvelope = _
"<SOAP:Envelope xmlns:SOAP='urn:schemas-xmlsoap-org:soap.v1'>" & _
"<SOAP:Header></SOAP:Header>" & _
"<SOAP:Body>" & _
"<m:GetSalesTax xmlns:m='urn:myserver/soap:TaxCalc'>" & _
"<SalesTotal>4</SalesTotal>" & _
"</m:GetSalesTax>" & _
"</SOAP:Body>" & _
"</SOAP:Envelope>"

'Set up to post to our local server
set objHTTP = Server.CreateObject("microsoft.XMLHTTP")
objHTTP.open "post", "http://localhost/SOAPTRY/soap.asp", False

'Set a standard SOAP/ XML header for the content-type
objHTTP.setRequestHeader "Content-Type", "text/xml"

'Set a header for the method to be called
objHTTP.setRequestHeader "SOAPMethodName", _
"urn:myserver/soap:TaxCalculator#GetSalesTax"

'Make the SOAP call
objHTTP.send strEnvelope

'Get the return envelope
strReturn = objHTTP.responseText

'Load the return envelope into a DOM
set objReturn = Server.CreateObject("microsoft.xmldom")
objReturn.loadXML strReturn

'Query the return envelope
strQuery = _
"SOAP:Envelope/SOAP:Body/m:GetSalesTaxResponse/SalesTax"
dblTax = objReturn.selectSingleNode(strQuery).Text

Debug.Print dblTax


Please find below the Soap.asp
-----------------------------------------

Set objReq = Server.CreateObject("Microsoft.XMLDOM")

'Load the request into XML DOM
objReq.Load Request

'Query the DOM for the input parameter
strQuery = "SOAP:Envelope/SOAP:Body/m:GetSalesTax/SalesTotal"
varSalesTotal = objReq.SelectSingleNode(strQuery).Text

'Calculate the sales tax
varSalesTax = varSalesTotal * 0.04

'Prepare the return envelope
strTmp = _
"<soap:envelope xmlns:soap=""urn:schemas-xmlsoap-org:soap.v1"">" & _
"<soap:header></soap:header>" & _
"<soap:body>" & _
"<m:getsalestaxresponse xmlns:m=""urn:myserver/soap:TaxCalc"">" & _
"<salestax>" & varSalesTax & "</salestax>" & _
"</m:getsalestaxresponse>" & _
"</soap:body>" & _
"</soap:envelope>"

'Write the return envelope
Response.Write strTmp


Awaiting for reply

Smita