Buscador con o sin acentos

[Rogerman]

Bueno Monra, lo que puedes hacer es normalizar ambas cadenas, es decir la que extraes de la bd y la que lees para la busqueda.

Pues utilizar la funcion de dazuaga o esta variante basada en la misma, que lo unico que hace es eliminar acentos, como digo debes aplicarla a ambas cadenas y listo

<%
Function sinAcentos(Str)
Dim CurLtr
For x = 1 To Len(Str)
CurLtr = Mid(Str, x, 1)
Select Case CurLtr
Case "a", "à", "á"
sinAcentos = sinAcentos & "a"
Case "e", "é", "è"
sinAcentos = sinAcentos & "e"
Case "i", "ì", "í"
sinAcentos = sinAcentos & "i"
Case "o", "ò", "ó"
sinAcentos = sinAcentos & "o"
Case "u", "ù", "ú"
sinAcentos = sinAcentos & "u"
Case Else
sinAcentos = sinAcentos & CurLtr
End Select
Next
End Function
%>

Saludos
PD: en el case puedes agregar otros simbolos como ü, etc.