% ModGroup = "MO" ' --- NOTE : an * allows ALL groups --- LogOnMsg = "Please Log On" '--------------------------------------------------------------------- ' DO NOT Edit below this point !!!!!!!!!!!!!!!!!!! '--------------------------------------------------------------------- UserGroup = Session("UserGroup") LoggedOn = CInt( "0" & Session("LogonStatus") ) Admin = Session("Admin") if LoggedOn = 0 OR _ ( LoggedOn = 1 and Admin <> "Y" AND _ instr(UserGroup,ModGroup) = 0 AND _ instr(UserGroup,"*") = 0 AND _ ModGroup <> "*" ) OR _ ( LoggedOn = 1 and Admin <> "Y" AND _ ModGroup = "_AdminOnly_") then Session("url") = Request.ServerVariables("URL") Session("msg") = LogOnMsg Response.Redirect "/htaccess/htlogon.asp" end if %>
|
|||||||||||||||||||||||||||||||
NFSSC NRF Vocus |
|
||||||||||||||||||||||||||||||
| © 2001 NCCR | |||||||||||||||||||||||||||||||