Desesperado con WSDL

[fisgon]

Llevo dando vueltas durante mucho tiempo y no doy con la solucion. No veo la manera de comunicar con un WSDL. En todo momento me devuelve status = 405

Contando con que el xml de envio está bien formado ¿donde puede estar el problema? Este mismo codigo con otro webservice funciona.

Adjunto el codigo y el wsdl

Gracias de antemano y un saludo


strSOAP = ""
encoding = "ISO-8859-1"
methodSOAP = "POST"
strSOAPAction = "80.26.117.109:8080/ws/services/p_wsbenidorm_eas_wsbenidorm"
urlSOAP = "80.26.117.109:8080/benidormplaza.wsdl"

Function InvokeWebService (strSoap,strSOAPAction,strURL,ByRef xmlResponse)
Dim xmlhttp
Dim blnSuccess
Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.Open methodSOAP, strURL
xmlhttp.setRequestHeader "Man", methodSOAP&" "&strURL&" HTTP/1.1"
xmlhttp.setRequestHeader "Content-Type", "text/xml; charset="&encoding
xmlhttp.setRequestHeader "SOAPAction", strSOAPAction
xmlhttp.send(strSoap)

Response.Cookies("xmlStatus") = xmlhttp.Status

Set xmlResponse = xmlhttp.ResponseXML
InvokeWebService = blnSuccess
Set xmlhttp = Nothing
End Function

if (InvokeWebService(strSOAP,strSOAPAction,urlSOAP,xm lResponse)) then
response.Write "Comunicacion OK!"&"<br><br>"
response.write "xml status: "&Request.Cookies("xmlStatus")&"<br>"
else
response.Write "Ha ocurrido un error!"&"<br><br>"
response.write "xml status: "&Request.Cookies("xmlStatus")&"<br>"
end if