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?
Rispondi quotando
