Validación de una cadena

[Adler]

Hola

Prueba así

Código asp:

Dim texto
texto ="CAMIÓN CAMIÖN CAMIÒN camión camiòn camiön"
 
Function ChecaCadena(Cadena)
Cadena = Trim(Cadena)
Cadena = Replace(Cadena,"Á","A")
Cadena = Replace(Cadena,"À","A")
Cadena = Replace(Cadena,"Ä","A")
Cadena = Replace(Cadena,"á","a")
Cadena = Replace(Cadena,"ä","a")
Cadena = Replace(Cadena,"à","a")
Cadena = Replace(Cadena,"É","E")
Cadena = Replace(Cadena,"Ë","E")
Cadena = Replace(Cadena,"È","E")
Cadena = Replace(Cadena,"è","e")
Cadena = Replace(Cadena,"é","e")
Cadena = Replace(Cadena,"ë","e")
Cadena = Replace(Cadena,"Í","I")
Cadena = Replace(Cadena,"Ì","I")
Cadena = Replace(Cadena,"Ï","I")
Cadena = Replace(Cadena,"ì","i")
Cadena = Replace(Cadena,"í","i")
Cadena = Replace(Cadena,"ï","i")
Cadena = Replace(Cadena,"Ó","O")
Cadena = Replace(Cadena,"Ò","O")
Cadena = Replace(Cadena,"Ö","O")
Cadena = Replace(Cadena,"ò","o")
Cadena = Replace(Cadena,"ó","o")
Cadena = Replace(Cadena,"ö","o")
Cadena = Replace(Cadena,"Ú","U")
Cadena = Replace(Cadena,"Ù","U")
Cadena = Replace(Cadena,"Ü","U")
Cadena = Replace(Cadena,"ù","u")
Cadena = Replace(Cadena,"ú","u")
Cadena = Replace(Cadena,"ü","u")
ChecaCadena = Cadena
End Function
 
Response.Write ChecaCadena(texto)
 

Suerte