<% if not isAdmin then response.clear response.redirect ("redirect.asp") response.end end if Dim adminAccessRights:adminAccessRights = false if not isBMan then SELECT Case lcase(right(selfpage,len(selfpage)-instrrev(selfpage,"/"))) Case "admin_default.asp","admin_admin.asp","admin_help.asp" 'everyone can access adminAccessRights = true Case "admin_forumm.asp","admin_forumpro.asp","admin_m_delete.asp","admin_m_deletepro.asp","admin_p_mpro.asp","admin_p_msetup.asp","admin_g_psetup.asp","admin_g_ppro.asp" 'only forum managers have access if isFMan then adminAccessRights = true Case "admin_showreg.asp","admin_maillist.asp","admin_massmail.asp","admin_memImport.asp","admin_ranking.asp","admin_resendconfirm.asp",_ "admin_u_deletepro.asp","admin_u_delete.asp","admin_user.asp","admin_userdetail.asp","admin_usergroup.asp","admin_userpro.asp","admin_registration.asp" 'only user managers have access if isUMan then adminAccessRights = true Case "admin_calendar.asp", "admin_calendarpro.asp" if (isUMan and isFMan) then adminAccessRights = true 'Case else 'only board admins have access 'if isFMan then finalRedirect = FManRedirect else finalRedirect = UManRedirect END SELECT else adminAccessRights = true end if if not adminAccessRights then %> Permission Denied <% end if %>