Search by date range

Question

This should be simple but I cannot get it to work. Trying to
construct a page where the user enters a start date & an end
date & we display results.
I am using :
SELECT *
FROM AVRmonth
WHERE ExpiryDate BETWEEN #varStart# AND #varEnd#
In the Variables editor I have:
varStart % Request("startFld")
varEnd % Request("endFld")
This fails to work, DW gives the error of "Syntax error in
query expression 'ExpiryDate BETWEEN #%# AND #%#
If I change default values to be a date, eg: #1/1/04 DW gives
no error but query does not work
If I use no variables but just use :
SELECT *
FROM AVRmonth
WHERE ExpiryDate BETWEEN #01/01/04# AND #01/06/05#
It works & displays results from that date range.
I think I have tried all combinations of using # ' to
surround variable names but still no joy.
I am sure this is something blindingly obvious but I cannot
see it.
Can anyone please help...........
This is using MS Access 2000 database

Answer 1

You could use this and all you need to change is the
MM_NAMEOFYOURCONNECTION_STRING, look for the Dim
MM_YOURCONNECTION_STRING in the connections folder, but this should
work.add the <!--#include file="Connections/YOURCONN.asp" -->
from the top of your page. You can make this recordset from the
advanced button in the recordset creation wizard, there is a good
tutorial on adobes site also search for 'dreamweaver multiple
paramter query' for other tutorials
http://www.adobe.com/support/ultradev/building/multiple_param_search/multiple_param_search 02.html
<%
Dim rsFriday__MMstart
rsFriday__MMstart = "1"
If (Request.Form("strtFld") <> "") Then
rsFriday__MMstart = Request.Form("strtFld")
End If
%>
<%
Dim rsFriday__MMend
rsFriday__MMend = "1"
If (Request.Form("strtFld") <> "") Then
rsFriday__MMColParam = Request.Form("endFld")
End If
%>
<%
Dim rsFriday
Dim rsFriday_cmd
Dim rsFriday_numRows
Set rsFriday_cmd = Server.CreateObject ("ADODB.Command")
rsFriday_cmd.ActiveConnection =
MM_NAMEOFYOURCONNECTION_STRING
rsFriday_cmd.CommandText = "SELECT * FROM AVRmonth WHERE
ExpiryDate BETWEEN ? AND ?"
rsFriday_cmd.Prepared = true
rsFriday_cmd.Parameters.Append
rsFriday_cmd.CreateParameter("param1", 135, 1, -1,
rsFriday__MMstart) ' adDBTimeStamp
rsFriday_cmd.Parameters.Append
rsFriday_cmd.CreateParameter("param1", 135, 1, -1, rsFriday__MMend)
' adDBTimeStamp
Set rsFriday = rsFriday_cmd.Execute
rsFriday_numRows = 0
%>
put this at end of page after </body> </html>
tags;
<%
rsFriday.Close()
Set rsFriday = Nothing
%>