Ignorar tildes en asp

[almak]

Necesito ayuda este es el codigo que tengo del buscador, como incorporo el codigo para omitir las tildes????


Sub BusquedaExacta (strFrase)
Dim adoRS
Dim strResultado
Dim strInicio
Dim strFinal
Dim nResultados

'strSql = "Exec BusquedaCateSimple_sp '" & strFrase&"','" & strSiguiente & "'"
strSql = "select top 500 * from VIEW_DATOS_ANUNCIOS where DESCRIPCION_ESPANOL like '%" & strFrase &"%'" & _
" order by DESCRIPCION_ESPANOL"
'Response.write strSql & "<br>"
set adoRS = CreateObject("ADODB.Recordset")
adoRs.Open strSql, Application("Conexion")

If not adoRS.EOF and not adoRS.BOF then
strResultado = ObtieneResultado(CTE_BUSQUEDA_CATEGORIA, adoRS, 2, 500, "", "", strSiguiente, nResultados)
EscribeInicioTablaResultadoBusqueda "Encontrados <b>" &nResultados& "</b> resultados de la búsqueda de: <b>" & strFrase & "</b>"
Response.write strResultado
EscribeFinalTablaResultadoBusqueda
Else
Response.write "<Font class=""Resultado"">No hay resultados con esa busqueda por favor revise los datos ingresados</font>"
End if
adoRS.Close
End Sub


Estoy copiando el codigo justo como los postearon aki, soy nuevo en esto gracias


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 "n", "ñ", "Ñ"
sinAcentos = sinAcentos & "[nñÑ]"
Case Else
sinAcentos = sinAcentos & CurLtr
End Select
Next
End Function