[Resolvido] Busca com Replace

[marcelocardoso 6]

Amigos!

 

Consegui este código aqui, e fui tentar usar, mas dá erro: na linha do RS.OPEN

<%
FUNCTION BuscaInteligente(str)
	 DIM v
				  v = LCASE(str)
				  v = Replace(v,"%","")
				  v = Replace(v,"'","")
				  v = Replace(v,"""","")
				  v = Replace(v, "ó" , "o")
				  v = Replace(v, "ò" , "o")
				  v = Replace(v, "ô" , "o")
				  v = Replace(v, "õ" , "o")
				  v = Replace(v, "ö" , "o")
				  v = Replace(v, "á" , "a")
				  v = Replace(v, "à" , "a")
				  v = Replace(v, "â" , "a")
				  v = Replace(v, "ã" , "a")
				  v = Replace(v, "ä" , "a")
				  v = Replace(v, "é" , "e")
				  v = Replace(v, "è" , "e")
				  v = Replace(v, "ê" , "e")
				  v = Replace(v, "ú" , "u")
				  v = Replace(v, "ù" , "u")
				  v = Replace(v, "û" , "u")
				  v = Replace(v, "ü" , "u")
				  v = Replace(v, "í" , "i")
				  v = Replace(v, "ì" , "i")
				  v = Replace(v, "ç" , "c")
				  v = Replace(v,"a","[a,á,à,ã,â,ä]")
				  v = Replace(v,"e","[e,é,è,ê]")
				  v = Replace(v,"i","[i,í,ì]")
				  v = Replace(v,"o","[o,ó,ò,õ,ô,ö]")
				  v = Replace(v,"u","[u,ú,ù,û,ü]")
				  v = Replace(v,"c","[c,ç]")
				  v = Replace(v,"'","['']")
   PreparaBusca = v
END FUNCTION
%>

 

Aqui nesta parte:

 

RS.OPEN		   "SELECT * FROM CDs WHERE (ID LIKE '%"& BuscaInteligente(CONQ_BUSCA," ", "%") &"%' OR Nome LIKE '%"& BuscaInteligente(CONQ_BUSCA," ", "%") &"%' OR Fabricante LIKE '%"& BuscaInteligente(CONQ_BUSCA," ", "%") &"%' OR Categoria LIKE '%"& BuscaInteligente(CONQ_BUSCA," ", "%") &"%' OR Descricao LIKE '%"& BuscaInteligente(CONQ_BUSCA," ", "%") &"%' OR Sigla LIKE '%"& BuscaInteligente(CONQ_BUSCA," ", "%") &"%') ORDER BY ID DESC", CONQ_CX

 

Oque estou fazendo de errado para dar este erro acima????

[Rodrigo1 0]

Na declaracao da funcao você usou apenas a variavel STR

 

E na hora de chamar esta funcao você esta passando mais de um parametro! BuscaInteligente(CONQ_BUSCA," ", "%")

 

Tente tbm usar returen no fim da funcao e ve no0 q q dá!

 

Faz um tempo que nao mecho com asp...

[augustoclaro 2]

as funções asp retornam a variavel com o nome da função, então no lugar de PreparaBusca = v coloque BuscaInteligente = v

 

 

Espero ter ajudado!

[marcelocardoso 6]

Obrigado!

 

 

Vou testar e qualquer coisa retorno.

Valeu mesmo...

 

Até mais...

[marcelocardoso 6]

Pessoal!

 

Consegui resolver,

era isso aqui?

 

Notem que estava repetido isso aqui Replace(v,"%","") na FUNÇÃO E também no SQL:

 

 

Retirei no SQL, e funcionou, ficando assim:

BuscaInteligente(CONQ_BUSCA)

[xikoo 0]

na verdade o que tava repetindo era isso aqui

 

v = Replace(v,"'","")
v = Replace(v,"'","['']")

onde dava replace no ' por vazio e também por ["]

 

caso você tenha problemas mais tarde é isso aí :)