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