Ver Mensaje Individual
  #7 (permalink)  
Antiguo 10/03/2003, 03:02
sergiosalmeron
 
Fecha de Ingreso: marzo-2003
Mensajes: 18
Antigüedad: 22 años, 1 mes
Puntos: 0
Yo acabo de probar a salvar el contenido en un archivo y no he tenido problema. El código que he usado es el siguiente, por si te ayuda:

<%

'On Error Resume Next

Dim objXML,strUrl

strUrl = "http://unaurl"

'Set objXML = Servger.CreateObject ("Microsoft.XMLHTTP")
Set objXML = Server.CreateObject ("MSXML2.ServerXMLHTTP")
'Set objXML = Server.CreateObject ("MSXML2.XMLHTTP.3.0")
'Set objXML = Server.CreateObject ("MSXML2.XMLHTTP.4.0")

if Err then
Response.write "Error: " & Err.Description
end if

objXML.Open "GET", strURL, false, "", ""
objXML.send

if objXML.Status >= 400 and objXML.Status <= 599 then
Response.write "Error al obtener página: " & objXML.Status & " - " & objXML.statusText
else
ResponsePage = objXML.ResponseText

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateTextFile(Server.Mappath("resultado.htm") , True)

f.Write ResponsePage
f.Close
set fso = Nothing

Response.write ("terminado")
end if

Set objXML = Nothing


%>