If Danado De Ruim......

[Response.Anubis]

GALERA O SEGUINTE.......TEM UM TABELA COM 31 COLUNAS.......

QUERO FAZER UMA BUSCA EXTADA DA PALAVRA DIGITADA NUM FORM DE BUSCA;;;;;;;

ELE ACHA CERTINHO AONDE ESTÁ A PALAVRA + NÃO FILTRA POR COLUNA......

RESUMINDO ASSIM....

TABELA Programas de TV

Colunas ID, Programa01, Programa02, Programa03, Programa04......etc.......

EX. DE UKMA COLUNA PREENCHIDA......

Programa01

Programa do fantastico com gloria maria, pelé, ronaldinho, xaves, tiririca...bla..bla..bla...

QUANDO O CIDADÃO DIGITAR POR EXEMPLO TIRIRICA.....

ELE ME TÁ O TEXTO SOMENTE DO Programa01.....

SEGUE O FORM DE BUSCA """"""""""""GET"""""""""""""......

<form action="pesquisaroteiros.asp" method="get">
<input name="palavra" type="text" class="MENUQNTFORMROT" id="palavra" size="23" value="Digite">
<input name="Submit" type="image" id="Submit" src="imgs/ok.gif" alt="Clique para Procurar :::..." width="21" height="14" border="0"/>
</form>

SEGUE O COD ABAIXO DE BUSCA E RESPOSTA......

<% DIM VBUSCAPALAVRA

VBUSCAPALAVRA  = request.QueryString("palavra")

IF VBUSCAPALAVRA = "Digite" THEN
response.redirect("erro_pesquisaroteiros.asp")
END IF

IF VBUSCAPALAVRA <>"" THEN

conectar

sel="select * from roteiros where n_pgm_rot like '%" & VBUSCAPALAVRA & "%' or local_bloco1_rot like '%" & VBUSCAPALAVRA & "%' or local_bloco2_rot like '%" & VBUSCAPALAVRA & "%' or local_bloco3_rot like '%" & VBUSCAPALAVRA & "%' or local_bloco4_rot like '%" & VBUSCAPALAVRA & "%' or local_bloco5_rot like '%" & VBUSCAPALAVRA & "%' or materia_bloco1_rot like '%" & VBUSCAPALAVRA & "%' or materia_bloco2_rot like '%" & VBUSCAPALAVRA & "%' or materia_bloco3_rot like '%" & VBUSCAPALAVRA & "%' or materia_bloco4_rot like '%" & VBUSCAPALAVRA & "%' or materia_bloco5_rot like '%" & VBUSCAPALAVRA & "%' or insert_bloco1_rot like '%" & VBUSCAPALAVRA & "%' or insert_bloco2_rot like '%" & VBUSCAPALAVRA & "%' or insert_bloco3_rot like '%" & VBUSCAPALAVRA & "%' or insert_bloco4_rot like '%" & VBUSCAPALAVRA & "%' or insert_bloco5_rot like '%" & VBUSCAPALAVRA & "%' or mercha_bloco1_rot like '%" & VBUSCAPALAVRA & "%' or mercha_bloco2_rot like '%" & VBUSCAPALAVRA & "%' or mercha_bloco3_rot like '%" & VBUSCAPALAVRA & "%' or mercha_bloco4_rot like '%" & VBUSCAPALAVRA & "%' or mercha_bloco5_rot like '%" & VBUSCAPALAVRA & "%' order by n_pgm_rot desc"

  rs.open sel,cn,3,3
  if rs.eof then
  response.Redirect("erro_pesquisaroteiros.asp")
  response.End()
  end if
  do until rs.eof
%>
<table width="150" border="0" align="center" cellpadding="0" cellspacing="0" class="ResultadosRoteiroPGM">
  <tr>
    <td width="164"><font color="#000000">Programa Numero = <%=rs("n_pgm_rot")%> </font><br><br>
<!-------------------------------------------------------- INICIO FILTROS DE BLOCOS 01 A 05 -->
<!-------------------------------------------------------- INICIO FILTROS DE BLOCOS 01 A 05 --><!-------------------------------------------------------- INICIO FILTROS DE BLOCOS 01 A 05 -->
<!-------------------------------------------------------- INICIO FILTROS DE BLOCOS 01 A 05 -->

ESSE IF NÃO ESTÁ FUNCIONANDO....NÃO RETORNA MSG DE ERRO NEN NADA SÓ EXIBE O "PROGRAMA NUMERO" ESSE aqui que ESTÁ CITADO NO COD ACIMA

<%=rs("n_pgm_rot")%>

AS INFORMAÇÕES DAS COLUNA NÃO...... QUESTÃO PRINCIPAL....COMO FAÇO PRA VALIDAR ESSE IF ABAIXO...

<%IF rs("materia_bloco1_rot") = "%"&VBUSCAPALAVRA&"%" Then %>
<!-------------------------------------------------------------------------------------------->
<!-------------------------------------------------------------------------------------------->
<a href="definir_video1_roteiros.asp?assistir=<%=rs("video_bloco1_rot")%>&ler=<%=rs("n_pgm_rot")%>&bloco=imgs/background_dec_roteiros_B1.jpg&palavra=<%=VBUSCAPALAVRA%>"><img src="imgs/b1.gif" width="29" height="17" border="0"></a>
<%end if%>
<!-------------------------------------------------------------------------------------------->
<!-------------------------------------------------------------------------------------------->
<%IF rs("materia_bloco2_rot") = "'%" & VBUSCAPALAVRA & " %'" Then %>
<!-------------------------------------------------------------------------------------------->
<!-------------------------------------------------------------------------------------------->
<a href="definir_video1_roteiros.asp?assistir=<%=rs("video_bloco2_rot")%>&ler=<%=rs("n_pgm_rot")%>&bloco=imgs/background_dec_roteiros_B2.jpg&palavra=<%=VBUSCAPALAVRA%>"><img src="imgs/b2.gif" width="29" height="17" border="0"></a>
<%end if%>
<!-------------------------------------------------------------------------------------------->
<!-------------------------------------------------------------------------------------------->
<%IF rs("materia_bloco3_rot") = "'%" & VBUSCAPALAVRA & " %'" Then %>
<!-------------------------------------------------------------------------------------------->
<!-------------------------------------------------------------------------------------------->
<a href="definir_video1_roteiros.asp?assistir=<%=rs("video_bloco3_rot")%>&ler=<%=rs("n_pgm_rot")%>&bloco=imgs/background_dec_roteiros_B3.jpg&palavra=<%=VBUSCAPALAVRA%>"><img src="imgs/b3.gif" width="29" height="17" border="0"></a>
<%end if%>
<!-------------------------------------------------------------------------------------------->
<!-------------------------------------------------------------------------------------------->
<%IF rs("materia_bloco4_rot") = "'%" & VBUSCAPALAVRA & " %'" Then %>
<!-------------------------------------------------------------------------------------------->
<!-------------------------------------------------------------------------------------------->
<a href="definir_video1_roteiros.asp?assistir=<%=rs("video_bloco4_rot")%>&ler=<%=rs("n_pgm_rot")%>&bloco=imgs/background_dec_roteiros_B4.jpg&palavra=<%=VBUSCAPALAVRA%>"><img src="imgs/b4.gif" width="29" height="17" border="0"></a>
<%end if%>
<!-------------------------------------------------------------------------------------------->
<!-------------------------------------------------------------------------------------------->

<%IF rs("materia_bloco5_rot") = "'%" & VBUSCAPALAVRA & " %'" Then %>
<!-------------------------------------------------------------------------------------------->
<!-------------------------------------------------------------------------------------------->
<a href="definir_video1_roteiros.asp?assistir=<%=rs("video_bloco5_rot")%>&ler=<%=rs("n_pgm_rot")%>&bloco=imgs/background_dec_roteiros_B5.jpg&palavra=<%=VBUSCAPALAVRA%>"><img src="imgs/b5.gif" width="29" height="17" border="0"></a>
<%end if%>
<!-------------------------------------------------------------------------------------------->
<!-------------------------------------------------------------------------------------------->

<!-------------------------------------------------------- TERMINO FILTROS DE BLOCOS 01 A 05 -->
<!-------------------------------------------------------- TERMINO FILTROS DE BLOCOS 01 A 05 -->
<!-------------------------------------------------------- TERMINO FILTROS DE BLOCOS 01 A 05 -->
<!-------------------------------------------------------- TERMINO FILTROS DE BLOCOS 01 A 05 -->

</td>
    </tr>
    <tr>
    <td>________________________</td>
    </tr>
</table>
<br>
<%
    rs.movenext
    loop
    desconectar
END IF
%>

Agradeço desde já"

[Graymalkin]

Na linha...

<%IF rs("materia_bloco5_rot") = "'%" & VBUSCAPALAVRA & " %'" Then %>

... você deveria usar o operador LIKE ou a função InStr(), não?

Abraços,

Graymalkin

[Response.Anubis]

PELOS TESTES aqui, NA LINHA ABAIXO ELE NÃO ACHA A PALAVRA......

<%IF rs("materia_bloco5_rot") = "'%" & VBUSCAPALAVRA & " %'" Then %>

POIS ELA ESTÁ NO MEIO DE UM TEXTO...... NÃO ESTÁ ACEITANDO ESSA PARTE DO COD ABAIXO....

 "'%" 

SE EU REMOVER O TEXTO DA MINHA COLUNA E DEIXAR SÓ UMA PALAVRA E ALTERAR A LINHA SOMENTE COM A VARIAVEL......FUNCIONA.....EX.:

<%IF rs("materia_bloco5_rot") = VBUSCAPALAVRA Then %>

Sem querer abusar, você pode me explicar melhor.......

Ou postar um exemplo.......

Duvida ::::: Eu consigo usar o Like na linha if,,,,,,+ like não é uma função SQL???? Funciona??????

OBRIGADO.....ENQUANTO ISSO VOU BUSCAR + aqui........

OBRIGADO MESMO!

[Graymalkin]

Bom, em Visual Basic, o Like também é um operador da própria linguagem. Porém, pelo teste que fiz aqui, ele não existe no VBScript. Todavia, você ainda pode usar a função InStr(). Exemplo:

nome = "Anubis"
procurar = "ub"

posicao = instr(1, nome, procurar)

if posicao>0 then
  Response.Write(procurar & " existe em " & nome)
else
  Response.Write(procurar & " não existe em " & nome)
end if

Certo? ;)

Graymalkin