filtrar fecha de hoy

[potenkin]

me devuelve

ADODB.Command error '800a0d5d'
La aplicación utiliza un valor de tipo no válido para la operación actual.

quizás no seria más facil buscar el dia, por dia de la semana (ya que solamente se introduce una semana de 5 referencias, una por día de la semana de lunes a viernes (ya que se trata de un menú diario de un restaurante -que solo introduce el menú de la próxima semana)
O bien tomandolo de la fecha, o bien incluyendo un nuevo campo de días de semana, que corresponda con cada menú.

--------------
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = Now()

if Weekday(Recordset1__MMColParam) = 1 then ' es Domingo
Recordset1__MMColParam = dateAdd("d", 1, Recordset1__MMColParam)
elseif Weekday(Recordset1__MMColParam) = 7 then ' es Sabado
Recordset1__MMColParam = dateAdd("d", 2, Recordset1__MMColParam)
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 = ?"
Recordset1_cmd.Prepared = true

Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 135, 1, Recordset1__MMColParam)
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>