<%
Function UserHasPageLevelAccess(intAdminUserId, strCurrentAdminURL)
	On Error Resume Next
	dim cmd
	set cmd = Server.CreateObject("ADODB.Command")
	set cmd.ActiveConnection = conn
	cmd.CommandText = "SP_CONFIRM_USER_PAGE_ACCESS"
	cmd.CommandType = adCmdStoredProc
	cmd.Parameters.Append cmd.CreateParameter("USER_HAS_ACCESS", adInteger, adParamOutput)
	cmd.Parameters.Append cmd.CreateParameter("USER_ID", adInteger, adParamInput, , intAdminUserId)
	cmd.Parameters.Append cmd.CreateParameter("ADMIN_URL", adVarChar, adParamInput, 250, strCurrentAdminURL)
	cmd.execute
	UserHasPageLevelAccess = CBool(cmd.Parameters("USER_HAS_ACCESS"))
	set cmd = nothing
	If err.number <> 0 Then
		Call ReportError("UserHasPageLevelAccess", err.number, err.description)
	End If
	On Error Goto 0
End Function
Function UserIsAdmin(intAdminUserId)
	On Error Resume Next
	dim cmd
	set cmd = Server.CreateObject("ADODB.Command")
	set cmd.ActiveConnection = conn
	cmd.CommandText = "SP_CONFIRM_USER_IS_ADMIN"
	cmd.CommandType = adCmdStoredProc
	cmd.Parameters.Append cmd.CreateParameter("IS_ADMIN", adInteger, adParamOutput)
	cmd.Parameters.Append cmd.CreateParameter("USER_ID", adInteger, adParamInput, , intAdminUserId)
	cmd.execute
	UserIsAdmin = CBool(cmd.Parameters("IS_ADMIN"))
	set cmd = nothing
	If err.number <> 0 Then
		Call ReportError("UserIsAdmin", err.number, err.description)
	End If
	On Error Goto 0
End Function
%>