Urgente! Substituir caracter com acentuação por um sem acentuação em ASP!?

Question

Por exemplo: Precisa de uma função VBscript que substitua a letra "í" por "i" ou ç oir c, alguém sabe??

Answer 1

Function RemoveAcentos(ByVal Texto)
Dim ComAcentos
Dim SemAcentos
Dim Resultado
Dim Cont
'Conjunto de Caracteres com acentos
ComAcentos = "ÁÍÓÚÉÄÏÖÜËÀÌÒÙÈÃÕÂÎÔÛÊáíóúéäïöüëàìòùèãõâîôûêÇç"
'Conjunto de Caracteres sem acentos
SemAcentos = "AIOUEAIOUEAIOUEAOAIOUEaioueaioueaioueaoaioueCc"
Cont = 0
Resultado = Texto
Do While Cont < Len(ComAcentos)
Cont = Cont + 1
Resultado = Replace(Resultado, Mid(ComAcentos, Cont, 1), Mid(SemAcentos, Cont, 1))
Loop
RemoveAcentos = Resultado
End Function

Answer 2

Cara, a função pronta não tenho aqui, mas fazendo replace tu consegue tranquilo, procura um fórum especializado como o imasters. ;)

Answer 3

Use o teclado Padrão normas ABNT...