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

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.