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

   
Vista:

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

Publicado por jeffepepe (1 intervención) el 18/12/2012 10:00:12
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

--------------------------------------------------------------------------------------
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
'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!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder