ASP - ORA-01036: illegal variable name/number

tengo el siguiente store procedure que se ejecuta desde una pagina asp como se indica mas abajo en el texto a partir de la linea ('Constantes) y me genera en la linea de ejecucion del store procedure el siguiente error:

ORA-01036: illegal variable name/number

Store procedure

CREATE OR REPLACE procedure EN_CONSULTA_MENU_CONVENIOS(
vConvenio in varchar2,
vSistemas in varchar2,
vOpcionModulo in varchar2,
p_recordset1 OUT TYPES.cursor_type,
vStatus out varchar2,
MENSAJE out varchar2) is

begin

BEGIN
OPEN p_recordset1
FOR
SELECT *
FROM EN_MENU_CONVENIOS t
WHERE t.convenio = vCONVENIO
and t.SISTEMA = vSistemas
AND T.OPCION_MODULO= vOpcionModulo;
vStatus := '0';
exception
WHEN NO_DATA_FOUND
THEN
NULL;
END;

EXCEPTION
WHEN OTHERS
THEN
vStatus := '1';
MENSAJE:=SUBSTR(SQLERRM,1,90);

end EN_CONSULTA_MENU_CONVENIOS;
/

Ejecucion desde pagina ASP de store procedure

'Constantes

'---- DataTypeEnum Values ----
Const adVarChar = 200
Const adNumeric = 131
Const adIUnknown = 13

'---- ParameterDirectionEnum Values ----
Const adParamInput = &H0001
Const adParamOutput = &H0002

'---- CommandTypeEnum Values ----
Const adCmdStoredProc = &H0004

Set conn2 = Server.CreateObject("ADODB.Connection")
conn2.ConnectionTimeout = Application("PBdV_ConnectionTimeout")
conn2.CommandTimeout = Application("PBdV_CommandTimeout")
conn2.Open Application("PBdV_ConnectionString"), Application("PBdV_RuntimeUserName"), Application("PBdV_RuntimePassword")


set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn2

' Specify the name of the stored procedure you wish to call
cmd.CommandText = "EN_CONSULTA_MENU_CONVENIOS"
cmd.CommandType = adCmdStoredProc

'Parametros de entrada
cmd.Parameters.Append cmd.CreateParameter("vConvenio", adVarChar,adParamInput,4000,"00049")
cmd.Parameters.Append cmd.CreateParameter("vSistemas",adVarChar,adParamInput,4000,"01")
cmd.Parameters.Append cmd.CreateParameter("vOpcionModulo", adVarChar,adParamInput,4000,"TODO")
'Parametros de salida
cmd.Parameters.Append cmd.CreateParameter("p_recordset1", adIUnknown ,adParamOutput,0)
cmd.Parameters.Append cmd.CreateParameter("vStatus", adVarChar,adParamOutput,4000)
cmd.Parameters.Append cmd.CreateParameter("MENSAJE", adVarChar,adParamOutput,4000)

cmd.Execute