Ciao a tutti...

Ho avuto la necessità di trasformare tutte le pagine dinamiche di un sito in statiche.

Ho quindi creato ciclo che legge la pagina già compilata, la salva in una variabile, e poi la scrive su un file di testo, nel seguente modo:

Function GetUrl(Url)
Dim Http
Set Http = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")
Http.open "GET",Url,False
Http.Send()
GetUrl = Http.ResponseText
Set Http=Nothing
End Function

---- ciclo
html_della_pagina = GetUrl(indirizzo)
tsTextStream.WriteLine (html_della_pagina)
---- fine ciclo

In questo modo ottengo però questo errore:
Invalid procedure call or argument

Ho spezzato la variabile che è una stringa in più parti (quando c'è un a capo), ma il problema persiste.

Credo sia dovuto alla presenza di qualche carattere che non riesce a "scrivere bene".


Come posso fare?