home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 May / W2KPRK.iso / apps / crystal / disk24 / Xasp18 < prev    next >
Encoding:
Text File  |  1999-08-23  |  2.4 KB  |  68 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2.  
  3. <%
  4. On error resume next
  5. response.expires = 0
  6. if Session("IsValid") <> "TRUE" then
  7.     Session("username") = Request.Form("username")
  8.     if UCase(Session("username")) = UCase("Mark Ellison") then
  9.         'accesslevel 1 is management
  10.         Session("accesslevel") = 1
  11.     elseif UCase(Session("username")) = UCase("Andrew Fuller") then
  12.         Session("accesslevel") = 1
  13.     elseif UCase(Session("username")) = UCase("Vlad Chlumsky") then
  14.     'accesslevel 3 is warehouse
  15.         Session("accesslevel") = 3
  16.     elseif UCase(Session("username")) = UCase("Anne Dodsworth") then
  17.         'accesslevel 2 is sales
  18.         Session("accesslevel") = 2
  19.     elseif UCase(Session("username")) = UCase("Murray Peacock") then
  20.         
  21.         Session("accesslevel") = 2
  22.     elseif UCase(Session("username")) = UCase("Caroline Patterson") then
  23.         'accesslevel 4 is employee
  24.         Session("accesslevel") = 4
  25.         elseif UCase(Session("username")) = UCase("Laurie Periera") then
  26.         'accesslevel 4 is employee
  27.         Session("accesslevel") = 1
  28.     else
  29.         Response.Redirect("logon.asp")
  30.     end if
  31.  
  32.     Session.timeout = 30
  33.     Session("page") = Request.Form("page")
  34.     Session("IsValid") = "TRUE"
  35.  
  36.  
  37. else
  38.     Session("page") = Request.QueryString("page")
  39. end if
  40.  
  41. %><html>
  42.  
  43. <head>
  44. <meta http-equiv="Content-Type" content="text/html; iso-8859-1">
  45. <title>Xtreme Mountain Bikes Inc.</title>
  46. <meta name="FORMATTER" content="Microsoft FrontPage 2.0">
  47. </head>
  48.  
  49. <frameset rows="30,*" frameborder="0" framespacing="0"
  50. border="no">
  51.     <frame
  52.     src="navbar.asp?page=<%response.write(Session("page"))%>"
  53.     name="navigation" marginwidth="2" marginheight="1"
  54.     scrolling="no">
  55.     <frame src="<%response.write(Session("page"))%>.asp"
  56.     name="content" marginwidth="1" marginheight="1">
  57.     <noframes>
  58.     <body>
  59.     <p><!--webbot bot="PurpleText"
  60.     preview="The frameset on this page can be edited with the FrontPage Frames Wizard; use the Open or Open With option from the FrontPage Explorer's edit menu. This page must be saved to a web before you can edit it with the Frames Wizard. Browsers that don't support frames will display the contents of this page, without these instructions. Use the Frames Wizard to specify an alternate page for browsers without frames."
  61.     s-viewable=" " --> </p>
  62.     <p>This web page uses frames, but your browser doesn't
  63.     support them.</p>
  64.     </body>
  65.     </noframes>
  66. </frameset>
  67. </html>
  68.