1) formulario:
<form id="form1" name="form1" method="post" action="fecha.asp">
fecha <label> <input name="actual" type="text" id="actual" /> </label>
<label> <input name="enviar" type="submit" id="enviar" value="Enviar" />
</label>
</form>
2) la selección:
<%
dim dia
dia=request.form("actual")
Set conn7=Server.CreateObject("ADODB.Connection")
conn7.open "midominio.mi base de datos"
Set rs7=Server.CreateObject("ADODB.RecordSet")
Ssql="select * from usuario where fecha="&dia&""
rs7.open Ssql,conn7,1,2
%>
</p>
<table width="100%" border="2" cellpadding="2" cellspacing="2" bordercolor="#000000" bgcolor="#CCCCCC" class="Estilo12">
<tr>
<td width="12%" bgcolor="#CCCCCC"><div align="center" class="Estilo7">Id</div></td>
<td width="13%" bgcolor="#CCCCCC"><div align="center" class="Estilo7">Fecha</div></td>
<td width="75%" bgcolor="#CCCCCC"><div align="center" class="Estilo7">correo</div></td>
</tr>
<%
DO While Not RS7.EOF
%>
<tr>
<TD valign="top" BGCOLOR="#FFFFFF" class="Estilo12"><div align="center" class="Estilo12"><span class="Estilo12"><%=rs7("id")%></span></div></TD>
<TD valign="top" BGCOLOR="#FFFFFF"><div align="center" class="Estilo12"><%=rs7("fecha")%></div></TD>
<TD valign="top" BGCOLOR="#FFFFFF"><div align="left"><span class="Estilo12"><%=rs7("correo")%></A></span></div></TD>
</tr>
<%
rs7.MoveNext
Loop
%>
</TABLE>
<br>
<%
rs7.close
conn7.close
Set rs7=nothing
Set conn7=nothing
%>
he colocado
Ssql="select * from usuario where fecha="&dia
Ssql="select * from usuario where fecha='"&dia&"'"
Ssql="select * from usuario where fecha='dia'"
Ssql="select * from usuario where fecha=&dia&"
Ssql="select * from usuario where fecha=""dia"
y nada...

Alguien podría ayudarme?? gracias