In ASP.NET this would be faily easy. In Classic ASP, you could do something like the following (assuming the Departments and Employees data is from a database, and not an array of dictionary object):
<%
Select Case myChoice
Case "Departments"
strSQL = "SELECT * FROM yourTableName WHERE typeofemployees=Departments"
...DO DATABASE CONNECTION STUFF HERE.....
' data presentation
For Each department in Departments
Response.Write obj.RS("deptname"

& "<br>"
Next
Case "Employees"
strSQL = "SELECT * FROM yourTableName WHERE typeofemployees=Employees"
...DO DATABASE CONNECTION STUFF HERE.....
' data presentation
For Each employee in Employees
Response.Write obj.RS("employee"

& "<br>"
Next
End Select
%>
HTH,
Jason