Saludos a todos aquí en el foro. El problema es que tengo que consumir un web service de un server B desde mi aplicacion ASP 3.0 desde un server A.
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:
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
Para el consumo del Web Service uso MSSOAP.SoapClient30 y MSXML2.DOMDocument.4.0 para parsear el response y el codigo es el siguiente:
Código:
<%
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"))
%>
Espero me puedan ayudar, mil gracias.