essa função remove os acentos
<%
Function RemoveAcentos(Texto)
'Conjunto de Caracteres com acentos
ComAcentos = "Á Í Ó Ú É Ä Ï Ö Ü Ë À Ì Ò Ù È Ã Õ Â Î Ô Û Ê á í ó ú é ä ï ö ü ë à ì ò ù è ã õ â î ô û ê Ç ç"
ComAcentosA = split(comAcentos," ")
'Conjunto de Caracteres sem acentos
SemAcentos = "A I O U E A I O U E A I O U E A O A I O U E a i o u e a i o u e a i o u e a o a i o u e C c"
SemAcentosA = split(SemAcentos," ")
Resultado = Texto
for o = 0 to ubound(ComAcentosA)
Resultado = Replace(Resultado, ComAcentosA(o), SemAcentosA(o))
next
RemoveAcentos = Resultado
End Function
Function RemoveAcentos(Texto)
'Conjunto de Caracteres com acentos
ComAcentos = "Á Í Ó Ú É Ä Ï Ö Ü Ë À Ì Ò Ù È Ã Õ Â Î Ô Û Ê á í ó ú é ä ï ö ü ë à ì ò ù è ã õ â î ô û ê Ç ç"
ComAcentosA = split(comAcentos," ")
'Conjunto de Caracteres sem acentos
SemAcentos = "A I O U E A I O U E A I O U E A O A I O U E a i o u e a i o u e a i o u e a o a i o u e C c"
SemAcentosA = split(SemAcentos," ")
Resultado = Texto
for o = 0 to ubound(ComAcentosA)
Resultado = Replace(Resultado, ComAcentosA(o), SemAcentosA(o))
next
RemoveAcentos = Resultado
End Function
E para chama-la basta
removeAcentos("canção")
e então ela retorna cancao
Um comentário:
sem ajax?
Postar um comentário