Foros del Web » Programando para Internet » ASP Clásico »

ASP 3.0 y consumo de Web Service

Estas en el tema de ASP 3.0 y consumo de Web Service en el foro de ASP Clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 15/02/2007, 23:03
Avatar de atujpay  
Fecha de Ingreso: diciembre-2006
Mensajes: 3
Antigüedad: 18 años, 5 meses
Puntos: 0
Pregunta ASP 3.0 y consumo de Web Service

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.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 06:26.