Oracle Stored Procedure and ADO

[al_paso]

Here is the code for my call:

<%@ Language=VBScript %>

<%
set g_oCnn=server.CreateObject("ADODB.Connection")
g_oCnn.Open application("DSNReadOnly")

set cmd=server.CreateObject("ADODB.Command")
set cmd.ActiveConnection=g_oCnn
cmd.CommandType=adCMDStoredProc
cmd.CommandText="problem_flag_proc"

set Param1=cmd.CreateParameter("PPAYEE_RECORD_ID",adInteger,adParamInput,, cint(61))
cmd.Parameters.Append Param1
set Param2=cmd.CreateParameter("PCRNCY_CODE",adVarChar,adParamInput,3,"USD")
cmd.Parameters.Append Param2
set Param3=cmd.CreateParameter("PEQUIPMENT_ID",adVarChar,adParamInput,11,"GSTU1234563")
cmd.Parameters.Append Param3
set Param4=cmd.CreateParameter("PCUSTOMER_CODE",adVarChar,adParamInput,5,"TCO")
cmd.Parameters.Append Param4
set Param5=cmd.CreateParameter("PPROGRAM_ID",adVarChar,adParamInput,7,"RMP")
cmd.Parameters.Append Param5
set Param6=cmd.CreateParameter("PREPAIR_TOTAL_AMOUNT",adInteger,adParamInput,,cdbl(32))
Param6.Precision=11
cmd.Parameters.Append Param6
set Param7=cmd.CreateParameter("PSERVICE_DATE",adDate,adParamInput,,cdate("1-Jan-99"))
cmd.Parameters.Append Param7

set g_oRst=server.CreateObject("ADODB.Recordset")
g_oRst.Open cmd

I get a "The procedure is passing the paremeters of a wrong type" error

Can anybody help please.

Thanks