<% if Session("Rank") <> 1 then Response.Redirect "../notauthorised.html" end if if request("deleteDept") = 1 then SQL = "delete from Departments where ID = " & request("DeptID") dbstart_temp conn.execute(SQL) end if ID = Session("id") %>

D E P T   A D M I N

Site Home Admin Home Dept Admin

Please select a Department to Administrate from the list below:

Department:	<% SQL = "select ID,DepartmentName from Departments order by ID" dbstart_temp set RS = conn.execute(SQL) do while not RS.EOF DeptID = RS("ID") DepartmentName = RS("DepartmentName") %> <%=DepartmentName%> <% RS.movenext loop %>
Add New Department