Replace

[Elbrinner 0]

Fiz uma funçao para trocar as letras com acento pelo formato html mais nao consigo fazer funcionar. Alguem pode me da uma dica, o que fiz de errado?

 

Private Function acento(ByVal strEntry)'Remove caracteres maliciososstrEntry = Replace(strEntry, "ã", "ã")strEntry = Replace(strEntry, "õ", "õ ")strEntry = Replace(strEntry, "á", "á")strEntry = Replace(strEntry, "é", "é")strEntry = Replace(strEntry, "í", "í")strEntry = Replace(strEntry, "ó", "ó")strEntry = Replace(strEntry, "ú", "ú")strEntry = Replace(strEntry, "à", "à") strEntry = Replace(strEntry, "ç", "ç")acento = strEntryEnd Function

 

Fiz ela para tentar resolver o problema do editor fckeditor com os acentos

 

obrigado

[Marcelo Barcellos 0]

Você está usando a palavra "Private" no ASP ?Tente tirá-la.