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"))
%>

