SP OUTPUT VALUE PROBLEM

ERROR
Error Type: ADODB.Command
(0x800A0BB9) Arguments are of the wrong type, are out of acceptable range,

or are

line :  .Parameters.Append .CreateParameter("@[EMAIL PROTECTED]
", adInteger, 
adParamInput)


MYPROC IS

CREATE PROCEDURE st_myProc

@[EMAIL PROTECTED]
 INT , @[EMAIL PROTECTED]
 INT OUTPUT
 AS
SET @[EMAIL PROTECTED]
 CODE WITH ADO


set cmd=server.CreateObject ("ADODB.Command")
 Set cmd.ActiveConnection = baglantim
cmd.CommandText = "st_myProc"
cmd.CommandType = 4
 with cmd
    .Parameters.Append .CreateParameter("@[EMAIL PROTECTED]
", adInteger,
adParamInput)
    .Parameters.Append .CreateParameter("@[EMAIL PROTECTED]
", adInteger,
adParamInput)
 end with

Set rs = cmd.Execute
Dim i
While Not rs.EOF
Response.Write rs.Fields(i)&" "
 i = i + 1

rs.MoveNext

Wend