public sub UpdateInfo (pageMode as string)

	Dim myControl As Control

	select case	pageMode
		Case 0
			myControl = LoadControl("..\browser\projectStatus.ascx")
		   	ctype(myControl, ASP.projectStatus_ASCX).ID =  "projectStatus"
			phList.Controls.clear()
			phList.Controls.Add(myControl)

			phList.visible = "true"
			phCreate.visible="false"

			Session("pageMode") = "Project Status"
		
		Case 1
			myControl = LoadControl("..\browser\StaffList.ascx")
		   	ctype(myControl, ASP.stafflist_ASCX).ID =  "stafflist"
			phList.controls.clear()
			phList.Controls.Add(myControl)
			
			myControl = LoadControl("..\browser\StaffCreate.ascx")
		   	ctype(myControl, ASP.staffCreate_ASCX).ID =  "staffCreate"
			phCreate.controls.clear()
			phCreate.Controls.Add(myControl)

			if session("subMode") = "List" then			
				phList.visible = "true"
				phCreate.visible="false"
			else
				phList.visible = "true"
				phCreate.visible="false"
			end if

			Session("pageMode") = "Staff"

		Case 2
			myControl = LoadControl("..\browser\TaskList.ascx")
		   	ctype(myControl, ASP.tasklist_ASCX).ID =  "tasklist"
			phList.controls.clear()
			phList.Controls.Add(myControl)
	
			myControl = LoadControl("..\browser\TaskCreate.ascx")
		   	ctype(myControl, ASP.taskCreate_ASCX).ID =  "taskCreate"
			phCreate.controls.clear()
			phCreate.Controls.Add(myControl)
	
			if session("subMode") = "List" then			
				phList.visible = "true"
				phCreate.visible="false"
			else
				phList.visible = "true"
				phCreate.visible="false"
			end if

			Session("pageMode") = "Tasks"
	
	end select

	session("CurrentPage")=pageMode

	mycontrol = page.findcontrol("helpWindow")
	ctype(mycontrol, ASP.helpWindow_ASCX).update()

end sub
