ciao, ho un problema, nel sito in asp e access mi cambiano tutte le vocali accentate e diventa illegibile, ho provato con questa funzione ma mi stampa questo testo:

qualit�¡

umanit�¡

ci�¡

etc


la richiamo così e ho un include dove



c'è questa funzioone:

anzi quando ho aggiunto la funzione il testo si è ancora più inbarstardito:

Function FiltraTesto(texto)


Dim return : return = ""


'texto = Replace(texto, "L", "M")
texto = Replace(texto, "'", "''")

texto = Replace(texto, "è", "é")
texto = Replace(texto, "ù", "ú")
texto = Replace(texto, "ÃÂ", "á")
texto = Replace(texto, "°", " ")

texto = Replace(texto, "á¬", "i")
texto = Replace(texto, "á²", "o")
texto = Replace(texto, "ÂÂÂ", " ")





texto = Replace ( texto, "'", " " )

texto = Replace(texto, "¡", "¡")
texto = Replace(texto, "¿", "¿")
'texto = Replace(texto, "'", "'")

texto = Replace(texto, "á", "á")
texto = Replace(texto, "é", "é")
texto = Replace(texto, "í", "í")
texto = Replace(texto, "ó", "ó")
texto = Replace(texto, "ú", "ú")
texto = Replace(texto, "ñ", "ñ")
texto = Replace(texto, "ç", "ç")

texto = Replace(texto, "Á", "Á")
texto = Replace(texto, "É", "É")
texto = Replace(texto, "Í", "Í")
texto = Replace(texto, "Ó", "Ó")
texto = Replace(texto, "Ú", "Ú")
texto = Replace(texto, "Ñ", "Ñ")
texto = Replace(texto, "Ç", "Ç")

texto = Replace(texto, "à", "à")
texto = Replace(texto, "è", "è")
texto = Replace(texto, "ì", "ì")
texto = Replace(texto, "ò", "ò")
texto = Replace(texto, "ù", "ù")

texto = Replace(texto, "À", "À")
texto = Replace(texto, "È", "È")
texto = Replace(texto, "Ì", "Ì")
texto = Replace(texto, "Ò", "Ò")
texto = Replace(texto, "Ù", "Ù")

texto = Replace(texto, "ä", "ä")
texto = Replace(texto, "ë", "ë")
texto = Replace(texto, "ï", "ï")
texto = Replace(texto, "ö", "ö")
texto = Replace(texto, "ü", "ü")

texto = Replace(texto, "Ä", "Ä")
texto = Replace(texto, "Ë", "Ë")
texto = Replace(texto, "Ï", "Ï")
texto = Replace(texto, "Ö", "Ö")
texto = Replace(texto, "Ü", "Ü")

texto = Replace(texto, "â", "â")
texto = Replace(texto, "ê", "ê")
texto = Replace(texto, "î", "î")
texto = Replace(texto, "ô", "ô")
texto = Replace(texto, "û", "û")

texto = Replace(texto, "Â", "Â")
texto = Replace(texto, "Ê", "Ê")
texto = Replace(texto, "Î", "Î")
texto = Replace(texto, "Ô", "Ô")
texto = Replace(texto, "Û", "Û")


'replace latin accents


texto = Replace(texto, "Ü", "U")
texto = Replace(texto, "Ã…Â?", "S")


texto = Replace(texto, "�", "G")
texto = Replace(texto, "Ç", "C")
texto = Replace(texto, "Ä°", "I")
texto = Replace(texto, "Ö", "O")
texto = Replace(texto, "ü", "u")
texto = Replace(texto, "ç", "c")
texto = Replace(texto, "ı", "i")

texto = Replace(texto, "ö", "o")
texto = Replace(texto, "ÄŸ", "g")
texto = Replace(texto, "Ü", "U")
texto = Replace(texto, "Å?", "S")
texto = Replace(texto, "Ä?", "G")
texto = Replace(texto, "Ç", "C")
texto = Replace(texto, "Ä°", "I")

texto = Replace(texto, "Ö", "O")
texto = Replace(texto, "ü", "u")
texto = Replace(texto, "ÅŸ", "s")
texto = Replace(texto, "ç", "c")
texto = Replace(texto, "ı", "i")

texto = Replace(texto, "ö", "o")
texto = Replace(texto, "ÄŸ", "g")
texto = Replace(texto, "Ü", "U")
texto = Replace(texto, "Ğ", "G")
texto = Replace(texto, "Ş", "S")

texto = Replace(texto, "İ", "I")
texto = Replace(texto, "Ö", "O")
texto = Replace(texto, "Ç", "C")
texto = Replace(texto, "ü", "u")
texto = Replace(texto, "ğ", "g")

texto = Replace(texto, "ş", "s")
texto = Replace(texto, "ı", "i")
texto = Replace(texto, "ö", "o")
texto = Replace(texto, "ç", "c")
texto = Replace(texto, "Ù", "U")

texto = Replace(texto, "Ğ", "G")
texto = Replace(texto, "Ş", "S")
texto = Replace(texto, "İ", "I")
texto = Replace(texto, "Ö", "O")
texto = Replace(texto, "Ç", "C")

texto = Replace(texto, "ü", "u")
texto = Replace(texto, "ğ", "g")
texto = Replace(texto, "ş", "s")
texto = Replace(texto, "ı", "i")
texto = Replace(texto, "ö", "o")


texto = Replace(texto, "ç", "c")
texto = Replace(texto, "%u015F", "s")
texto = Replace(texto, "%E7", "c")
texto = Replace(texto, "%FC", "u")
texto = Replace(texto, "%u0131", "i")

texto = Replace(texto, "%F6", "o")
texto = Replace(texto, "%u015E", "S")
texto = Replace(texto, "%C7", "C")
texto = Replace(texto, "%DC", "U")
texto = Replace(texto, "%D6", "O")

texto = Replace(texto, "%u0130", "I")
texto = Replace(texto, "%u011F", "g")
texto = Replace(texto, "%u011E", "G")
texto = Replace(texto, "£", "E")
texto = Replace(texto, "é", "e")

texto = Replace(texto, "è", "e")
texto = Replace(texto, "ß", "x")
texto = Replace(texto, "á", "à")


return = texto
FiltraTesto = return




End Function

mi aiutate perchè no n va questa funzione come posso risolvere il problema?? vi ringrazio