高分求解：如何给存储过程赋日期参数?

如何给存储过程赋日期参数?
程序代码如下：

<!--#include file="../../dbcnn.asp"-->
<%
const advarChar = 200
const adParamInput = 1
const adParamOutput = 2
const adDBDate = 133

const adcmdText = 1
const adSmallInt = 2
const adCurrency = 6

Dim Do_Msg
curr_date=date()
curr_date=cdate(curr_date)
usr_id="1234"
deadline="25"
set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = conn
cmd.commandText = "mfee_cost_one_3"
set param = md.CreateParameter "usr_id",adVarChar,adParamInput,6,usr_id)
cmd.Parameters.append Param
set param = cmd.CreateParameter ("@deadline",varchar,135,16,deadline)
'上面这一行总是出错
cmd.Parameters.append Param
set param = cmd.CreateParameter "@curr_datetime",varchar,135,16,curr_date)
cmd.Parameters.append Param
set param = cmd.CreateParameter ("Do_Msg",varchar,adParamOutput,6,Do_Msg)
cmd.Parameters.append Param
set rs=cmd.Execute
%>
<%Do_msg%>
存储过程如下：
create proc mfee_cost_one_3

@curr_datetime datetime,
@usr_id varchar(6),
@deadline varchar(20),
@Do_Msg varchar(80) output

as
select @Do_Msg='aaaaaaaaa'
select @curr_datetime as 'curr_datetime',@usr_id as 'usr_id',@deadline as 'deadline'
go