tienes que hacerle un pequeño cambio al formulario para poder buscar entre rangos de fechas, agregale uno qeu se llame fecha1 y otro fecha2.
para buscar fechas en asp creo que es #mes-dia-año# osea que en el sql tiene que llevar almhoadillas#, en la busqueda deberas colocarlo por ejemplo asi:
fecha1 11-30-2003 fecha2 12-31-2003
los resultados se manejan asi:
en la pagina buscar.asp
Código:
<%
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("libros.mdb")
Dim Temp
Temp = "SELECT * FROM Skytels WHERE titulo LIKE '%" & _
request.querystring("titulo") & "%' And escritor LIKE '%" & _
request.querystring("escritor") & "%' And descripcion LIKE '%" & _
request.querystring("descripcion") & "%' And fecha
Between #" & request.querystring("fecha1")& "# And #" & request.querystring("fecha2")& "# Order By libro ASC"
Tabla.Open Temp, Conexion
If not Tabla.eof then
' no estoy seguro de si asi se maneja la instruccion para las fechas pruebalo y me comentas.
%>
Resultados: <b><%=Tabla.recordcount%></b>
<% Do While not Tabla.eof %>
Titulo:<%=Tabla("titulo")%><br>
escritor:<%=Tabla("escritor")%><br>
descripcion:<%=Tabla("descripcion")%><br>
fecha:<%=Tabla("fecha")%>
<%
' con esto nos movemos de uno en uno por cada
'registro
Tabla.movenext
loop
%>
<%
'si no encontramos registros entonces
'mostramos mensaje en pantalla
else
response.write "no hay resultados para su busqueda."
End if
%>
lo he acomodado un poco a tus necesidades, ya el resto es solo copiar y pegar en tu diseño.(tendras que cambiar el nombre de cada campo en el formulario de busqueda por el que corresponda para qeu coincida con el request.querystring.
espero te sirva, depronto sale algun error en lo de las fechas ya qye no estoy seguro de uqe asi sea, pero el resto si es asi estoy seguro..
me avisas.
