create procedure User_Details
	@accountName varchar(50),
	@code bit Output
As 
	declare @result table ([User_ID] int,
				Dept_ID int,
				Status_ID int,
				Availability char(25)) 
	declare @count int

	insert into @result ([User_ID], Dept_ID, Status_ID, Availability)
		select u.[User_ID], u.Dept_ID, s.Status_ID, t.[Name] as 'Availability' 
		from Users u inner join Staff_Tracking s on u.[User_ID] = s.[User_ID]
		inner join Tracking_Status t on s.Status_ID = t.Status_ID 
		where Account_Name = @accountName
		and s.Status_Time = (select max(s2.Status_Time) from Staff_Tracking s2 where s2.[User_ID] = u.[User_ID])

	select @count = count(*) from @result

	if @count > 0 
	begin
		set @code = 1
		select * from @result
	end else
		set @code = 0


GO 

 dim dataConn, exist, username, cmd
set dataConn = server.createobject("ADODB.Connection")
set cmd = server.createobject("ADODB.Command")
set rsUser = server.createobject("ADODB.Recordset")
dataConn.Open "DSN=intranet;uid=intranet;pwd=bronty"
username = Right(Request.ServerVariables("LOGON_USER"), Len(Request.ServerVariables("LOGON_USER")) - InStr(Request.ServerVariables("LOGON_USER"),"\"))

with cmd
.ActiveConnection = dataConn
.CommandText = "User_Details"
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter("@username", adVarChar, adParamInput, 50, username)
.Parameters.Append .CreateParameter("@code", adInteger, adParamOutput, , 0)
end with
rsUser = cmd.Execute