<%@ LANGUAGE="VBSCRIPT" %>
<%
On error resume next
response.expires = 0
if Session("IsValid") <> "TRUE" then
Session("username") = Request.Form("username")
if UCase(Session("username")) = UCase("Mark Ellison") then
'accesslevel 1 is management
Session("accesslevel") = 1
elseif UCase(Session("username")) = UCase("Andrew Fuller") then
Session("accesslevel") = 1
elseif UCase(Session("username")) = UCase("Vlad Chlumsky") then
'accesslevel 3 is warehouse
Session("accesslevel") = 3
elseif UCase(Session("username")) = UCase("Anne Dodsworth") then
'accesslevel 2 is sales
Session("accesslevel") = 2
elseif UCase(Session("username")) = UCase("Murray Peacock") then
Session("accesslevel") = 2
elseif UCase(Session("username")) = UCase("Caroline Patterson") then
'accesslevel 4 is employee
Session("accesslevel") = 4
elseif UCase(Session("username")) = UCase("Laurie Periera") then
'accesslevel 4 is employee
Session("accesslevel") = 1
else
Response.Redirect("logon.asp")
end if
Session.timeout = 30
Session("page") = Request.Form("page")
Session("IsValid") = "TRUE"
else
Session("page") = Request.QueryString("page")
end if
%>
Xtreme Mountain Bikes Inc.