简单的问题，调用存储过程出错，请指教

Question

USE [enhisuper]
GO
/****** 对象:  StoredProcedure [dbo].[Help_getHelpModel]    脚本日期: 04/03/2010 09:08:04 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author: <Author,,Name>
-- Create date: <Create Date,,>
-- Description: <Description,,>
-- =============================================
ALTER PROCEDURE [dbo].[Help_getHelpModel]  -- Add the parameters for the stored procedure here
@helpid int,
@title NVARCHAR(500) output ,
@tag  NVARCHAR(200) output,
@content NVARCHAR(max) output,
@checkpass int output,
@sort int output,
@indate datetime output,
@userid int output,
@cid int output,
@statusid int output AS
BEGIN
-- SET NOCOUNT ON added to prevent extra result sets from
-- interfering with SELECT statements.
SET NOCOUNT ON;    -- Insert statements for procedure here
SELECT
@title = title,
@tag = tag,
@content = content,
@checkpass = checkpass,
@sort = sort,
@indate =indate,
@cid = cid,
@statusid = statusid,
@userid = userid
    from h_help where id = @helpid
END页面代码
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!--#include file="../SiteInclude/ClsDatabase.asp"-->
<!--#include file="../SiteInclude/strFunction.asp"-->
<%
dim objDataBase 
Set objDataBase = New clsDatabase
objDataBase.ConnOpen("")
%>
<%
function getHelpContentModel(id)
'dim SQLStr,rs,rArray(10)
' id = getInt(id)
' SQLStr = "select * from h_help where id="&id
'  set rs = objDataBase.ReturnRecordSet(SQLStr)
'
' if not(rs.eof and rs.bof) then
' rArray(1) = rs("id") 
' rArray(2) = filterTitle(rs("title"))
' rArray(3) = rs("content") 
' rArray(4) = filterTitle(rs("tag"))
' rArray(5) = rs("checkpass") 
' rArray(6) = rs("indate") 
' rArray(7) = rs("cid") 
' rArray(8) = rs("userid") 
' rArray(9) = rs("statusID") 
' rArray(10) = rs("sort") 
' end if
' rs.close
' set rs=nothing
' getHelpContentModel=rArray
dim title,tag,content,checkpass,userid,indate,cid,statusid
       id = getInt(id)
        adCmdSPStoredProc = 4 
adParamReturnvalue = 4
adParamInput = 1 
adParamOutput = 2 
adParamInputOutput = 3 
adInteger = 3
adBigInt = 20
adVarChar = 200 
adChar = 129 
adVarWChar = 202
adDate = 7
'@@On Error Resume Next
Err.Clear set cmd=Server.CreateObject("ADODB.Command") 
cmd.ActiveConnection = objDataBase.Conn
cmd.CommandText = "Help_getHelpModel" 
cmd.CommandType = adCmdSPStoredProc  cmd.Parameters.Append cmd.CreateParameter("@helpID", adInteger,   adParaminput, 500, id)

cmd.Parameters.Append cmd.CreateParameter("@title",     adVarWChar,  adParamOutput, 500, title)
cmd.Parameters.Append cmd.CreateParameter("@tag",     adVarWChar,  adParamOutput, 500, tag)
cmd.Parameters.Append cmd.CreateParameter("@content", adVarWChar,  adParamOutput, 500, content)
cmd.Parameters.Append cmd.CreateParameter("@checkpass", adVarWChar,  adParamOutput, 500, checkpass)
cmd.Parameters.Append cmd.CreateParameter("@userid", adVarWChar,  adParamOutput, 500, userid)
cmd.Parameters.Append cmd.CreateParameter("@indate", adDate,      adParamOutput, 500, indate)
cmd.Parameters.Append cmd.CreateParameter("@cid",     adInteger,   adParamOutput, 500, cid)
cmd.Parameters.Append cmd.CreateParameter("@statusid", adInteger,   adParamOutput, 1, statusid)
cmd.execute()
Response.Write(cmd.parameters("@title")) 
Response.Write("</br>")
Response.Write(cmd.parameters("@statusid"))
end function 
call getHelpContentModel(79)
%>
报错Microsoft OLE DB Provider for SQL Server 错误 '80040e10'过程或函数 'Help_getHelpModel' 需要参数 '@statusid'，但未提供该参数。/test/test.asp，行 65 

Answer 1

    -- Add the parameters for the stored procedure here
        @helpid int,
        @title NVARCHAR(500) output ,
        @tag  NVARCHAR(200) output,
        @content NVARCHAR(max) output,
        @checkpass int output,
        @sort int output,
        @indate datetime output,
        @userid int output,
        @cid int output,
        @statusid int output cmd.Parameters.Append cmd.CreateParameter("@helpID",        adInteger,   adParaminput,            500,        id)
        
        cmd.Parameters.Append cmd.CreateParameter("@title",            adVarWChar,  adParamOutput,            500,        title)
        cmd.Parameters.Append cmd.CreateParameter("@tag",            adVarWChar,  adParamOutput,            500,        tag)
        cmd.Parameters.Append cmd.CreateParameter("@content",        adVarWChar,  adParamOutput,            500,        content)
        cmd.Parameters.Append cmd.CreateParameter("@checkpass",        adVarWChar,  adParamOutput,            500,        checkpass)
        cmd.Parameters.Append cmd.CreateParameter("@userid",        adVarWChar,  adParamOutput,            500,        userid)
        cmd.Parameters.Append cmd.CreateParameter("@indate",        adDate,      adParamOutput,            500,        indate)
        cmd.Parameters.Append cmd.CreateParameter("@cid",            adInteger,   adParamOutput,            500,        cid)
        cmd.Parameters.Append cmd.CreateParameter("@statusid",        adInteger,   adParamOutput数一下,少了一个吧,我晕