lettere accentate: testo illegibile

[surferbloggy]

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

[cavicchiandrea]

Permesso che è stravagante replicare identico:
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, "Û", "Û")

il problema potrebbe essere legato alla codifica della pagina charset fai una ricerca qui sul forum

[surferbloggy]

grazie, la funzione che ho postato è stata modificata automaticamente dal forum in realtà funziona perfettamente tranne in una sola pagina dove è tutto uguale ma non funziona non so perchè e mi sta facendo impazzire!!! perchè dovrebbe funzionare in una pagina ed in un altra no in tutte le pagine c'è anche <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> bo?????

[surferbloggy]

ora nella stessa pagina form in cui la richiamo con alcuni record funziona e con altri mi da:

Errore di run-time di Microsoft VBScript error '800a005e'

Utilizzo non valido di Null: 'Replace'

/admin/conn.asp, line 19

cioè

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

è assurdo cosa può essere??

[surferbloggy]

ho fatto una ricerca nel forum e ho trovato di risolvere aggiungendo una stringa vuota così:
texto =Replace((texto & ""), "'", "''")
grazie, ciao!!!

[surferbloggy]

ma possibile che la stessa funzione in certe pagine funziona con certi record funziona e con altri no?? perchè lo stesso desto dinamico filtrato con la stessa funzione nella pagina modifica, dentro la testarea lo leggo correttamente e lo salvo nel database correttamente invece nella pagina pubblica sempre filtrato allo stesso modo è pieno di à e caratteri strani?????? sia con
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
che senza
se mi aiutate vi ringrazio!!

[davide1983]

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

Ciao

[surferbloggy]

Grazie davide!!!!! funziona!!!