teste, acento=request.form("txt_acento")
tamanho=len(acento)
final=""
for i=1 to tamanho
acento_mid = mid(acento,i,1)
select case acento_mid
case "á","Á","à","À","ã","Ã","â","Â","â"
acento_mid="a"
end select
final=final & acento_mid
next
response.write(final)