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

[jeffepepe]

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!!