<% Option Explicit %> <% Response.Expires = 60 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" dim keepAuthCheck response.cookies("keepAuth").Expires=date+365 keepAuthCheck=request.cookies("keepAuth")("auth_status") if keepAuthCheck="" then response.cookies("keepAuth")("auth_status")="baker_notLoggedIn" end if 'response.cookies("keepAuth")("auth_status")="" if (keepAuthCheck = "baker_loggedIn") then if not(Session("Active") = 1) then if not(request.cookies("keepAuth")("access_code") = "") then cookieLogin() end if end if end if %> Baker Associates Administration
 
  " SIZE="16">  
<% if Session("Active") = 1 then %>
Welcome <% =Session("fullName") %>
<% end if %>
<% if ( (Session("privilege_level") = "1") and (session("loggedIn")=true) ) then %> <% end if %>

<% 'this is the basic security check on a page that needs to be secure 'change to "if (session("loggedIn")=true) then" for admin login checks if (not (session("loggedIn")=true)) or (Request("action") = "login") then %> <% if (request("action")="forgot") then %> <% else %> <% end if %> <% else %> <% if session("privilege_level") = "1" then %> <% dim objRegExp, aActions, strPosted, strPage, i strPosted = Request("action") aActions = array("forgot", "user", "people", "person", "news", "calendar", "rsvp", "ui_main", "ui_comments", "ui_contact", "logout") set objRegExp = new regexp objRegExp.IgnoreCase = True for i=0 to uBound(aActions) objRegExp.Pattern = "^.*" & aActions(i) & ".*" if objRegExp.Test(strPosted) then strPage = aActions(i) end if next select case strPage case "user" server.execute "/admin/useradmin.asp" case "news" server.execute"/admin/newsadmin.asp" case "forgot" server.execute "/admin/forgotPassword.asp" case else server.execute "/admin/welcome.asp" end select else response.write "You are not authorized to access this portion of bakco.com" end if end if %>
 
footer

For producer use only. Not all products or features are approved in all states. Click here for our website policies