Error:Parameter object is improperly defined

[MArgente]

Hello All.

I've searched around and couldn't get a definitive answer for my case:
I have a form that is sending information to a SQL Server and I am getting the error:

Parameter object is improperly defined. Inconsistent or incomplete information was provided.

It starts complaining on line 6

ASP Code

set Conn = GetConnection()
set cmd=Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = Conn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "updateGlossary"
cmd.Parameters.Append cmd.CreateParameter("@GlossName",adVarChar, adParamInput, ,EntryName)
cmd.Parameters.Append cmd.CreateParameter("@GlossShort",adVarChar, adParamInput, ,EntryShortName)
cmd.Parameters.Append cmd.CreateParameter("@GlossDef", adVarChar, adParamInput, ,EntryDef)
cmd.Parameters.Append cmd.CreateParameter("@GlossSwitch",adSmallInt, adParamInput, ,isActive)
cmd.Parameters.Append cmd.CreateParameter("@GlossDate", adDate, adParamInput, ,updateDate)
 

And my SQL SP is as follows:

CREATE PROCEDURE [dbo].[updateGlossary] 
    @GlossName as nvarchar,
    @GlossShort as nvarchar,
    @GlossDef as ntext,
    @GlossSwitch as smallint,
    @GlossDate as smalldatetime 
AS
UPDATE     Glossary
 
SET        glossaryName=@GlossName,
        glossaryShortName=@GlossShort,
        definition=@GlossDef,
        activeSwitch=@GlossSwitch,
        lastUpdateDate=@GlossDate
 
WHERE     glossaryName = @GlossName
GO