Função tirar acento para a buscar

[Elbrinner 0]

Achei um função muito util aqui no forum o problema é que nem sempre funciona e estou achando que é por culpa do querystring, será isso?

 

a função:

 

Function TiraAcento(ByVal Palavra)	cacento = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ^~ºª´`'"	sacento = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN"	texto = ""	If Palavra <> "" Then		For x = 1 To Len(Palavra)			letra = Mid(Palavra, x, 1)			pos_acento = InStr(cacento, letra)			If pos_acento > 0 Then				letra = Mid(sacento, pos_acento, 1)			End If			texto = texto & letra		Next		TiraAcento = texto	End IfEnd Function

Caso sejá problema do querystring usando request.form resolveria né?

 

obrigado

[jrcardozo 4]

qual problema?

[Elbrinner 0]

Por exemplo: se busco por conego não encontra a palavra cônego. deveria não?

 

 

Minha consulta:

 

SQL =  "SELECT nome, mini , id , id_empresa , precio , foto , referencia FROM produto where nome LIKE  '%"&palavra&"%' OR mini LIKE  '%"&palavra&"%' OR palavra_clave LIKE  '%"&palavra&"%' or nome LIKE  '%"&TiraAcento(palavra)&"%' OR mini LIKE  '%"&TiraAcento(palavra)&"%'  OR palavra_clave LIKE  '%"&TiraAcento(palavra)&"%' order by destaque asc "

[jrcardozo 4]

nesse caso não porque a função retira acentos e não coloca acentos

[Elbrinner 0]

É verdade...obrigado.