Problemas com filtro

Khelly · Outubro 27, 2009

Olá meus queridos amigos, mas uma vez trago um abacaxi pra vcs me ajudarem a descascar, se possivel, bem é o seguinte, na minha area de cadastro de noticias tenho um jump menu com datas, a ideia é ao selecionar uma data nele automaticmente apareça as noticias relacionadas a esta data,porem nao esta funcionando, seleciono uma data a pagina carrega mais nao aparece as noticias relacionadas, fica como se nao houvesse noticia , mesmo tendo, o codigo é este abaixo , vou postar completo pra ser mas facil vcs analisarem...desde ja muito, muito obrigada!!!

<%
ConnString="Driver={MySQL ODBC 3.51 Driver};Server=mysql01.odiariodeteresopolis.com.br;Port=3306;Database=odiariodeteres;User=odiariodeteres;Password=;Option=3" 
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open ConnString
%>
<style type="text/css">
<!--
.style1 {color: #CC0000}
-->
</style>


<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<table width="75%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="25" valign="top" class="mssansserif4"><strong>Notícias</strong></td>
  </tr>
  <tr>
    <td height="15"> </td>
  </tr>
  <tr>
    <td height="25">
	<% If Request.QueryString("acao") = "" Then %>
	<%
    	If Request.QueryString("data") = "" Then
			Set Noticias = Server.CreateObject("ADODB.Recordset")
			Noticias.Open "SELECT * FROM Noticias WHERE DataNoticia = CURDATE() ORDER BY DataNoticia", Conexao
		Else
			Set Noticias = Server.CreateObject("ADODB.Recordset")
			Noticias.Open "SELECT * FROM Noticias WHERE DataNoticia=('"& Request.QueryString("data") &"') ORDER BY DataNoticia", Conexao
		End If
					
		Contador = 0

		Set Datas = Server.CreateObject("ADODB.Recordset")
		Datas.Open "SELECT DISTINCT DataNoticia FROM Noticias ORDER BY DataNoticia", Conexao
        
        
	%>
      <table width="550" border="0" cellpadding="4" cellspacing="2">
        <tr bgcolor="#DADADA">
          <td width="82"><div align="center"><strong class="mssansserif3b">Data</strong></div></td>
          <td width="446"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="51%"><strong class="mssansserif3b">Título</strong></td>
          <form method="get" action="home.asp?item=noticias">
              <td width="14%">
			  	<strong class="mssansserif3b">Filtro:</strong>
              </td>
	  	      <td width="35%">
			  <% If Datas.EOF Then %>
			  	Banco de dados vazio
			  <% Else %>
			  <select name="data" onChange="MM_jumpMenu('parent.frames[\'home\']',this,0)">
	  	        <option selected>selecione...</option>
				<% Datas.MoveFirst : While Not Datas.EOF %>
	                <option value="home.asp?item=noticias&data=<%= Datas("DataNoticia") %>"><%= Datas("DataNoticia") %></option>
				<% Datas.MoveNext : Wend %>
              </select>
			  <% End If %>
			  </td>
          </form>
            </tr>
          </table></td>
        </tr>
		<% If Noticias.EOF Then %>
        <tr class="tahoma1" bgcolor="#FFFFFF">
          <td colspan="2"><div align="center">Não há matérias para a data de hoje</div></td>
        </tr>
		<% Else %>
		<%
		Noticias.MoveFirst : While Not Noticias.EOF
		If Contador Mod 2 = 0 Then Cor="#FFFFFF" Else Cor="#EEEEEE"
		%>
        <tr class="tahoma1" bgcolor="<%= Cor %>">
          <td><div align="center"><%= Noticias("DataNoticia") %></div></td>
          <td><a href="home.asp?item=noticias&acao=editar&id=<%= Noticias("IdNoticia") %>" class="tahoma1"><%= Noticias("TituloNoticia") %></a></td>
        </tr>
		<%
		Noticias.MoveNext
		Contador = Contador + 1
		Wend
		%>
	<% End If %>
        <tr bgcolor="#DADADA">
          <td colspan="2">
            <div align="center"><a href="home.asp?item=noticias&acao=incluir" class="mssansserif4"><strong>Adicionar nova Notícia </strong></a>        <a href="home.asp?item=imagens" class="mssansserif4"><strong>Banco de Imagens</strong></a>        <a href="gerar_ticker.asp" class="mssansserif4"><strong>Gerar Ticker</strong></a></div>
          </td>
        </tr>
      </table>
	<%
		Datas.Close
		Set Datas = Nothing

		Noticias.Close
		Set Noticias = Nothing
	%>
	<% End If %>
	<% If Request.QueryString("acao") = "incluir" Then %>
	<%
		Set Autores = Server.CreateObject("ADODB.Recordset")
		Autores.Open "SELECT * FROM Autores WHERE CategoriaAutor='Jornalista' ORDER BY NomeAutor", Conexao

		Set Editorias = Server.CreateObject("ADODB.Recordset")
		Editorias.Open "SELECT * FROM Editorias ORDER BY NomeEditoria", Conexao

		Set Cadernos = Server.CreateObject("ADODB.Recordset")
		Cadernos.Open "SELECT * FROM Cadernos ORDER BY NomeCaderno", Conexao

		Set BancoImagens = Server.CreateObject("ADODB.Recordset")
		BancoImagens.Open "SELECT * FROM BancoImagens ORDER BY NomeImagem", Conexao


                Set Noticias = Server.CreateObject("ADODB.Recordset")
		Noticias.Open "SELECT * FROM Noticias ORDER BY IdNoticia", Conexao
	%>
		
        <form action="acao_noticias.asp" method="post" name="" id="">
          <table width="550" border="0" cellspacing="1" cellpadding="4">
            <tr class="mssansserif4">
              <td width="101">Autor:</td>
              <td colspan="3">
			  <select name="IdAutor" id="IdAutor">
			  <% Autores.MoveFirst : While Not Autores.EOF %>
                <option value="<%= Autores("IdAutor") %>"><%= Autores("NomeAutor") %></option>
			  <% Autores.MoveNext : Wend %>
              </select>			  </td>
            </tr>
            <tr class="mssansserif4">
              <td>Editoria:</td>
              <td colspan="3">
			  <select name="IdEditoria" id="IdEditoria">
			  <% Editorias.MoveFirst : While Not Editorias.EOF %>
                <option value="<%= Editorias("IdEditoria") %>"><%= Editorias("NomeEditoria") %></option>
			  <% Editorias.MoveNext : Wend %>
              </select>			  </td>
            </tr>
            <tr class="mssansserif4">
              <td>Caderno:</td>
              <td colspan="3">
                <select name="IdCaderno" id="IdCaderno">
                  <% Cadernos.MoveFirst : While Not Cadernos.EOF %>
                  <option value="<%= Cadernos("IdCaderno") %>"><%= Cadernos("NomeCaderno") %></option>
                  <% Cadernos.MoveNext : Wend %>
                </select>              </td>
            </tr>
            <tr class="mssansserif4">
              <td>Data:</td>
              <td width="120"><input name="DataNoticia" type="text" id="DataNoticia" size="20"></td>
              <td width="148" align="right">Hora:</td>
              <td width="144"><input type="text" name="hora" id="hora" /></td>
            </tr>
            <tr class="mssansserif4">
              <td>Sob-Titulo:</td>
              <td colspan="3"><input name="sobtitulonoticia" type="text" id="sobtitulonoticia" size="60" /></td>
            </tr>
            <tr class="mssansserif4">
              <td>Título:</td>
              <td colspan="3"><input name="TituloNoticia" type="text" id="TituloNoticia" size="50"></td>
            </tr>
            <tr class="mssansserif4">
              <td>Sub-Título:</td>
              <td colspan="3"><input name="SubTituloNoticia" type="text" id="SubTituloNoticia" size="60"></td>
            </tr>
            <tr class="mssansserif4">
              <td>Texto:</td>
              <td colspan="3" rowspan="2"><textarea name="TextoNoticia" cols="60" rows="10" id="TextoNoticia"></textarea></td>
            </tr>
            <tr class="mssansserif4">
              <td> </td>
            </tr>
            <tr class="mssansserif4">
              <td>Foto:</td>
              <td colspan="3">
			  <select name="IdImagem" id="IdImagem">
              <option value="0" selected>Sem foto</option>
			  <% BancoImagens.MoveFirst : While Not BancoImagens.EOF %>
                <option value="<%= BancoImagens("IdImagem") %>"><%= BancoImagens("NomeImagem") %></option>
			  <% BancoImagens.MoveNext : Wend %>
              </select>			  </td>
            </tr>
            <tr class="mssansserif4">
              <td>Legenda:</td>
              <td colspan="3"><input name="FotoLegenda" type="text" id="FotoLegenda" size="60"></td>
            </tr>
            <tr class="mssansserif4">
              <td>Destaque:</td>
              <td>
			  <select name="DestaqueNoticia" id="DestaqueNoticia">
                <option value="1">Sim</option>
                <option value="0" selected>Não</option>
              </select>			  </td>
              <td>Destaque2:
                <select name="DestaqueNoticia2" id="DestaqueNoticia2">
                  <option value="1">Sim</option>
                  <option value="0" selected="selected">Não</option>
                </select></td>
              <td>Destaque3:
                <select name="DestaqueNoticia3" id="DestaqueNoticia3">
                  <option value="1">Sim</option>
                  <option value="0" selected="selected">Não</option>
                </select></td>
            </tr>
            <tr class="mssansserif4">
              <td> </td>
              <td> </td>
              <td>Destaque4:
                <select name="DestaqueNoticia4" id="DestaqueNoticia4">
                  <option value="1">Sim</option>
                  <option value="0" selected="selected">Não</option>
                </select></td>
              <td> </td>
            </tr>
            <tr class="mssansserif4">
              <td>Resumo:</td>
              <td colspan="3" rowspan="2"><textarea name="ResumoDestaque" cols="60" rows="5" id="ResumoDestaque"></textarea></td>
            </tr>
            <tr class="mssansserif4">
              <td> </td>
            </tr>
            <tr class="mssansserif4">
              <td> </td>
              <td colspan="3"> </td>
            </tr>
            <tr class="mssansserif4">
              <td colspan="4"><input name="acao" type="submit" class="botao" id="acao" value="Incluir nova Notícia">              </td>
            </tr>
          </table>
      </form>
	<%
		BancoImagens.Close
		Set BancoImagens = Nothing

		Cadernos.Close
		Set Cadernos = Nothing

		Autores.Close
		Set Autores = Nothing
		
		Editorias.Close
		Set Editorias = Nothing
	%>
	<% End If %>
	<% If Request.QueryString("acao") = "editar" Then %>
	<%
		Set Noticias = Server.CreateObject("ADODB.Recordset")
		Noticias.Open "SELECT * FROM Noticias WHERE IdNoticia="& Request.QueryString("id"), Conexao

		Set Autores = Server.CreateObject("ADODB.Recordset")
		Autores.Open "SELECT * FROM Autores WHERE CategoriaAutor='Jornalista' ORDER BY NomeAutor", Conexao

		Set Cadernos = Server.CreateObject("ADODB.Recordset")
		Cadernos.Open "SELECT * FROM Cadernos ORDER BY NomeCaderno", Conexao

		Set Editorias = Server.CreateObject("ADODB.Recordset")
		Editorias.Open "SELECT * FROM Editorias ORDER BY NomeEditoria", Conexao

		Set BancoImagens = Server.CreateObject("ADODB.Recordset")
		BancoImagens.Open "SELECT * FROM BancoImagens ORDER BY NomeImagem", Conexao
	%>
        <form action="acao_noticias.asp" method="post" name="" id="">
          <table width="550" border="0" cellspacing="1" cellpadding="4">
            <tr class="mssansserif4">
              <td width="101">Autor:</td>
              <td colspan="3">
                <select name="IdAutor" id="IdAutor">
                  <% Autores.MoveFirst : While Not Autores.EOF %>
				  	<% If Autores("IdAutor") = Noticias("IdAutor") Then %>
                  		<option value="<%= Autores("IdAutor") %>" selected><%= Autores("NomeAutor") %></option>
					<% Else %>
                  		<option value="<%= Autores("IdAutor") %>"><%= Autores("NomeAutor") %></option>
					<% End If %>
                  <% Autores.MoveNext : Wend %>
                </select>              </td>
            </tr>
            <tr class="mssansserif4">
              <td>Editoria:</td>
              <td colspan="3">
                <select name="IdEditoria" id="IdEditoria">
                  <% Editorias.MoveFirst : While Not Editorias.EOF %>
				  	<% If Editorias("IdEditoria") = Noticias("IdEditoria") Then %>
	                  <option value="<%= Editorias("IdEditoria") %>" selected><%= Editorias("NomeEditoria") %></option>
				 	<% Else %>
	                  <option value="<%= Editorias("IdEditoria") %>"><%= Editorias("NomeEditoria") %></option>
					<% End If %>
                  <% Editorias.MoveNext : Wend %>
                </select>              </td>
            </tr>
            <tr class="mssansserif4">
              <td>Caderno:</td>
              <td colspan="3">
                <select name="IdCaderno" id="IdCaderno">
                  <% Cadernos.MoveFirst : While Not Cadernos.EOF %>
                  <% If Cadernos("IdCaderno") = Noticias("IdCaderno") Then %>
                  <option value="<%= Cadernos("IdCaderno") %>" selected><%= Cadernos("NomeCaderno") %></option>
                  <% Else %>
                  <option value="<%= Cadernos("IdCaderno") %>"><%= Cadernos("NomeCaderno") %></option>
                  <% End If %>
                  <% Cadernos.MoveNext : Wend %>
                </select>              </td>
            </tr>
            <tr class="mssansserif4">
              <td>Data:</td>
              <td width="120"><input name="DataNoticia" type="text" id="DataNoticia" value="<%= Noticias("DataNoticia") %>" size="20"></td>
              <td width="148" align="right">Hora:</td>
              <td width="144"><input type="text" name="hora" id="hora"  value="<%= Noticias("hora") %>"/></td>
            </tr>
            <tr class="mssansserif4">
              <td>Sob-titulo</td>
              <td colspan="3"><input name="sobtitulonoticia" type="text" id="sobtitulonoticia" size="60" value="<%= Noticias("sobtitulonoticia") %>" /></td>
            </tr>
            <tr class="mssansserif4">
              <td>Título:</td>
              <td colspan="3"><input name="TituloNoticia" type="text" id="TituloNoticia" size="50" value="<%= Noticias("TituloNoticia") %>"></td>
            </tr>
            <tr class="mssansserif4">
              <td>Sub-Título:</td>
              <td colspan="3"><input name="SubTituloNoticia" type="text" id="SubTituloNoticia" size="60" value="<%= Noticias("SubTituloNoticia") %>"></td>
            </tr>
            <tr class="mssansserif4">
              <td>Texto:</td>
              <td colspan="3" rowspan="2"><textarea name="TextoNoticia" cols="60" rows="10" id="TextoNoticia"><%= Noticias("TextoNoticia") %></textarea></td>
            </tr>
            <tr class="mssansserif4">
              <td> </td>
            </tr>
            <tr class="mssansserif4">
              <td>Foto:</td>
              <td colspan="3">
                <select name="IdImagem" id="IdImagem">
         		<option value="0">Sem foto</option>
                  <% BancoImagens.MoveFirst : While Not BancoImagens.EOF %>
				  	<% If BancoImagens("IdImagem") = Noticias("IdImagem") Then %>
	                  <option value="<%= BancoImagens("IdImagem") %>" selected><%= BancoImagens("NomeImagem") %></option>
					<% Else %>
	                  <option value="<%= BancoImagens("IdImagem") %>"><%= BancoImagens("NomeImagem") %></option>
					<% End If %>
                  <% BancoImagens.MoveNext : Wend %>
                </select>              </td>
            </tr>
            <tr class="mssansserif4">
              <td>Legenda:</td>
              <td colspan="3"><input name="FotoLegenda" type="text" id="FotoLegenda" size="60" value="<%= Noticias("FotoLegenda") %>"></td>
            </tr>
            <tr class="mssansserif4">
              <td>Destaque:</td>
              <td>
                <select name="DestaqueNoticia" id="DestaqueNoticia">
				<% If Noticias("DestaqueNoticia") = 1 Then %>
                  <option value="1" selected>Sim</option>
                  <option value="0">Não</option>
				<% Else %>
                  <option value="1">Sim</option>
                  <option value="0" selected>Não</option>
				<% End If %>
                </select>              </td>
              <td>Destaque2:
                <select name="DestaqueNoticia2" id="DestaqueNoticia2">
                  <% If Noticias("DestaqueNoticia2") = 1 Then %>
                  <option value="1" selected="selected">Sim</option>
                  <option value="0">Não</option>
                  <% Else %>
                  <option value="1">Sim</option>
                  <option value="0" selected="selected">Não</option>
                  <% End If %>
                </select></td>
              <td>Destaque3:
                <select name="DestaqueNoticia3" id="DestaqueNoticia3">
                  <% If Noticias("DestaqueNoticia3") = 1 Then %>
                  <option value="1" selected="selected">Sim</option>
                  <option value="0">Não</option>
                  <% Else %>
                  <option value="1">Sim</option>
                  <option value="0" selected="selected">Não</option>
                  <% End If %>
                </select></td>
            </tr>
            <tr class="mssansserif4">
              <td> </td>
              <td> </td>
              <td>Destaque4:
                <select name="DestaqueNoticia4" id="DestaqueNoticia4">
                  <% If Noticias("DestaqueNoticia4") = 1 Then %>
                  <option value="1" selected="selected">Sim</option>
                  <option value="0">Não</option>
                  <% Else %>
                  <option value="1">Sim</option>
                  <option value="0" selected="selected">Não</option>
                  <% End If %>
                </select></td>
              <td> </td>
            </tr>
            <tr class="mssansserif4">
              <td>Resumo:</td>
              <td colspan="3" rowspan="2"><textarea name="ResumoDestaque" cols="60" rows="5" id="ResumoDestaque"><%= Noticias("ResumoDestaque") %></textarea></td>
            </tr>
            <tr class="mssansserif4">
              <td> </td>
            </tr>
            <tr class="tahoma1">
              <td colspan="4"> </td>
            </tr>
            <tr class="tahoma1">
              <td colspan="4"><input name="acao" type="submit" class="botao" id="acao" value="Alterar dados">
                <input name="acao" type="submit" class="botao" id="acao" value="Apagar dados">
                <input name="IdNoticia" type="hidden" id="IdNoticia" value="<%= Noticias("IdNoticia") %>"></td>
            </tr>
          </table>
      </form>
	<%
		BancoImagens.Close
		Set BancoImagens = Nothing

		Cadernos.Close
		Set Cadernos = Nothing

		Autores.Close
		Set Autores = Nothing
		
		Editorias.Close
		Set Editorias = Nothing

		Noticias.Close
		Set Noticias = Nothing
	%>
	<% End If %>
</td>
  </tr>
</table>
<%
Conexao.Close
Set Conexao = Nothing
%>

jrcardozo · Outubro 27, 2009

o que está vindo(formato) em Request.QueryString("data")?

Khelly · Outubro 27, 2009

Olá jonathan , baseado na sua pergunta me toquei que a data devia esta sendo passada neste formato dd-mm-yyyy, sendo que como meu banco é mysql a data fica yyyy-mm-dd, pois bem, coloquei uma função que coloca a data no formato do banco assim o meu filtro voltou a funcionar o codigo ficou assim:

<% If Request.QueryString("acao") = "" Then %>
	<%
    	If Request.QueryString("data") = "" Then
			Set Noticias = Server.CreateObject("ADODB.Recordset")
			Noticias.Open "SELECT * FROM Noticias WHERE DataNoticia = CURDATE() ORDER BY DataNoticia", Conexao
		Else
 
 'recebe data ( dd/mm/yyyy )e da um split para transformar em array
data = Request.QueryString("data")
array_data = split(data,"/")
dia = array_data(0)
mes = array_data(1)
ano = array_data(2)
'coloca no formato do banco
data_mysql = ano & "-" & mes & "-" & dia
		
			Set Noticias = Server.CreateObject("ADODB.Recordset")
			Noticias.Open "SELECT * FROM Noticias WHERE DataNoticia=('"& data_mysql &"') ORDER BY DataNoticia", Conexao
		End If

Mais uma muitissimo obrigada pela ajuda...bjao!!!!

jrcardozo · Outubro 27, 2009

assim deve funcionar também e usa funções nativas do proprio sqlserver

Noticias.Open "SELECT * FROM Noticias WHERE DataNoticia=CONVERT(CHAR(10), CAST('" & Request.QueryString("data") & "' AS DATETIME), 20) ORDER BY DataNoticia", Conexao

xanburzum · Outubro 27, 2009

você Tb pode fazer critérios combinando sua pesquisa, ajuda bastante o user, e o conselho do Jonathan, de usar comando SQL direto na string SQL, melhorar o desempenho

Khelly · Outubro 28, 2009

Obrigada meninos, vou seguir o conselho de vcs e implementar meu codigo desta maneira, obrigada...bjus

xanburzum · Outubro 28, 2009

beleza,kker coisa posta ae....

Entrar

Arquivado

Problemas com filtro

Recommended Posts

Khelly 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Khelly 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Khelly 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante