input parameter error

[MATTXtwo]

Microsoft OLE DB Provider for SQL Server error '80040e10'

Procedure or Function 'get_user' expects parameter '@user_id', which was not supplied.

/Intranet/MainVal2.asp, line 18
-------------------------------------------------------------------------------------------------------------------

dim val
set rm = Server.CreateObject ("ADODB.Command")
rm.ActiveConnection=OBJdbConnection
rm.CommandText="get_user"

rm.Parameters.Append rm.CreateParameter("RETURN",adInteger,adParamReturnValue,4)

rm.Parameters.Append rm.CreateParameter("@user_id",adVarChar,adParamInput,8,request("NoStaf"))

rm.Parameters.Append rm.CreateParameter("@pwd",adVarChar,adParamInput,12,request("Pwd"))
rm.Execute 
val=rm.Parameters("RETURN").Value

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go


ALTER PROCEDURE [dbo].[get_user]
(	
	@user_id varchar(8),
	@pwd varchar(12)
	)
AS

IF EXISTS(SELECT Personel_No From TblUser_ID where Personel_No = @user_id)
	BEGIN
	IF EXISTS(SELECT Password From TblUser_ID where Personel_No = @user_id AND Password = @pwd)
		BEGIN
			INSERT INTO TblAudit_Trails(Personel_No,IC_Baru,Business_Area) 
				SELECT Personel_No,IC_Baru,Business_Area 
				From TblPeribadi 
				where Personel_No = @user_id AND IC_Baru = @pwd
			RETURN(3)
		END
	ELSE
		RETURN(1)
	END
ELSE
	BEGIN
	IF EXISTS(SELECT Personel_No From TblPeribadi where Personel_No = @user_id)
		BEGIN
		IF EXISTS(SELECT IC_Baru From TblPeribadi where Personel_No = @user_id AND IC_Baru = @pwd)
			BEGIN
				INSERT INTO TblUser_ID(Personel_No,Password,Update_By) 
					VALUES(@user_id,@pwd,@user_id)
				INSERT INTO TblAudit_Trails(Personel_No,IC_Baru,Business_Area) 
					SELECT Personel_No,IC_Baru,Business_Area 
					From TblPeribadi 
					where Personel_No = @user_id AND IC_Baru = @pwd
				RETURN(4)
			END
		ELSE
			RETURN(2)
		END
	ELSE
		RETURN(0)
	END

[MATTXtwo]

You know what... after surfing to this site:\
it works perfectly, so follow thisadovbs.inc solution for ADODB.Command error '800a0bb9'

and read whote faq I put this solution on my works:

<!-- #include virtual="/Intranet/includes/adovbs.inc" -->
...
...
...
rm.CommandType=adCmdStoredProc