home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 May / W2KPRK.iso / apps / crystal / disk24 / Xasp17 < prev    next >
Text File  |  1999-08-23  |  4KB  |  161 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2. <%    
  3.     Response.expires = 0
  4.     Session("IsValid") = "FALSE"
  5.     session("init") = ""
  6.     session("username") = ""
  7.     session("page") = ""
  8.     session("accesslevel") = ""
  9.  
  10.     ' reset any report objects that may be in the session
  11.     if IsObject(session("oRpt")) then
  12.         Set session("oRpt") = Nothing
  13.     end if
  14.  
  15.     if Session("init") = "" then
  16.         Set bt = Server.CreateObject("MSWC.BrowserType")
  17.         if (bt.ActiveXControls = TRUE) then
  18.             Session("init") = "actx"
  19.         elseif (bt.javaapplets = TRUE) then
  20.             Session("init") = "java"
  21.         elseif (bt.frames = TRUE) then
  22.             Session("init") = "html_frame"
  23.         else
  24.             Session("init") = "html_page"
  25.         end if
  26.     end if
  27.  
  28.  
  29. %>
  30.  
  31.  
  32. <%
  33. set ua = Request.ServerVariables("HTTP_USER_AGENT")
  34. %>
  35.  
  36. <HTML>
  37. <HEAD>
  38. <SCRIPT LANGUAGE="VBScript">
  39. <!--
  40. option explicit
  41. dim majorver
  42. dim ua
  43. dim ie3
  44. dim ie4
  45. dim aol
  46. dim minorver4
  47. dim update
  48. dim winplat
  49. dim nav
  50. dim intButton
  51. set nav = navigator
  52. ua = "<%=ua%>"
  53. minorver4 = ""
  54.  
  55. if len(ua) >=1 then 'nav object is supported
  56.     winplat = mid(ua,instr(ua,"Windows") + 8, 2)
  57.     majorver = mid(ua,instr(ua,"MSIE") + 5, 1)
  58.     ie3 = majorver = 3 and (winplat = "NT" or winplat = "95" or winplat = "32")
  59.     ie4 = majorver = 4 and (winplat = "NT" or winplat = "95" or winplat = "32")
  60.     update = instr(ua,"Update a")
  61.     aol = instr(ua,"AOL")
  62.  
  63.     if ie4 then minorver4 = mid(ua,instr(ua,"MSIE") + 7, 3)        
  64.     If (ie3 or minorver4 = "0b1") and update = 0 and aol = 0 then 'filter down to ie3 or ie40b1(PP1) then see if "update a" is true and not AOL
  65.         'display information back to the users
  66.         intButton = msgbox ("Get Authenticode 2.0 now!  This update provides valuable new features and renews key Authenticode certificates that help you safely download software from the Web. The update should take less than 5 minutes to download over a 28.8 Kbps modem. Do you want to visit our Authenticode Update page?", 4 + 64, "Download the Authenticode 2.0 Update Now!")
  67.         If intButton = 6 then
  68.             location.href="http://www.microsoft.com/ie/security/authent2.htm"
  69.         end if
  70.     end if
  71. end if
  72.  
  73.  
  74. -->
  75. </SCRIPT>
  76.  
  77.  
  78. <meta http-equiv="Content-Type"
  79. content="text/html; charset=iso-8859-1">
  80. <meta name="FORMATTER" content="Microsoft FrontPage 2.0">
  81. <meta name="GENERATOR" content="Microsoft FrontPage 2.0">
  82. <title>Xtreme Mountain Bike Inc. - Log On</title>
  83.  
  84. </head>
  85.  
  86. <body background="images/bg_logon.jpg" bgcolor="#000000"
  87. text="#FF8000" link="#FF8000" vlink="#FF8000">
  88.  
  89. <p align="center"> </p>
  90. <p align="center"> </p>
  91. <p align="center"> </p>
  92.  
  93. <div align="center"><center>
  94. <table border="0">
  95.     <tr>
  96.         <td>
  97.             <table border="0" cellpadding="4">
  98.                 <tr>
  99.                     <th align="left" colspan="2">Please select your user
  100.                     name from the list below :<br>
  101.                     </th>
  102.                 </tr>
  103.                 <tr>
  104.                     <th align="left">User</th>
  105.                     <th align="left">Position</th>
  106.                 </tr>
  107.                 <tr>
  108.                     <td>Mark Ellison</td>
  109.                     <td>CEO</td>
  110.                 </tr>
  111.                 <tr>
  112.                     <td>Andrew Fuller</td>
  113.                     <td>VP, Sales & Marketing</td>
  114.                 </tr>
  115.                 <tr>
  116.                     <td>Vlad Chlumsky</td>
  117.                     <td>Warehouse Manager</td>
  118.                 </tr>
  119.                 <tr>
  120.                     <td>Anne Dodsworth</td>
  121.                     <td>Sales Representative</td>
  122.                 </tr>
  123.                 <tr>
  124.                     <td>Murray Peacock</td>
  125.                     <td>Sales Representative</td>
  126.                 </tr>
  127.                 <tr>
  128.                     <td>Caroline Patterson</td>
  129.                     <td>Receptionist</td>
  130.                 </tr>
  131.             <tr>
  132.                     <td>Laurie Periera</td>
  133.                     <td>Controller</td>
  134.                 </tr>
  135.                     </table>
  136.         </td><td>
  137.         
  138.             <form action="mainframe.asp" method="POST">
  139.             <input type="hidden" name="page" value="fr_company">
  140.             <table border="0" cellpadding="4">
  141.                 <tr>
  142.                     <th align="left">User name:</th>
  143.                     <th><input type="text" size="20" name="username"></th>
  144.                     <th> </th>
  145.                 </tr>
  146.                 <tr>
  147.                     <th align="left">Password:</th>
  148.                     <th><input type="password" size="20" name="1"
  149.                     value="password"></th>
  150.                     <th><input type="submit" value="Log On"></th>
  151.                 </tr>
  152.             </table>
  153.             </form>
  154.         </td>
  155.     </tr>
  156. </table>
  157. </center></div>
  158.  
  159. </body>
  160. </html>
  161.