El problema es que no damos con el tipo que se requiere cuando creamos el parámetro para el objeto Command.
Según el código anterior,
Recordset1__MMColParam es de tipo DateTime (
Now() devuelve un DateTime completo). Las funciones que uso, tanto
Weekday como
dateAdd, funcionan si el parámetro enviado es de tipo Date, si no, lanzan un error. Esto quiere decir que el dato asignado a
Recordset1__MMColParam es de tipo DateTime. Es el correcto.
El problema esta aqui:
Recordset1_cmd.CreateParameter("param1", 135, 1, Recordset1__MMColParam)
Prueba usando un recordset para recuperar el dato. Asi:
Código:
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 conn
Dim rs
Dim Recordset1_numRows
Set conn = Server.CreateObject ("ADODB.Connection")
conn.ConnectionString = MM_neoparc_STRING
set rs = conn.execute("SELECT * FROM menu WHERE fecha = #" & Recordset1__MMColParam & "#")
if not rs.EOF then Recordset1_numRows = rs.RecordCount()
%>
El objeto Command por que se suele usar para actualizar/insertar/borrar registros. De todas formas, debería funcionar.
Mira tu base de datos, la tabla menu, abrela en modo diseño y dime que tipo es el campo
Fecha (Fecha/Hora, etc)
He estado mirando algunas páginas de como lo hace el Dreamweaver (yo cada vez menos uso el Dreamweaver, me gusta mucho el PSPad que lo uso casi para todo XD ) como esta:
http://kb.adobe.com/selfservice/view...330a&sliceId=2
Efectivamente, asignan -1 a los tipos DateStamp.
En fin, prueba ambos métodos, a ver cual te viene mejor y nos cuentas.
Un saludo