Hi the one who is concerned

Well I'm using a SQL database called My first database, in this database 

there is a table called NewUser



Ok my code is as follows:

<%

dim lngRecs

dim lngAdded



set cmdAdd = Server.CreateObject("ADODB.Command")

with cmdAdd

       .ActiveConnection = strConn

       .CommandText = usp_AddUser

       .Parameters.Append .CreateParameter ("RETURN_VALUE", adInteger, 

adParamReturnValue)

       .Parameters.Append .CreateParameter ("@login", adChar, 

adParamInput, 20)

       .Parameters.Append .CreateParameter ("@pass", adChar, adParamInput, 

20)

       .Parameters.Append .CreateParameter ("@pascon", adChar, 

adParamInput, 20)

       .Parameters.Append .CreateParameter ("@fname", adChar, 

adParamInput, 30)

       .Parameters.Append .CreateParameter ("@lname", adChar, 

adParamInput, 30)

       .Parameters.Append .CreateParameter ("@email", adChar, 

adParamInput, 60)

       .Parameters.Append .Createparameter ("@gender", adChar, 

adParamInput, 6)



       .Parameters("@login") = request.form("name")

       .Parameters("@pass") = request.form("password")

       .Parameters("@pascon") = request.form("confirmpassword")

       .Parameters("@fname") = request.form("fname")

       .Parameters("@lname") = request.form("lname")

       .Parameters("@email") = request.form("email")

       .Parameters("@gender")  = request.form("genderselect")



       .Execute lngRecs, , adExecuteNoRecords



        lngAdded = .Parameters("RETURN_VALUE")

End With



Response.write "New User added.<p>"

if lngAdded = 1 then

 response.write "A user with the same name already exists."

End if



set cmdAdd  = Nothing



%>



where strConn ="Provider=SQLOLEDB; Data Source=PENTIUMIII; Initial 

Catalog=My first database; User Id=sa;Password="



I always receive the following error:



ADODB.Command error '800a0bb9' 



Arguments are of the wrong type, are out of acceptable range, or are in 

conflict with one another. 



/datastore/AddUser.asp, line 26 



where line 26 is where it is written:

.Parameters.Append .CreateParameter ("RETURN_VALUE", adInteger, 

adParamReturnValue)

hope you can help me resolve this error