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
--------------------------------------------------------------------------------------
Alguna sugerencia??
Gracias!!
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úsquedasCadenaXML = "<?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/'>"
'HEADERsCadenaXML = sCadenaXML & "<SOAP-ENV:Header>" & vbCrLf
sCadenaXml = sCadenaXML & CadenaLogin (sUsuarioSiria,sPwdSiria)
sCadenaXML = sCadenaXML & "</SOAP-ENV:Header>" & vbCrLf
'BODYsCadenaXML = 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 sCadenaXMLset objWinHttp = Server.CreateObject("WinHTTP.WinHTTPRequest.5.1")
objWinHttp.Open "POST", sUrlMinisterio & "services/BeneficiariosSOAP?wsdl", False
objWinHttp.SetClientCertificate sClientCertificateobjWinHttp.SetRequestHeader "content-Type","text/xml"
objWinHttp.Send(objInputXMLDoc)
'Recuperamos los datos de los usuarios que coinciden con la búsquedaset 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.Endi=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
0