Remove os acentos de uma string, esta versão é para ser utilizada após o POST do formulário

'=================================================================== 'Remove os acentos de uma string '=================================================================== Function RemoveAcentos(vStr)   dim i, s1, s2   s1 = "ÁÂÃÉÊÍÓÕÔÚÇáâãéêíóõôúüç$"   s2 = "AAAEEIOOOUCaaaeeiooouuc_"   if len(vStr) <> 0 then      For i = 1 to Len(s1)       vStr = replace(vStr,mid(s1,i,1),mid(s2,i,1))     next   end if      RemoveAcentos = vStr End Function

Quebra-Linha

Colaborador..: Alexandre Neves
Categoria(s).: ASP;
Data.........: 19/11/2001 21:30:24
Visualizado..: 4229 vezes
Fonte........: Seven Lib