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

Error en tiempo de ejecución error '800a01a8' al consumir un webservice

Estas en el tema de Error en tiempo de ejecución error '800a01a8' al consumir un webservice en el foro de ASP Clásico en Foros del Web. Hola!! Quisiera pedir ayuda/consejo con un error que me acaba de salir en una aplicacion que mantengo, al hora de consumir un Webservice sobre https ...
  #1 (permalink)  
Antiguo 14/12/2012, 06:35
 
Fecha de Ingreso: abril-2012
Mensajes: 2
Antigüedad: 11 años, 11 meses
Puntos: 0
Error en tiempo de ejecución error '800a01a8' al consumir un webservice

Hola!!

Quisiera pedir ayuda/consejo con un error que me acaba de salir en una aplicacion que mantengo, al hora de consumir un Webservice sobre https con certificado y eso, a la hora de ejecutar el envio de una peticio via webservice, me devuelve esto.

------------------------------------------------------------------------------------
Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'

Se requiere un objeto: '[object]'

/Usuarios/frameUBusqueda.asp, línea 136
-------------------------------------------------------------------------------------

El codigo en cuestion es el siguiente

--------------------------------------------------------------------------------------
'Escribimos la cadena que va a contener todos los parámetros de la búsqueda
sCadenaXML = "<?xml version='1.0' encoding='utf-8'?>" & vbCrLf
sCadenaXML = sCadenaXML & "<SOAP-ENV:Envelope xmlns:SOAP-ENV='http://schemas.xmlsoap.org/soap/envelope/'"
sCadenaXML = sCadenaXML & " xmlns:ns1='" & sUrlMinisterio & "ficheros_siria/'>"

'HEADER
sCadenaXML = sCadenaXML & "<SOAP-ENV:Header>" & vbCrLf
sCadenaXml = sCadenaXML & CadenaLogin (sUsuarioSiria,sPwdSiria)
sCadenaXML = sCadenaXML & "</SOAP-ENV:Header>" & vbCrLf

'BODY
sCadenaXML = sCadenaXML & "<SOAP-ENV:Body>" & vbCrLf
sCadenaXML = sCadenaXML & CadenaBusquedaBeneficiarios(vParamBusqueda)
sCadenaXML = sCadenaXML & "</SOAP-ENV:Body>" & vbCrLf

sCadenaXML = sCadenaXML & "</SOAP-ENV:Envelope>" & vbCrLf

'Response.Write(Server.HTMLEncode(sCadenaXML))
'REsponse.End

set objInputXMLDoc = Server.CreateObject("Microsoft.XMLDOM")
objInputXMLDoc.loadXML sCadenaXML

set objWinHttp = Server.CreateObject("WinHTTP.WinHTTPRequest.5.1")
objWinHttp.Open "POST", sUrlMinisterio & "services/BeneficiariosSOAP?wsdl", False
objWinHttp.SetClientCertificate sClientCertificate
objWinHttp.SetRequestHeader "content-Type","text/xml"
objWinHttp.Send(objInputXMLDoc)

'Recuperamos los datos de los usuarios que coinciden con la búsqueda
set objOutputXMLDoc = Server.CreateObject("Microsoft.XMLDOM")

objOutputXMLDoc.loadXML objWinHttp.ResponseText

set objWinHttp = Nothing

if objOutputXMLDoc.parseError.errorCode <> 0 then
Response.Write(objOutputXMLDoc.parseError.reason)
Response.Write(objOutputXMLDoc.parseError.errorCod e)
end if

'Response.Write(Server.HTMLEncode(objOutputXMLDoc. xml))
'Response.End
i=0

'Response.Write(Server.HTMLEncode(objOutputXMLDoc. xml))
'Response.End

bPrimeraVez = true

for Each x in objOutputXMLDoc.documentElement.childNodes(0).chil dNodes(0).childNodes <----aqui es donde peta, es decir, esta es la linea 136.



Alguna sugerencia??

Gracias!!

Etiquetas: consumir, request, server, webservice, aplicaciones
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 20:11.