' Is this student active?
dim active:active = 1
if locked = 1 then
	active = 0
elseif term_date <> "" then
	if DateValue(term_date) < Date then
		if hire_date = "" or (DateValue(hire_date) < DateValue(term_date)) then
			active = 0
		end if
	end if
end if