antes de enviar el criterio
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
modo de uso
Cita: sebusca=lCase(Acentos(sebusca))
