Explore os recursos do SQL para pesquisa de strings desconsiderando os acentos, maiusculas e minusculas.

<% '============================================================================= ' Remove todos os acentos da string '============================================================================= Function RemoveAcentos(vStr) dim i, s1, s2 s1 = "ÁÂÃÉÊÍÓÕÔÚÇáâãéêíóõôúüç" s2 = "AAAEEIOOOUCaaaeeiooouuc" if len(vStr) <> 0 then     For i = 1 to Len(s1)       vStr = replace(vStr,mid(s1,i,1),mid(s2,i,1))    next end if    RemoveAcentos = vStr End Function '============================================================================= ' Transforma as vogais da String em Curingas SQL para desprezar acentos '============================================================================= Function MaskedString(Str) Str = RemoveAcentos(Str) Str = Replace(str,"a","[a,á,â,ã,à]") str = Replace(str,"e","[e,é,ê]") str = Replace(str,"i","[i,í]") str = Replace(str,"o","[o,ó,ô,õ]") str = Replace(str,"u","[u,ú,ü]") str = Replace(str,"c","[c,ç]") MaskedString = Str End Function 'Exemplo de uso PRODUTO = MaskedString("Açúcar") SQL = "SELECT * FROM ESTOQUE WHERE UCase(PRODUTO) LIKE '%" & UCase(Produto) & "%'"  Response.Write SQL %>

Quebra-Linha

Colaborador..: Adenilton Rodrigues
Categoria(s).: ASP;
Data.........: 08/07/2002 14:58:28
Visualizado..: 757 vezes
Fonte........: AdeN Knowledge DB