[Resolvido] Filtro por Data

Bom dia amigos. Como mtos sou iniciante em ASP.

Desenvolvi em sisteminha que busca no SQL Server os dados de uma determinada tabela e os exibe em uma pagina ASP.

O usuário tem campos para filtrar esses dados a sua escolha. Até ai tudo ok. O problema esta em fazer isso e exibir todos os dados filtrados pela data. Ou seja, o usuário digita a data em um campo e o sistema filtra e trás os dados da tabela.

Abaixo esta um trecho do código que está funcionando. Gostaria da ajuda de vcs para inserir um filtro por DATA além dos q ja tem.

filtro_Cliente = Request.Form("filtro_Cliente")
filtro_Distribuicao = Request.Form("filtro_Distribuicao")
filtro_Emitente = Request.Form("filtro_Emitente")
filtro_Assunto = Request.Form("filtro_Assunto")

%>

 <table width="100%" align="center">
 <tr>
 <td width="13%" align="center"><font size = 2 color = "#666666">Cliente</td>
 <td width="20%" align="center"><font size = 2 color = "#666666">Distribuicao</td>
 <td width="16%" align="center"><font size = 2 color = "#666666">Emitente</td>
 <td width="20%" align="center"><font size = 2 color = "#666666">Assunto</td>
 </tr>
 <tr>
 <td align="center">
 <input maxlength=50 class="texto" style="text-align: center" type="text" value="<%=Cliente%>" name="filtro_Cliente">
 </td>
 <td align="center">
 <input maxlength=60 class="texto" style="text-align: center" type="text" value="<%=Distribuicao%>" name="filtro_Distribuicao">
 </td>
 <td align="center">
 <input maxlength=50 class="texto" style="text-align: center" type="text" value="<%=Emitente%>" name="filtro_Emitente">
 </td>
 <td align="center">
 <input maxlength=100 class="texto" style="text-align: center" type="text" value="<%=Assunto%>" name="filtro_Assunto">
 </td>
 <td align="center">
 <input class="botao" style="width: 50%" type="submit" name="Filtrar" value="Filtrar">
 </td>
 </tr>
 </table>

 sql = "SELECT ContEng_AtaVisita.Numero, ContEng_AtaVisita.Cliente, ContEng_AtaVisita.Distribuicao, ContEng_AtaVisita.Emitente, ContEng_AtaVisita.Data, ContEng_AtaVisita.Assunto FROM ContEng_AtaVisita"
 sql = sql & " WHERE (Numero LIKE N'%" & filtro_Numero & "%')"

If filtro_Cliente <> "" Then
sql = sql & " AND (Cliente LIKE N'%" & filtro_Cliente & "%')"
End If

If filtro_Distribuicao <> "" Then
sql = sql & " AND (Distribuicao LIKE N'%" & filtro_Distribuicao & "%')"
End If

If filtro_Emitente <> "" Then
sql = sql & " AND (Emitente LIKE N'%" & filtro_Emitente & "%')"
End If

If filtro_Assunto <> "" Then
sql = sql & " AND (Assunto LIKE N'%" & filtro_Assunto & "%')"
End If

sql = sql & " ORDER BY Numero"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, Session("Gestao_conn"), 3