lettere accentate

[max1974]

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

[agenti]

ma perchè un semplce replace binario non ti piace ?

tex = Replace(tex, "à", "a")

poi mi chiedo perchè vuoi fare questa sostituzione anmche perchp stati sostituendo "à" con "à"
"è", "è"

non sono identici ?

[max1974]

è vero scusa ho sbagliato a copiarti il testo
cmq il replace che utilizzo è

tex = Replace(tex, "à", "&agrave;", 1, -1, 1).......

[max1974]

no non ho sbagliato a copiarti il testo è il forum che interpreta male cio che scrivo
ho messo gli asterischi in mezzo per farti vedere...

tex = Replace(tex, "à", "&*a*g*r*a*v*e*;", 1, -1, 1)

[agenti]

ripeto fai un replace normale :

Replace(tex, "à", "a")

e inserisci un response.write tex dentro l'if per controllare se esegue

p.s.
continuo a non capire perchè fai questa operazione