Salve ragazzi potreste darmi una mano con le lettere accentate
ho un testo pieno di lettere accentate e anziche sostituirle tutte
ho deciso di farmi una funzione ma perche non funziona????

variabile che contiene il testo con la parola accentata (verrà)

Regola="Ti ricordiamo che qualora non confermi la tua registrazione entro 3 giorni verrà cancellata automaticamente.
"

nella pagina che richiama questa variabile ho inserito


Function SubCarSpeciali(tex )
If tex <> "" Then
tex = Replace(tex, "à", "&agrave;", 1, -1, 1)
tex = Replace(tex, "è", "&egrave;", 1, -1, 1)
tex = Replace(tex,"é", "&eacute;", 1, -1, 1)
tex = Replace(tex,"ì", "&igrave;", 1, -1, 1)
tex = Replace(tex,"ò", "&ograve;", 1, -1, 1)
tex = Replace(tex,"ù", "&ugrave;", 1, -1, 1)
tex = Replace(tex,"à", "&Agrave;", 1, -1, 1)
tex = Replace(tex,"È", "&Egrave;", 1, -1, 1)
tex = Replace(tex,"é", "&Eacute;", 1, -1, 1)
tex = Replace(tex,"ì", "&Igrave;", 1, -1, 1)
tex = Replace(tex,"ò", "&Ograve;", 1, -1, 1)
tex = Replace(tex,"ù", "&Ugrave;", 1, -1, 1)
tex = Replace(tex,"©", "&copy;", 1, -1, 1)
tex = Replace(tex,"°", "&deg;", 1, -1, 1)
tex = Replace(tex,"¢", "&cent;", 1, -1, 1)
tex = Replace(tex,"÷", "&divide;", 1, -1, 1)
tex = Replace(tex,"×", "&times;", 1, -1, 1)
tex = Replace(tex,"¿", "&iquest;", 1, -1, 1)
End If
SubCarSpeciali=tex
End Function

Testo = SubCarSpeciali(Regola)
response.write(testo)

mi aspettavo che la "à" venisse sostituita ma invece non succede nulla ne mi da errore dove sbaglio??