output di una pagina ASP ?

[_stefan_76]

Ciao a tutti,
avrei bisogno di uno script che mi salvi l'intero contenuto
dell'output di una pagina ASP. Si può fare ?
In pratica, invece di visulizazzare a video sul client, il codice Html generato, vorrei che tutto questo flusso di dati fosse trasferito e salvato in un file, tipo pippo.txt direttamente sul server!
Ho guardato in giro ma ad es. con l'XML riesco solo a prendere una pagina già creata in precedenza e non la pagina che stò creando sul momento...

[kalosjo]

COn XMLHTTP puoi fare proprio questo, richiamare la pagina asp e salvare il relativo html ricevuto.

[_stefan_76]

ho provato e funziona ma...
solo con le pagine che finiscono per HTML.
Ho provato infatti a passargli un url del tipo
http://www.www.it/medica/cardioref.asp?id=22
ma quello che mi ha generato è un file vuoto.

Secondo te quale problema può essere ?
Grazie

[_stefan_76]

Questo è il codice che uso :
<%
Response.Buffer = True
Dim objXMLHTTP, xml
'Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Or, for version 3.0 of XMLHTTP, use:
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
xml.Open "GET", "http://www.www.it/admin/anagrafica.asp?richiesta=lista", False,
xml.Send
strHtml = xml.responseText
Set FSO = CreateObject("Scripting.FileSystemObject")
sPath = Server.MapPath("/download/prova2.txt")
Set f = FSO.CreateTextFile(sPath, True)
f.WriteLine(strHtml)
f.Close
Set f = Nothing
Set FSO = Nothing
set xml = Nothing
%>

Ora il problema è nello scrivere questi stramaledetti dati!
Infatti se provo a leggere l'home page del sito (?) la stringa
strHtml si popola correttamente e quindi il file prova2.txt viene creato regolarmente... invece se provo a richiamare qualsiasi altra pagina dall'interno del mio sito, la stringa strHtml sembra popolarsi ma appena il codice prova a scrivere il file viene generato un messaggio di errore nella riga writeLine(strHtml).
In pratica, ho controllato, la stringa risulta vuota!!!

AIUTO, please... sto impazzendo.

[JacK^79]

Originariamente inviato da _stefan_76
Questo è il codice che uso :
<%
Response.Buffer = True
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Or, for version 3.0 of XMLHTTP, use:
'Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
xml.Open "GET", "http://www.www.it/admin/anagrafica.asp?richiesta=lista", False,
xml.Send
strHtml = xml.responseText
Set FSO = CreateObject("Scripting.FileSystemObject")
sPath = Server.MapPath("/download/prova2.txt")
Set f = FSO.CreateTextFile(sPath, True)
f.WriteLine(strHtml)
f.Close
Set f = Nothing
Set FSO = Nothing
set xml = Nothing
%>

Setta questa stringa:
Set xml = Server.CreateObject("Microsoft.XMLHTTP")

anzichè:

Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")

e poi togli la virgola nella riga rossa così:

xml.Open "GET", "http://www.www.it/admin/anagrafica.asp?richiesta=lista", False

A me funziona il tuo codice con queste modifiche