filtrar fecha de hoy

[potenkin]

lo pongo de la siguiente manera, no funciona corractamente, me dice que no hay ninguna referencia.

<%
Dim hoy
hoy = Now()
if Weekday(hoy) = 1 then ' es Domingo
hoy = dateAdd("d", 1, hoy)
elseif Weekday(hoy) = 7 then ' es Sabado
hoy = dateAdd("d", 2, hoy)
end if
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows

Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_neoparc_STRING
Recordset1_cmd.CommandText = "SELECT * FROM menu WHERE fecha = #" & hoy & "#"
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 135, 1, -1, "%" + Recordset1__MMColParam + "%") ' adDBTimeStamp

Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>