<%
'Função que remove os acentos do Texto
Function RemoveAcentos(strTexto)
Dim strComAcentos
Dim strSemAcentos
Dim strResultado
'Conjunto de Caracteres com acentos
strComAcentos = "ÁÍÓÚÉÄÏÖÜËÀÌÒÙÈÃÕÂÎÔÛÊáíóúéäïöüëàìòùèãõâîôûêÇç"
'Conjunto de Caracteres sem acentos
strSemAcentos = "AIOUEAIOUEAIOUEAOAIOUEaioueaioueaioueaoaioueCc"
intCont = 0
strResultado = strTexto
Do While intCont < Len(strComAcentos)
intCont = intCont + 1
strResultado = Replace(strResultado, Mid(strComAcentos, intCont, 1), Mid(strSemAcentos, intCont, 1))
Loop
RemoveAcentos = strResultado
End Function
%>
Autor: Gabriel Fróes
Site: www.codigofonte.com.br
Retirado de :http://www.roccofroes.com/materia_descricao.asp?materia_codigo=40