asp Remova Acentos.

[Ventura 1]

Em pesquisa a Internet, encontrei este código, que creio ser bastante útil para você programador ASP.

 

Opções para utilização deste código:

 

Função TirarAcento : Troca as letras com acento para letras sem acento;

Função TrocaAcento : Troca as letras com acento para "_" (underline), sendo útil em consultas a Banco de Dados.

 

 

<%

 

Function TirarAcento(Palavra)

CAcento = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ"

SAcento = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN"

Texto = ""

If Palavra <> "" then

For X = 1 To Len(Palavra)

Letra = Mid(Palavra,X,1)

Pos_Acento = InStr(CAcento,Letra)

If Pos_Acento > 0 Then Letra = mid(SAcento,Pos_Acento,1)

Texto = Texto & Letra

Next

TirarAcento = Texto

End If

End Function

Function TrocarAcento(Palavra)

CAcento = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ"

Texto = ""

If Palavra <> "" Then

For X = 1 to Len(Palavra)

Letra = Mid(Palavra,X,1)

Pos_Acento = InStr(CAcento,Letra)

If Pos_Acento > 0 Then Letra = "_"

Texto = Texto & Letra

Next

TrocarAcento = Texto

End If

End Function

 

%>

 

Para chamar a função utilize TirarAcento("[sTRING]") ou TrocarAcento("[sTRING]")

 

<% Response.Write(TirarAcento("EXEMPLO")) %>

 

Por: Código Fonte

[Nostradamus 6]

No PHP existe uma função para isso, ela se chama str_replace, e claso existe as ramificações da UTF...