XML POST

Hola... la idea es enviar un XML vía HTTPs a una página ASP...

mira este ejemplo:


'Origen.asp
Dim objServerXMLHTTP
Set objServerXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")

URL = "https:/ .. ../.. /pagina.asp"
docxml = "<raiz>.. .. . . . .</raiz>"

objServerXMLHTTP.Open URL
objServerXMLHTTP.Send docxml

Respuesta = objServerXMLHTTP.ResponseText

Set objServerXMLHTTP = Nothing

If Respuesta = "OK" Then
Response.Write "Funcionó muy bien"
Else
Response.Write "Parece que no funcionó: " & Respuesta
End If



y desde la página.asp

Dim objDom
Set objDom = Server.CreateObject("MSXML2.DomDocument")

On Error Resume Next
objDom.Load Request
If Err.Number <> 0 Then
Response.Write "Existieron errores al cargar el XML"
Else
Response.Write "OK"
End If

Set objDom = Nothing




Saludos,
Jhonny Vargas P. [MVP]
Santiago de Chile




"JAM" escribió en el mensaje
news:1801501c449a1$e3402290$
Hola a todos...alguien me podria ayudar con lo que en
ingles es Post XML file to a URL via HTTPS???...con ASP,
lo que sea es bueno, documentación, ejemplos...es un poco
urgente...espero alguien me pueda ayudar...de antemano
mil gracias!!!...

Muchas gracias por la respuesta, pero me ha mandado un
error al ponerlo en funcion...


Error Type:
Server object, ASP 0177 (0x800401F3)
Invalid class string
/login.asp, line 51


y en esa linea tengo la declaracion del objeto, osea:

Set objServerXMLHTTP = Server.CreateObject
("MSXML2.ServerXMLHTTP.4.0")


sabes a que se debe???...tengo el internet explorer 6
instalado

Hola... la idea es enviar un XML vía HTTPs a una página

ASP...

mira este ejemplo:


'Origen.asp
Dim objServerXMLHTTP
Set objServerXMLHTTP = Server.CreateObject

("MSXML2.ServerXMLHTTP.4.0")

URL = "https:/ .. ../.. /pagina.asp"
docxml = "<raiz>.. .. . . . .</raiz>"

objServerXMLHTTP.Open URL
objServerXMLHTTP.Send docxml

Respuesta = objServerXMLHTTP.ResponseText

Set objServerXMLHTTP = Nothing

If Respuesta = "OK" Then
Response.Write "Funcionó muy bien"
Else
Response.Write "Parece que no funcionó: " & Respuesta
End If



y desde la página.asp

Dim objDom
Set objDom = Server.CreateObject("MSXML2.DomDocument")

On Error Resume Next
objDom.Load Request
If Err.Number <> 0 Then
Response.Write "Existieron errores al cargar el XML"
Else
Response.Write "OK"
End If

Set objDom = Nothing




Saludos,
Jhonny Vargas P. [MVP]
Santiago de Chile




"JAM" escribió en

el mensaje

news:1801501c449a1$e3402290$
Hola a todos...alguien me podria ayudar con lo que en
ingles es Post XML file to a URL via HTTPS???...con ASP,
lo que sea es bueno, documentación, ejemplos...es un poco
urgente...espero alguien me pueda ayudar...de antemano
mil gracias!!!...


.

Debes bajar el Microsoft Parser XML 3.0 o superior...

aqui va el link para bajarlo.

http://tinyurl.com/3xz3j


(link original)
http://www.microsoft.com/downloads/...d7485f2b42


Saludos,
Jhonny Vargas P. [MVP]
Santiago de Chile


"JAM" escribió en el mensaje
news:17e3a01c449b0$ea8282f0$
Muchas gracias por la respuesta, pero me ha mandado un
error al ponerlo en funcion...


Error Type:
Server object, ASP 0177 (0x800401F3)
Invalid class string
/login.asp, line 51


y en esa linea tengo la declaracion del objeto, osea:

Set objServerXMLHTTP = Server.CreateObject
("MSXML2.ServerXMLHTTP.4.0")


sabes a que se debe???...tengo el internet explorer 6
instalado

Hola... la idea es enviar un XML vía HTTPs a una página

ASP...

mira este ejemplo:


'Origen.asp
Dim objServerXMLHTTP
Set objServerXMLHTTP = Server.CreateObject

("MSXML2.ServerXMLHTTP.4.0")

URL = "https:/ .. ../.. /pagina.asp"
docxml = "<raiz>.. .. . . . .</raiz>"

objServerXMLHTTP.Open URL
objServerXMLHTTP.Send docxml

Respuesta = objServerXMLHTTP.ResponseText

Set objServerXMLHTTP = Nothing

If Respuesta = "OK" Then
Response.Write "Funcionó muy bien"
Else
Response.Write "Parece que no funcionó: " & Respuesta
End If



y desde la página.asp

Dim objDom
Set objDom = Server.CreateObject("MSXML2.DomDocument")

On Error Resume Next
objDom.Load Request
If Err.Number <> 0 Then
Response.Write "Existieron errores al cargar el XML"
Else
Response.Write "OK"
End If

Set objDom = Nothing




Saludos,
Jhonny Vargas P. [MVP]
Santiago de Chile




"JAM" escribió en

el mensaje

news:1801501c449a1$e3402290$
Hola a todos...alguien me podria ayudar con lo que en
ingles es Post XML file to a URL via HTTPS???...con ASP,
lo que sea es bueno, documentación, ejemplos...es un poco
urgente...espero alguien me pueda ayudar...de antemano
mil gracias!!!...


.