Ti ringrazio davvero tnt teorema55 per il tuo aiuto.
ho un errore su qst riga:

'Create and Write to a File
Set MyFile = ScriptObject.CreateTextFile(Server.mappath(folder) &"\"&filename)

e l'errore dice:

Errore di run-time di Microsoft VBScript (0x800A0046)
Autorizzazione negata

la cartella public però ha tutti i permessi sia di lettura che di scrittura...