Título: Tirando Acentos	
Conteudo:

Este tutorial ensina como tirar acentos de uma string, isso pode ajudar a fazer uma consulta mais precisa ou ainda a caso queira fazer uma inclusão sem acentos.

Formulário (frmAcento.htm)
&lt;html&gt;

&lt;head&gt;
&lt;title&gt;Retirando acentos&lt;/title&gt;
&lt;meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"&gt;
&lt;meta name="copyright" content="2001 - Tribal Interativa"&gt;
&lt;meta name="author" content="Tribal Interativa :: http://www.tribal.com.br"&gt;
&lt;/head&gt;

&lt;body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"&gt;
&lt;form method=GET action=TiraAcento.asp&gt;
Nome:
&lt;input type=TEXT name=txtNome&gt;
&lt;input type=SUBMIT value=ENVIAR name="SUBMIT"&gt;
&lt;/form&gt;
&lt;/body&gt;

&lt;/html&gt;

Arquivo que retira os acentos(TiraAcento.asp)
<%
'Cria uma a varriável "varNome" que pega os dados de txtNome
varNome = Request.QueryString("txtNome") 
'Cria o contador i que começa de 1 e vai até o nº de caracteres que tem na
'na variavel "varNome", com isto ele vai verificar letra por letra se tem acento ou não.
for i = 1 to len(varNome) 
'Cria a variavel Letra e executa a função Mid na variável "VarNome" que pega caracteres no meio de uma String
Letra = mid(varNome, i, 1)
'Executa as comparações da Variavel Letra e verifica se tem acento, se tiver, troca por pela mesma sem acento
Select Case Letra
Case "á","Á","à","À","ã","Ã","â","Â","â"
Letra = "A"
Case "é","É","ê","Ê"
Letra = "E"
Case "í","Í"
Letra = "I"
Case "ó","Ó","ô","Ô","õ","Õ"
Letra = "O"
Case "ú","Ú"
Letra = "U"
Case "ç","Ç"
Letra = "C"
End Select
'Cria a variavel "texto" que vai concatenando letra por letra até formar a palavra novamente
texto = texto & Letra
next
Exibe a variavel texto e transforma todos os caracteres em Maiúsculo.
Response.Write "Obrigado(a) " & Ucase(texto) & " por visitar nosso site"
%>

Espero ter ajudalos com esse turorial e até o próximo.

[]'s

Hélio Costa

Autor: Hélio F. Costa