Tema: acentos
Ver Mensaje Individual
  #7 (permalink)  
Antiguo 28/03/2003, 08:17
choroy
 
Fecha de Ingreso: mayo-2002
Mensajes: 197
Antigüedad: 22 años, 10 meses
Puntos: 0
Por aki tengo guardado esto que a mi me fue divino:


==============================================

Hola,
Creo que esta función te puede servir:

<%
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ñÑ]"
Case Else
AccIns = AccIns & CurLtr
End Select
Next
End Function
%>

Asignas la variable
strlocalidad = Request.form("localidad")

en la consulta llamas a la función:
SQL = "SELECT * FROM Localidades WHERE Localidad LIKE '%" & AccIns(strlocalidad) & "%'"

quedándote la consulta
SELECT * FROM Localidades WHERE Localidad LIKE 'Esp[aàá][nñÑ][aàá]'

De esta manera ya no te tienes que preocupar por el tema de las tildes.

Un saludo!!

[email protected]

Por jgg en "forosdelweb"

==============================================

Espero que te sirva, un saludo.