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
-
