Busca Por Data No Db

[PhoEniXFirE]

E ae galera?!

Pesquisei no fórum, mas realmente n achei exatamente o q eu queria por isso estou postando.

Pra quem já sabe isso é coisa simples!!

Estou com um formulário onde o internauta faz a busca das notícias por data:

              <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
                <tr>
                  <td height="30">
                  <p align="right"><font face="Arial" style="font-size: 8pt">
                  Dia:</font></td>
                  <td>
	<select name="dia" style="font-family: arial; font-size: 8 pt; color: #000; font-weight:700">

  	<option value="" selected>-</option>
  <% For intDay = 1 To 31 %>  
  	<option value="<% = intDay %>" ><% = intDay %></option>
  <% Next %>  	
	</select></td>
                  <td>
                  <p align="right"><font face="Arial" style="font-size: 8pt">
                  Mês:</font></td>
                  <td>
	<select name="mes" onChange="javascript: calculardias();" style="font-family: arial; font-size: 8 pt; color: #000; font-weight:700">
  <% For intMonth = 1 To 12 %>  
  	<option value="<% = intMonth %>" <% If Month(Now()) = intMonth Then Response.Write(" selected") %>><% = MonthName(intMonth) %></option>
  <% Next %>  
	</select></td>
                  <td>
                  <p align="right"><font face="Arial" style="font-size: 8pt">
                  Ano:</font></td>
                  <td>
	<select name="ano" onChange="javascript: calculardias();" style="font-family: arial; font-size: 8 pt; color: #000; font-weight:700">
  <% For intYear = Year(Now()) - 2 To Year(Now())%>  
  	<option value="<% = intYear %>" <% If Year(Now()) = intYear Then Response.Write(" selected") %>><% = intYear %></option>
  <% Next %>  	
	</select></td>
                </tr>
              </table>

Achei algumas coisas na pesquisa e testei, mas n deu certo:

Sql = "SELECT Noticias.Id AS Id, " & _
             "Noticias.Secao, " & _
             "Secao.Descricao AS Secao, " & _
             "Secao.Pasta AS Pasta, " & _
             "Noticias.Chamada AS Chamada, " & _
             "Noticias.Previa AS Previa, " & _
             "Noticias.Data AS Data " & _
             "FROM Secao INNER JOIN Noticias " & _
             "ON Secao.Cod=Noticias.Secao WHERE "

If Dia = "" Then

Else

Sql = Sql &  "DAY(Noticias.Data) = " & Dia & " AND "

End If

Sql = Sql &  "MONTH(Noticias.Data) = " & Mes & " AND YEAR(Noticias.Data) = " & Ano & "

Sql = Sql &  "ORDER BY Noticias.Data DESC;"

Será q alguém pode me informar qual o metódo correto para executar isso?

P.s.: Ah, o internauta se quiser pode n selecionar nenhum dia, no caso, assim buscando todos os dias daquele mês.

Abraço e obrigado pela atenção!!

[.Andreia.]

testado e funcionando: