
10/03/2003, 03:02
|
| | 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
%> |