Todo funciona bien cuando se consume ese Web Service desde ASP 3.0 en el mismo server donde esta el Web Service. Cuando utilizo el mismo codigo desde una aplicacion web en el Server A me da el siguiente error:
Código:
Para el consumo del Web Service uso MSSOAP.SoapClient30 y MSXML2.DOMDocument.4.0 para parsear el response y el codigo es el siguiente:WSDLReader error '80020009' WSDLReader:XML Parser failed at linenumber 0, lineposition 0, reason is: A connection with the server could not be established HRESULT=0x1: Incorrect function. - WSDLReader:Loading of the WSDL file failed HRESULT=0x80070057: The parameter is incorrect. - Client:One of the parameters supplied is invalid. HRESULT=0x80070057: The parameter is incorrect. /ws-consuming-test.asp, line 12
Código:
Espero me puedan ayudar, mil gracias. <% Sub obtenerDatos(parUno,callerIp) Dim oSoapClient, oXMLDocument Dim Result Dim cClave, cValor Set oSoapClient = Server.CreateObject("MSSOAP.SoapClient30") Set oXMLDocument = Server.CreateObject("MSXML2.DOMDocument.4.0") oSoapClient.ClientProperty("ServerHTTPRequest") = True Call oSoapClient.mssoapinit ("url-web-service/nombre-webservice.asmx?wsdl") on error resume next Set Result = oSoapClient.nombre_web_method(parUno,cIP) oXMLDocument.loadXML Result.item(0).ownerDocument.Xml cValor = oXMLDocument.selectSingleNode("//TARJETA").nodeTypedValue cClave = oXMLDocument.selectSingleNode("//CLAVE").nodeTypedValue if cValor = "" or cClave = "" then Response.Write("Pudo leer el WebService, pero Su sesión no ha podido iniciarse, ticket inválido.") Else Response.Write("Se pudo leer el Webservice.... Valor: " & cValor & " ValorClave: " & cClave) end if End Sub %> <% call obtenerDatos("2E3J6H2355883",Request.ServerVariables("LOCAL_ADDR")) %>