ecco la soluzione che gli ho proposto
se ad altri potesse venire utile
unica cosa a cui stare attenti: fate in modo che tutti i caratteri particolari (come le "è") siano trasformate in entità (ovvero "è")... altrimenti l'FSO si incippa
codice:
<%
dim strdove,strfile,strhtml,strfilepath,XMLhttp
strdove = "http://localhost/miacartella/notebook.asp?pagina=1"
strfile = "notebook-pagina1.htm"
'--- LETTURA DATI
' si connette all'indirizzo indicato e scarica il codice HTML
Set XMLhttp = Server.CreateObject("Microsoft.XMLHTTP")
XMLhttp.open "GET", strdove, False
XMLhttp.send
strHtml=XMLhttp.responseText
Set XMLhttp = Nothing
'--- SCRITTURA DATI
' crea un file con il nome indicato e ci scrive l'html che ha
' preso dall'indirizzo
strfilepath = Server.MapPath(strfile)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(strfilepath, True)
objFile.Write strHtml
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
'--- FINE
response.write "conversione riuscita"
%>
se poi ci sono più pagine da processare...
basta usare un semplice for
codice:
<%
for i=0 to 10
dim strdove,strfile,strhtml,strfilepath,XMLhttp
strdove = "http://localhost/miacartella/notebook.asp?pagina=" & i
strfile = "notebook-pagina" & i % ".htm"
'--- LETTURA DATI
' si connette all'indirizzo indicato e scarica il codice HTML
Set XMLhttp = Server.CreateObject("Microsoft.XMLHTTP")
XMLhttp.open "GET", strdove, False
XMLhttp.send
strHtml=XMLhttp.responseText
Set XMLhttp = Nothing
'--- SCRITTURA DATI
' crea un file con il nome indicato e ci scrive l'html che ha
' preso dall'indirizzo
strfilepath = Server.MapPath(strfile)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(strfilepath, True)
objFile.Write strHtml
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
'--- FINE
next
response.write "conversione riuscita di " & i & " pagine"
%>