necesito que "á" sea igual a "a"

[suntus]

nada Alzuwaga

tu funcion me da error

Function AccIns(Str)
Dim CurLtr
For x = 1 To Len(Str)
CurLtr = Mid(Str, x, 1)
Select Case CurLtr

Case "a", "à", "á"
AccIns = AccIns & "[aàá]"

Case "e", "é", "è"
AccIns = AccIns & "[eéè]"

Case "i", "ì", "í"
AccIns = AccIns & "[iìí]"

Case "o", "ò", "ó"
AccIns = AccIns & "[oòó]"

Case "u", "ù", "ú"
AccIns = AccIns & "[uùú]"

Case "n", "ñ", "Ñ"
AccIns = AccIns & "[nñÑ]"

'etc etc

Case Else
AccIns = AccIns & CurLtr
End Select
Next
End Function


Exactamente en el primer case



Error de compilación de Microsoft VBScript error '800a0401'

Se esperaba un final de instrucción

/resultados.asp, línea 128

AccIns = AccIns & "[aàá]"
--------------------^