Buscador mejorado, ¿con acentos?

[3pies]

Con una funcioncilla que hay por ahí (no recuerdo si en las FAQ, o donde)...

Código:

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

Y luego...

Código:

'Suponiendo que pasemos los datos del formulario, por GET...
titulo = request.querystring("titulo")
'La consulta sería más o menos esta...
SQL = "SELECT * FROM tu_tabla WHERE campo_titulo LIKE '%" & Acentos(titulo) & "%' ORDER BY id DESC"

Salu2