[Resolvido] replace não funciona.. mt estranho!

[Christiano Nunes 0]

Pessoal tenho a seguinte função de replace como include em minhas paginas:

<%
Function RetiraAcentos(str2)
str2 = LCase(str2)
RetiraAcentos = Replace(str2, "á", "a")
RetiraAcentos = Replace(RetiraAcentos, "à", "a")
RetiraAcentos = Replace(RetiraAcentos, "ã", "a")
RetiraAcentos = Replace(RetiraAcentos, "â", "a")
RetiraAcentos = Replace(RetiraAcentos, "ä", "a")

RetiraAcentos = Replace(RetiraAcentos, "é", "e")
RetiraAcentos = Replace(RetiraAcentos, "è", "e")
RetiraAcentos = Replace(RetiraAcentos, "ê", "e")
RetiraAcentos = Replace(RetiraAcentos, "ë", "e")

RetiraAcentos = Replace(RetiraAcentos, "í", "i")
RetiraAcentos = Replace(RetiraAcentos, "î", "i")
RetiraAcentos = Replace(RetiraAcentos, "Î", "i")
RetiraAcentos = Replace(RetiraAcentos, "ï", "i")

RetiraAcentos = Replace(RetiraAcentos, "ó", "o")
RetiraAcentos = Replace(RetiraAcentos, "ò", "o")
RetiraAcentos = Replace(RetiraAcentos, "õ", "o")
RetiraAcentos = Replace(RetiraAcentos, "ô", "o")
RetiraAcentos = Replace(RetiraAcentos, "ö", "o")

RetiraAcentos = Replace(RetiraAcentos, "ú", "u")
RetiraAcentos = Replace(RetiraAcentos, "ù", "u")
RetiraAcentos = Replace(RetiraAcentos, "û", "u")
RetiraAcentos = Replace(RetiraAcentos, "ü", "u")

RetiraAcentos = Replace(RetiraAcentos, "ç", "c")

RetiraAcentos = Replace(RetiraAcentos, "-", "_")

RetiraAcentos = Replace(RetiraAcentos, " ", "")

End Function
%>

Em algumas páginas funciona perfeitamente..

mas em outra não funciona!!

 

Engraçado que se ele pegar a palavra Fé-ASP..

o response.write fica assim: fé_asp

 

ou seja, o traço "-" ele troca por "_"

mas o acento "é" não é trocado.

 

E o mais estranho d tudo, é que em algumas páginas esse replace funciona perfeitamente.

 

Alguém é capaz de descobrir esse problema p mim???

 

Grato.

[jrcardozo 4]

possivelmente erro no charset, tente setar para UTF-8

[Christiano Nunes 0]

possivelmente erro no charset, tente setar para UTF-8

Fiz isso.. o acento desta vez foi trocado por um caracter inválido..(tipo um quadrado).

 

Todas minhas páginas estão setadas para ISO-8859-1..

e como disse em algumas página este replace funciona perfeitamente. Mt estranho isso ne?

Tem mais alguma tentativa pra descobrir este mistério??

 

No mais, mt obrigado!

[Christiano Nunes 0]

consegui resolver, mas não entendi porque deu certo..rs!

Apenas tirei a função q estava dntro de um include e coloquei na própria página.

 

Abraços.

[Ted k' 126]

pode ter sido onde você estava colocando, mais que bom que resolveu!