PO FAVOR!!! LLAMAR A UN STORE PROCEDURE- DA ERROR - x

Hola por favor ya estoy loca con esto no encuentro el error:
Cuando ejecuto me sale error en la fila 65 y esto es lo que contiene
mi pagina ASp ¡por favor ayuda..como hago para que corra el Store
procedure:

**Alprincipio de la pagina inclui mi archivo asi ¿será por esto?*****
<!-#INCLUDE FILE ="ADOVBS.INC"->

SET objCmd=Server.CreateObject("ADODB.Command")
objCmd.ActiveConnection = "DSN=BOLREP;UID=bolrep;PWD=repbol"
objCmd.CommandType=adCmdStoredProc ******ESTA SUPUESTAMENTE ES LA
LINEA 65*****
objCmd.CommandText="CommercialSummary"
set objParam1=objcmd.CreateParameter("gest_act",adChar,adParamInput,6,"200306")
set objParam2=objcmd.CreateParameter("gest_ant",adChar,adParamInput,6,"200305")
set objParam3=objcmd.CreateParameter("mes_ant",adInteger,adParamInput,,5)
set objParam4=objcmd.CreateParameter("ano_ant",adInteger,adParamInput,,2003)
set objParam5=objcmd.CreateParameter("mes_act",adInteger,adParamInput,,6)
set objParam6=objcmd.CreateParameter("ano_act",adInteger,adParamInput,,2003)
set objParam7=objcmd.CreateParameter("cod_reg",adChar,adParamInput,2,"01")
set objParam8=objcmd.CreateParameter("cod_age",adChar,adParamInput,2,"04")

objCmd.Parameters.Append objParam1
objCmd.Parameters.Append objParam2
objCmd.Parameters.Append objParam3
objCmd.Parameters.Append objParam4
objCmd.Parameters.Append objParam5
objCmd.Parameters.Append objParam6
objCmd.Parameters.Append objParam7
objCmd.Parameters.Append objParam8

objCmd.Execute


tambien intente con la conexion de este tipo!!!****************

set objConexion=server.CreateObject("ADODB.Connection")
strConex="PROVIDER=SQLOLEDB;UID=bolrep;PWD=repbol;SERVER=" &
application("server") & ";DATABASE=BOLREP"
objconexion.Open strConex
objCmd.ActiveConnection=objconexion
objCmd.CommandType=adCmdStoredProc ******ESTA SUPUESTAMENTE ES LA
LINEA 65 Y SIGUE MAL EN ESTA LINEA*****
objCmd.CommandText="CommercialSummary"
set objParam1=objcmd.CreateParameter("gest_act",adChar,adParamInput,6,"200306")
set objParam2=objcmd.CreateParameter("gest_ant",adChar,adParamInput,6,"200305")
set objParam3=objcmd.CreateParameter("mes_ant",adInteger,adParamInput,,5)
set objParam4=objcmd.CreateParameter("ano_ant",adInteger,adParamInput,,2003)
set objParam5=objcmd.CreateParameter("mes_act",adInteger,adParamInput,,6)
set objParam6=objcmd.CreateParameter("ano_act",adInteger,adParamInput,,2003)
set objParam7=objcmd.CreateParameter("cod_reg",adChar,adParamInput,2,"01")
set objParam8=objcmd.CreateParameter("cod_age",adChar,adParamInput,2,"04")

objCmd.Parameters.Append objParam1
objCmd.Parameters.Append objParam2
objCmd.Parameters.Append objParam3
objCmd.Parameters.Append objParam4
objCmd.Parameters.Append objParam5
objCmd.Parameters.Append objParam6
objCmd.Parameters.Append objParam7
objCmd.Parameters.Append objParam8

objCmd.Execute

****este es el error******
Error Type:
ADODB.Command (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are
in conflict with one another.


muchas gracias xime