Ver Mensaje Individual
  #2 (permalink)  
Antiguo 24/12/2004, 11:59
spinnal
 
Fecha de Ingreso: febrero-2004
Mensajes: 34
Antigüedad: 21 años, 2 meses
Puntos: 0
Te paso este código para que cheques si es lo que necesitas, basicamente viene siendo el envio de una peticion HTTP a una pagina que te regresa su contenido. Me imagino que te podria servir ya que si la pagina que consultas escribe un archivo XML directamente al navegador este codigo tomara ese contenido y te lo regresa para que lo uses con el metodo loadXML (aunque no necesariamente sea código XML). El envio y la recepcion del contenido es totalmente transparente, no implica redireccionamientos ni nada por el estilo, siempres estas en la pagina que ejecuta el código.


Dim objXMLHTTP, xml, objLst

' Creación del objeto XMLHTTP versión 3.0 of XMLHTTP
' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP") 'MSXML2.ServerXMLHTTP.4.0
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
Set objLst = Server.CreateObject("Microsoft.XMLDOM")
Set objetos = Server.CreateObject("Microsoft.XMLDOM")

'Abrimos una conexión para el envio de los comandos
xml.Open "POST", "http://dcgw01/Proyectos/nicMexico/www/htdocs/dameDominio.asp", False
'Se estatablece el tipo de contenido que se va a enviar, si es XML segun la doc se omite
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
'Cadena a enviar, mediante POST
strQuery = "for=" & "pruebaa"
xml.Send strQuery

'Desplegamos el resultado de la operación
objLst.loadXML(xml.responseText)