creazione file nominato con caratteri speciali

[Mattatore85]

Ciao,
in un pezzo di codice che mi crea un file asp e me lo nomina vorrei che il nome del file possa contenere anche i caratteri accentati tipo òàéèù ..
Nel pezzo di codice postato in basso mi sostituisce i caratteri accentati con una ã¨.
Come lo modifico?

Function NoHTML(Stringa)
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RegEx.IgnoreCase = True
NoHTML = RegEx.Replace(Stringa, "")
End Function

Function ConvertiTitoloInNomeScript(Titolo, IDArticolo)
Risultato = Titolo
Risultato = NoHTML(Risultato)
Risultato = LCase(Risultato)
Risultato = Replace(Risultato, " ", "-")
Risultato = Replace(Risultato, "\", "-")
Risultato = Replace(Risultato, "/", "-")
Risultato = Replace(Risultato, ":", "-")
Risultato = Replace(Risultato, "*", "-")
Risultato = Replace(Risultato, "?", "-")
Risultato = Replace(Risultato, "<", "-")
Risultato = Replace(Risultato, ">", "-")
Risultato = Replace(Risultato, "|", "-")
Risultato = Replace(Risultato, """", "")
Risultato = Replace(Risultato, "'", "-")

Risultato = IDArticolo & "-" & Risultato & ".asp"
ConvertiTitoloInNomeScript = Risultato
End Function

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Documento = FSO.OpenTextFile(Server.MapPath("/xxxx/") & "\" & ConvertiTitoloInNomeScript(FTitolo, IDArticolo), 2, True)
ContenutoFile = ""
ContenutoFile = ContenutoFile & ""
Documento.Write ContenutoFile
Set FSO = Nothing


GRAZIE

[Mattatore85]

up..

[Mattatore85]

re-up...

[Mattatore85]

un aiutino?

[optime]

un carattere accentato in un nome di file? che brutta cosa... IMHO, OC!