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

[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: