Sub Page_Load(Sender As Object, E As EventArgs)

 If not page.IsPostback() Then

   dim myStaff as new projectpal.bo.boStaff


session("pmMode") = session("isPM")

   
   if ctype(session("pmMode"), integer) = 1 and myStaff.isProjectStaff(request.servervariables("AUTH_USER")) then
         lblMode.visible = true
         radpmMode.visible = true
         radpmMode.selectedindex = 0
   else
         lblMode.visible = false
         radpmMode.visible = false
   end if

   bindData()

 end if

end sub
