Problema en buscador con tildes ( ó, í, etc.)

[tuky]

Hola a todos!

Ojalá puedan ayudarme, les cuento:

Tengo el típico formulario que rescata un datos, y entrega una variable al un archivo ASP que procesa la info. Este en un estracto del archivo (omito los validadores, etc.):

Código PHP:

  ...
keyword = Request.Form("txt_materiaBuscar")
...
...
sql = "SELECT titulo, descripcion FROM tabla_datos_r WHERE titulo LIKE '%" & keyword & "%' ORDER BY titulo ASC"
... 
   

El tema es que todo funciona bien, pero el problema es cuando un usuario busca lo siguiente:

poblacion

ó

población

Los resultados son distintos.

Lo que no sé es como hacer algún filtro para que las búsquedas con tildes (á, é, í, ó, ú) no afecten el resultado....

Alguna sugerencia!!



mil gracias!

tuky.,-

[mc_quake]

tye recomiendo usar estas funciones

Function Acentos(xtexto)
ArrayP = Array("á","é","Ã*","ó","ú","à ","è","ì","ò","ù","a","e","i","o","u","a","e", "i","o","u")
ArrayP2 = Array("a","e","i","o","u","a","e","i","o","u","á" ,"é","Ã*","ó","ú","à ","è","ì","ò","ù")
Largo = Len(xtexto)
For l = 1 To Largo
Caract = Mid(xtexto,l,1)
For x = 0 To Ubound(ArrayP)
If Lcase(Trim(Caract)) = Lcase(Trim(ArrayP(x))) Then Caract = "["&ArrayP(x)&ArrayP2(x)&"]"
Next
NewText = NewText & Caract
Next
Acentos = NewText
End Function
'=================================================
Function Limpiar(xtexto)
ArrayP = Array("el","la","lo","los","las","algún","cierto" ,"otro","mucho","poco","bastante","un","una","unos ","unas","cuál","de","a","e","i","o","u","y","con ","que","qué","or","and","to","%",Chr(34),Chr(39) )
For x = 0 To Ubound(ArrayP)
If Lcase(Trim(xtexto)) = Trim(ArrayP(x)) Then
xtexto = Replace(xtexto,Trim(ArrayP(x)),"")
Session("Comunes") = Session("Comunes") & Trim(ArrayP(x)) & " "
End If
Next
Limpiar = xtexto
End Function

[Shiryu_Libra]

algo similar

Funcion:

Código PHP:

  Function Acentos(texto)
    Dim ComponerTexto
    For x = 1 To Len(texto)
        ComponerTexto = Mid(texto, x, 1)
        Select Case ComponerTexto
            Case "a", "à", "á", "À", "Á"    Acentos = Acentos & "[aàáâÀÁÂ]"
            Case "e", "é", "è", "È", "É"    Acentos = Acentos & "[eéèêÈÉÊ]"
            Case "i", "ì", "í", "Ì", "Í"    Acentos = Acentos & "[iìíîÌÍÎ]"
            Case "o", "ò", "ó", "Ò", "Ó"    Acentos = Acentos & "[oòóôÒÓÔ]"
            Case "u", "ù", "ú", "Ù", "Ú"    Acentos = Acentos & "[uùúûÙÚÛ]"
            Case Else                        Acentos = Acentos & ComponerTexto
        End Select
    Next
End Function 
   

manera de llamarlo:

sebusca=lCase(Acentos(sebusca))

:Adios:

[tuky]

Shiryu_Libra miiil gracias!!

Me funcionó a la perfección!

saludos,

tuky.-