Validação de palavra chave

[.lucas. 0]

Olá

Estou precisando criar um sistema que dependendo da busca redirecione para outras páginas, mas só consigo fzer isso com uma palavra diferente.

 

Olhem o arquivo

 

<% @LANGUAGE = VBScript %><%Option Explicit%><!--#include file="dbconn.inc" --><!--#include file="functions.inc" --><%Dim CONTADORIf request("search") <> "" ThenstrSQL = "SELECT COUNT([tbproduto].[NOMEPROD]) AS CONTADOR FROM tbproduto WHERE ((([tbproduto].[NOMEPROD]) LIKE '%" + FormataBusca(request("search")) + "%') And (([tbproduto].[STATUSPROD])=1));"ElsestrSQL = "SELECT COUNT([tbproduto].[NOMEPROD]) AS CONTADOR FROM tbproduto WHERE (((tbproduto.STATUSPROD)=1) AND ((tbproduto.CDCAT)=" + CStr(request("CDCAT"))+ "));"End IfSet RS = objConn.Execute(strSQL)If RS("CONTADOR") = 0 ThenResponse.redirect("http://www.MEUSITE/notfind.asp?search=" + request("search") + "&cdcat=" + request("CDCAT")+ "")Elseif If request("search") <> "dvd" ThenResponse.redirect("http://www.MEUSITE.pesquisa.asp?search=" + request("search") + "&cdcat=" + request("CDCAT")+ "")ElseResponse.redirect("http://www.MEUSITE.pesquisa1.asp?search=" + request("search") + "&cdcat=" + request("CDCAT")+ "")End If%>

Quando eu crio outros Elseif ele sempre redireciona para o primeiro.

 

Me ajudem por favor.

[shumi 0]

Não entendi muito bem o que quer fazer, mas aqui:

If RS("CONTADOR") = 0 ThenResponse.redirect("http://www.MEUSITE/notfind.asp?search=" + request("search") + "&cdcat=" + request("CDCAT")+ "")Elseif If request("search") <> "dvd" ThenResponse.redirect("http://www.MEUSITE.pesquisa.asp?search=" + request("search") + "&cdcat=" + request("CDCAT")+ "")ElseResponse.redirect("http://www.MEUSITE.pesquisa1.asp?search=" + request("search") + "&cdcat=" + request("CDCAT")+ "")End If

Não seria assim?

If RS("CONTADOR") = 0 ThenResponse.redirect("http://www.MEUSITE/notfind.asp?search=" + request("search") + "&cdcat=" + request("CDCAT")+ "")Elseif request("search") <> "dvd" ThenResponse.redirect("http://www.MEUSITE.pesquisa.asp?search=" + request("search") + "&cdcat=" + request("CDCAT")+ "")ElseResponse.redirect("http://www.MEUSITE.pesquisa1.asp?search=" + request("search") + "&cdcat=" + request("CDCAT")+ "")End IF

Abraços

[.lucas. 0]

Eu to precisando que a cada busca efetuada dependendo da palavra chave ele redirecione para outra pag.

 

EX... busca DVD

http://www.meusite.pesquisa1.asp

 

EX... busca CD

http://www.meusite.pesquisa2.asp

 

EX... busca qquer outra palavra

http://www.meusite.pesquisa.asp

 

baseado nesse código que eh o da search.asp o q eu posso alterar?

[shumi 0]

testa o que te falei acima!Abraços

[.lucas. 0]

Velho, agradeço a sua ajuda!!

 

Mais ainda naum esta dando certo, do jeito que eu preciso..

 

Olha pq..

 

Elseif request("search") <> "dvd" Then

 

Response.redirect("http://www.MEUSITE.com.br/pesquisa.asp?search=" + request("search") + "&cdcat=" + request("CDCAT")+ "")

 

Elseif request("search") <> "cd" Then

 

Response.redirect("http://www.MEUSITE.com.br/pesquisa1.asp?search=" + request("search") + "&cdcat=" + request("CDCAT")+ "")

 

Else

 

Response.redirect("http://www.MEUSITE.com.br/pesquisa2.asp?search=" + request("search") + "&cdcat=" + request("CDCAT")+ "")

 

Gostaria que por ex a pag DVD fosse para o end: MEUSITE.com.br/pesquisa.asp - só que ela esta indo para a de baixo...

até então nao há problema, só que eu vou adicionar umas 10 palavras chavs q vão para outras paginas. e o resto das buscas vão para a pesquisa.asp normal.

O que eu faço?

[Salgado 4]

Mude a forma de comparação, se for igual redireciona se não for vai para o teste seguinte.

[.lucas. 0]

Por favorTem como alterar pra mim do jeito q você disse e postar??to quebrando a kbeça com isso à horas... sou novato.abraços

[Salgado 4]

COmo está sua comparação? testando se é diferente correto? Então, ela deve ser testando se é igual e passar a redirecionar para o site que você quer. Não há mistério, é só tentar!

 

 

Abrass.

[.lucas. 0]

Tah dando esse erro agora

 

Microsoft VBScript runtime error '800a01f4'

 

Variable is undefined: 'Link'

 

/search.asp, line 16

 

E o código q eu joguei

 

 

<% @LANGUAGE = VBScript %><%Option Explicit%><!--#include file="dbconn.inc" --><!--#include file="functions.inc" --><%Dim CONTADORSelect Case request("search")Case "DVD" : Link = "www.site.dvd.com"Case "CD" : Link = "www.site.dvd.com"Case "VHS" : Link = "www.site.vhs.com"Case "Contato" : Link = "www.site.contato.com"Case Else : Link = "www.site.com.br"End SelectResponse.Redirect LinkIf request("search") <> "" ThenstrSQL = "SELECT COUNT([tbproduto].[NOMEPROD]) AS CONTADOR FROM tbproduto WHERE ((([tbproduto].[NOMEPROD]) LIKE '%" + FormataBusca(request("search")) + "%') And (([tbproduto].[STATUSPROD])=1));"ElsestrSQL = "SELECT COUNT([tbproduto].[NOMEPROD]) AS CONTADOR FROM tbproduto WHERE (((tbproduto.STATUSPROD)=1) AND ((tbproduto.CDCAT)=" + CStr(request("CDCAT"))+ "));"End IfSet RS = objConn.Execute(strSQL)If RS("CONTADOR") = 0 ThenResponse.redirect("http://www.site.notfind.com?search=" + request("search") + "&cdcat=" + request("CDCAT")+ "")ElseResponse.redirect("http://www.site.dvd.com?search=" + request("search") + "&cdcat=" + request("CDCAT")+ "")End If%>

[Salgado 4]

Troque:

Dim CONTADOR

Por:

Dim CONTADOR, LINK

[.lucas. 0]

Funcionou =)agora só to comproblema pra aparecer a notfind... q eh pra resultados sem sucesso... não sei onde inserir!!

[.lucas. 0]

cosnegui, valew povoabraços