home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_07.cab / Default.asp5 < prev    next >
Encoding:
Text File  |  1998-04-27  |  11.3 KB  |  340 lines
  1. <%@ LANGUAGE="VBSCRIPT" TRANSACTION=REQUIRED %>
  2. <% Option Explicit %>
  3.  
  4. <%
  5.  
  6.   Dim m_LogonUser, m_ErrorMessage, m_NewEmployeeQualifier
  7.   
  8.   ' Set m_NewEmployeeQualifier to value for adding employee
  9.   m_NewEmployeeQualifier = CInt(Application("NewEmployeeQualifier"))
  10.   
  11.   ' First time thru page in this session...
  12.   If Session("EmployeeId") = "" Then
  13.     m_LogonUser = Request.ServerVariables("LOGON_USER")
  14.   
  15.   ' Security in Benefits uses NTLM, and requires that the web directory for Benefits
  16.   '   be set to require "Windows NT Challenge/Response", and NOT allow anonymous login.
  17.   ' However, just to make it easy on those who don't have the security settings right,
  18.   '   we plug in a value for m_LogonUser as needed.
  19.   ' Remove the code following between If and End If in production systems!!
  20.     If m_LogonUser = "" Then
  21.       m_LogonUser = "cynthiar"
  22.       ' Present error message to tell user they did not come in under NTLM
  23.       m_ErrorMessage = " You cannot be validated using Windows NT Challenge/Response " & _
  24.         "Security, so you are logged on for demonstration purposes as 'cynthiar'. " & _
  25.         "Uncheck 'Allow Anonymous' on the Authentication Methods for the Benefits " & _
  26.         "directory to logon under your own account."
  27.     End If
  28.   
  29.     LookupEmployee
  30.     ' If we did not have any errors in creating component or opening database
  31.     If m_ErrorMessage = "" Then
  32.       If Session("EmployeeId") = "" Then
  33.        SetupEmployee
  34.       End If
  35.     End If
  36.   End If
  37.  
  38. %>
  39.  
  40. <!-- BEGIN HTML-->
  41. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  42. <HTML>
  43. <HEAD>
  44.   <!--META TAGS ARE RECOMMENDED FOR THE SEARCH ENGINE-->
  45.   <META NAME="DESCRIPTION" CONTENT="Benefits Home Page">
  46.   <META NAME="KEYWORDS" CONTENT="benefit, open, enrollment, employee, profile">
  47.   <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev 1.0">
  48.   <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso8859-1">
  49.   <!--END META TAGS-->
  50.   <TITLE>Exploration Air Employee Benefits Program</TITLE>
  51. </HEAD>
  52.  
  53. <BODY BGCOLOR=#FFFFFF TOPMARGIN=0 LEFTMARGIN=0 ALINK=#23238E VLINK=#228B22 LINK=#23238E>
  54. <BASEFONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=2>
  55.  
  56. <!--Change link color on mouseover
  57.     Only if running Internet Explorer 4.0 or later -->
  58. <!--#include file=../libHighlight.inc-->
  59.  
  60. <A NAME="TOP">
  61. </A>
  62. <!--COLOR BANNER_START-->
  63. <CENTER>
  64. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  65.   <TR>
  66.     <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  67.     </TD>
  68.   </TR>
  69. </TABLE>
  70. <!--COLOR BANNER_END-->
  71.  
  72. <!--BEGIN TABLE and SUB-TABLES WHICH CONTAIN NAVIGATIONAL SIDEBAR AND MAIN CONTENT-->
  73. <!--BEGIN NAVIGATIONAL SIDEBAR-->
  74. <TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 WIDTH=100% HEIGHT=100%>
  75.   <TR>
  76.     <TD WIDTH=100% COLSPAN=4 VALIGN=TOP HEIGHT=74>
  77.       <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  78.         <TR>
  79.           <TD WIDTH=415 HEIGHT=76>
  80.             <TABLE WIDTH=415 HEIGHT=76 CELLSPACING=0 CELLPADDING=0 BORDER=0>
  81.               <TR>
  82.                 <TD HEIGHT=179 COLSPAN=5>    
  83.                   <IMG SRC="images/empbeni.jpg" WIDTH=420 HEIGHT=240 
  84.                     ALT="Exploration Air Frequent Flyer logo">
  85.                 </TD>
  86.                 <TD>
  87.                   <FONT COLOR=RED><%= m_ErrorMessage %></FONT>
  88.                 </TD>
  89.               </TR>
  90.               <TR>
  91.                 <TD  ALIGN=RIGHT VALIGN=TOP BGCOLOR="#FFFFFF" WIDTH=20 HEIGHT=31>
  92.                   <A HREF="../default.asp">
  93.                     <IMG SRC="../images/barrowy.gif" HEIGHT=8 WIDTH=8 
  94.                       ALT="Return to Exploration Airlines' Home Page" VSPACE=6 BORDER=0>
  95.                   </A>
  96.                 </TD>
  97.                 <TD VALIGN="TOP" BGCOLOR="#FFFFFF" WIDTH=300 HEIGHT=40>
  98.                    
  99.                   <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="2"><STRONG>
  100.                     <A HREF="../default.asp" TITLE="Click to return to Exploration Air Home Page">
  101.                       EXPLORATION AIR HOME PAGE
  102.                     </A>
  103.                   </STRONG></FONT>
  104.                 </TD>
  105.                 <TD WIDTH=2 BGCOLOR="#FFFFFF">
  106.                 </TD>
  107.                 <TD VALIGN=TOP BGCOLOR="#FFFFFF" WIDTH=200 HEIGHT=40>
  108.                 </TD>
  109.               </TR>
  110.             </TABLE>
  111.           </TD>
  112.           <TD WIDTH=60>
  113.             <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  114.               <TR>
  115.                 <TD ROWSPAN=2 WIDTH=100% HEIGHT=76 BGCOLOR="#FFFFFF">
  116.                 </TD>
  117.               </TR>
  118.             </TABLE>
  119.           </TD>
  120.         </TR>
  121.       </TABLE>
  122.     </TD>
  123.   </TR>
  124.   <TR>
  125.     <TD VALIGN=TOP BGCOLOR="#FFFFFF">
  126.     <!--BEGIN SUB NAVIGATIONAL NESTED TABLE-->
  127.       <TABLE  WIDTH=95% CELLSPACING=0 CELLPADDING=0 BORDER=0>
  128.         <!-- GO TO THE BEHIND THE SCENES EXPLANATORY PAGE -->
  129.         <TR>
  130.           <TD BGCOLOR=#FFFFFF COLSPAN=3 ALIGN=CENTER> 
  131.             <A HREF="../HowItWorks/HIWBenefitsDefault.asp">
  132.               <IMG SRC="../images/btssmall.gif" WIDTH="115" HEIGHT="52" 
  133.                 ALT="Click here to learn how this page works" BORDER=0>
  134.             </A>
  135.           </TD>
  136.           <TD HEIGHT=5 WIDTH=3>
  137.           </TD>
  138.         </TR>
  139.         <TR>
  140.           <TD BGCOLOR=#FFFFFF COLSPAN=3 ALIGN=CENTER> 
  141.             <BR>
  142.             <FONT FACE="TIMES NEW ROMAN, ARIAL, HELVETICA" COLOR=#228B22 SIZE=5>
  143.               <STRONG>Employee Benefit Program</STRONG>
  144.             </FONT>
  145.           </TD>
  146.         </TR>
  147.         <TR>
  148.           <TD WIDTH=3>
  149.           </TD>
  150.           <TD ALIGN=CENTER>
  151.             <A HREF="Benefits.asp?Review=1">
  152.               <IMG SRC="../images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE=2 
  153.                 VSPACE=4 ALT="Review or Change Current Benefits">
  154.             </A>
  155.           </TD>
  156.           <TD>
  157.             <STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22>
  158.               <A HREF="Benefits.asp?Review=1" TITLE="Click to review or change current benefits">
  159.                 Review or Change Current Benefits
  160.               </A>
  161.             </FONT></STRONG>
  162.             <P>
  163.           </TD>
  164.         </TR>
  165.         <TR>
  166.           <TD WIDTH=3>
  167.           </TD>
  168.           <TD ALIGN=CENTER>
  169.             <A HREF="Benefits.asp?Review=0">
  170.               <IMG SRC="../images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE=2 
  171.                 VSPACE=4 ALT="Select benefits for next year">
  172.             </A>
  173.           </TD>
  174.           <TD>
  175.             <STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22>
  176.               <A HREF="Benefits.asp?Review=0" TITLE="Click to select benefits for next year">
  177.                 Open Enrollment
  178.               </A>
  179.             </FONT></STRONG>
  180.             <P>
  181.           </TD>
  182.         </TR>
  183.         <TR>
  184.           <TD WIDTH=3>
  185.           </TD>
  186.           <TD ALIGN=CENTER>
  187.             <A HREF="EmpProfile.asp">
  188.               <IMG SRC="../images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE=2 
  189.                 VSPACE=4 ALT="Employee Record Maintenance">
  190.             </A>
  191.           </TD>
  192.           <TD>
  193.             <STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22>
  194.               <A HREF="EmpProfile.asp" TITLE="Click to update employee information">
  195.                 Employee Record Maintenance
  196.               </A>
  197.             </FONT></STRONG>
  198.             <P>
  199.           </TD>
  200.         </TR>
  201.         <TR>
  202.           <TD WIDTH=3>
  203.           </TD>
  204.         </TR>
  205.       </TABLE>
  206.     </TD>
  207.     <TD WIDTH=2 BGCOLOR="#FFFFFF">
  208.     </TD>
  209.     <TD WIDTH=5>
  210.     </TD>
  211.     <TD BGCOLOR=#FFFFFF VALIGN=TOP HEIGHT=100%>
  212.       <CENTER>
  213.       <TABLE WIDTH=95% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  214.         <TR>
  215.           <TD HEIGHT=15>
  216.           </TD>
  217.         </TR>
  218.         <TR>
  219.           <TD>
  220.             <FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA">
  221.             <TABLE WIDTH=95% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  222.               <TR>
  223.                 <TD>
  224.                   <FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA">
  225.                     <FONT SIZE=3><STRONG>Category Explanations</STRONG></FONT>
  226.                     <P>
  227.                     <STRONG>Review or Change Current Benefits</STRONG>
  228.                     <BR>
  229.                     View your current benefit selections, and make benefit 
  230.                     changes following qualifying changes in family or employment status.
  231.                     <P>
  232.                     <STRONG>Open Enrollment</STRONG>
  233.                     <BR>
  234.                     Make your benefit selections for next year.
  235.                     <P>
  236.                     <STRONG>Employee Record Maintenance</STRONG>
  237.                     <BR>
  238.                     Change your Employee Record information on address, dependents, and so on.
  239.                     <P>                        
  240.                     <TABLE WIDTH=100% CELLPADDING=0 BORDER=0>
  241.                       <TR>
  242.                         <TD WIDTH=90%>
  243.                            
  244.                         </TD>
  245.                         <TD WIDTH=10%>
  246.                           <A HREF="#TOP">
  247.                             <IMG SRC="../images/up.gif" WIDTH=11 HEIGHT=11 BORDER=0 
  248.                               ALIGN=RIGHT ALT="Go to Top">
  249.                           </A>
  250.                         </TD>
  251.                       </TR>
  252.                       <TR>
  253.                         <TD COLSPAN=2 HEIGHT=1 BGCOLOR="#808080">
  254.                           <TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0>
  255.                             <TR>
  256.                               <TD>
  257.                               </TD>
  258.                             </TR>
  259.                           </TABLE>
  260.                         </TD>
  261.                       </TR>
  262.                       <TR>
  263.                         <TD HEIGHT=2 COLSPAN=2>
  264.                         </TD>
  265.                       </TR>
  266.                       <TR>
  267.                     </TABLE>
  268.                   </FONT>
  269.                 </TD>
  270.               </TR>
  271.             </TABLE>
  272.             </FONT>
  273.             <BR>
  274.             <BR>
  275.             <CENTER>
  276.               <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="1">
  277.               <A HREF="../legal.htm" TITLE="Click to view Copyright and Legal Information">
  278.                 ©1997 Microsoft Corporation. All rights reserved. Terms of Use.
  279.               </A>
  280.               </FONT>
  281.             </CENTER>
  282.             <BR>
  283.              
  284.           </TD>
  285.         </TR>
  286.       </TABLE>
  287.       </CENTER>
  288.     </TD>
  289.   </TR>
  290. </TABLE>
  291. </CENTER>
  292.  
  293. <!--COLOR BANNER START-->
  294. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  295.   <TR>
  296.     <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  297.     </TD>
  298.   </TR>
  299. </TABLE>
  300. <!--COLOR BANNER END-->
  301.  
  302. </BODY>
  303. </HTML>
  304. <!--END HTML-->
  305.  
  306. <%
  307.  
  308.   Sub LookupEmployee
  309.     On Error Resume Next
  310.     Dim Employee, rstLookupEmployee
  311.     Set Employee = Server.CreateObject("Benefit.Employee")
  312.     ' Handle error with component
  313.     If Err.Number <> 0 Then
  314.       m_ErrorMessage = " An error occurred (" & Hex(Err.Number) & ": " & Err.Description & _
  315.         ") while trying to create an instance of the Benefit component. Please try " & _
  316.         "again later."
  317.       Exit Sub
  318.     End If
  319.     Set rstLookupEmployee = Employee.LookupEmployee(Application("DSNBenefits"), m_LogonUser)
  320.     ' Handle error with database
  321.     If Err.Number <> 0 Then
  322.       m_ErrorMessage = "An error occurred (" & Hex(Err.Number) & ": " & Err.Description & _
  323.          ") while opening the database (" & Application("DSNBenefits") & "). Please try " & _
  324.         "again later."
  325.       Exit Sub
  326.     End If
  327.     If Not rstLookupEmployee.EOF Then
  328.       Session("EmployeeId") = rstLookupEmployee("EmployeeId")
  329.     End If
  330.   End Sub
  331.  
  332.   Sub SetupEmployee
  333.     Dim Employee
  334.     Set Employee = Server.CreateObject("Benefit.Employee")
  335.     Employee.AddNew Application("DSNBenefits"), m_LogonUser, Year(Date), _
  336.       m_NewEmployeeQualifier, Date
  337.     LookupEmployee
  338.   End Sub
  339.  
  340. %>