home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 9 / IOPROG_9.ISO / contrib / iis4 / iis4_07.cab / default.asp3 < prev    next >
Encoding:
Text File  |  1997-09-08  |  12.8 KB  |  400 lines
  1. <%@ LANGUAGE="VBSCRIPT" TRANSACTION=REQUIRED %>
  2. <% Option Explicit %>
  3.  
  4. <%
  5.  
  6.  
  7.  
  8.  
  9. ' Setting application variables here until it can go in global.asa
  10.     ' Note that this application assumes that the SQLbenefits.dsn file is in the ODBC default 
  11.     ' directory for file DSN locations.
  12.     Application("DSNBenefits") = "SQLbenefits.dsn"
  13.     Application("Font1") = "FACE=" & Chr(34) & "VERDANA, ARIAL, HELVETICA" & Chr(34) & " SIZE=2"
  14.     Application("Font2") = "FACE=" & Chr(34) & "VERDANA, ARIAL, HELVETICA" & Chr(34) & " SIZE=2"
  15.     Application("Font3") = "FACE=" & Chr(34) & "VERDANA, ARIAL, HELVETICA" & Chr(34) & " SIZE=3"
  16.     Application("Font5") = "FACE=" & Chr(34) & "VERDANA, ARIAL, HELVETICA" & Chr(34) & " SIZE=5"
  17.  
  18.  
  19.  
  20.   Dim m_LogonUser, m_ErrorMessage, m_NewEmployeeQualifier
  21.  
  22.  
  23. ' Set m_NewEmployeeQualifier to value for adding employee
  24. m_NewEmployeeQualifier = 1
  25.  
  26.  
  27.   
  28.   ' First time thru page in this session...
  29.   If Session("EmployeeId") = "" Then
  30.  
  31.  
  32. 'Getting the IEVersion should be done in global.asa when available
  33.     GetIEVersion
  34.  
  35.  
  36.     m_LogonUser = Request.ServerVariables("LOGON_USER")
  37.  
  38.  
  39.   ' Security in Benefits uses NTLM, and requires that the web directory for Benefits
  40.   '   be set to require "Windows NT Challenge/Response", and NOT allow anonymous login.
  41.   ' However, just to make it easy on those who don't have the security settings right,
  42.   '   we plug in a value for m_LogonUser as needed.
  43.   ' Remove the code following between If and End If in production systems!!
  44.     If m_LogonUser = "" Then
  45.       m_LogonUser = "crandall"
  46.     End If
  47.  
  48.  
  49.     LookupEmployee
  50.     ' If we did not have any errors in creating component or opening database
  51.     If m_ErrorMessage = "" Then
  52.       If Session("EmployeeId") = "" Then
  53.        SetupEmployee
  54.       End If
  55.     End If
  56.   End If
  57.  
  58. %>
  59.  
  60. <!-- BEGIN HTML-->
  61. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  62. <HTML>
  63. <HEAD>
  64.   <!--META TAGS ARE RECOMMENDED FOR THE SEARCH ENGINE-->
  65.   <META NAME="DESCRIPTION" CONTENT="Benefits Home Page">
  66.   <META NAME="KEYWORDS" CONTENT="benefit, open, enrollment, employee, profile">
  67.   <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev 1.0">
  68.   <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso8859-1">
  69.   <!--END META TAGS-->
  70.   <TITLE>Exploration Air Employee Benefits Program</TITLE>
  71. </HEAD>
  72.  
  73. <BODY BGCOLOR=#FFFFFF TOPMARGIN=0 LEFTMARGIN=0 ALINK=#23238E VLINK=#228B22 LINK=#23238E>
  74. <BASEFONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=2>
  75.  
  76. <!--Change link color on mouseover
  77.     Only if running Internet Explorer 4.0 or later -->
  78. <!--#include virtual=IISSamples/ExAir/libHighlight.inc-->
  79.  
  80. <A NAME="TOP">
  81. </A>
  82. <!--COLOR BANNER_START-->
  83. <CENTER>
  84. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  85.   <TR>
  86.     <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  87.     </TD>
  88.   </TR>
  89. </TABLE>
  90. <!--COLOR BANNER_END-->
  91.  
  92. <!--BEGIN TABLE and SUB-TABLES WHICH CONTAIN NAVIGATIONAL SIDEBAR AND MAIN CONTENT-->
  93. <!--BEGIN NAVIGATIONAL SIDEBAR-->
  94. <TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 WIDTH=100% HEIGHT=100%>
  95.   <TR>
  96.     <TD WIDTH=100% COLSPAN=4 VALIGN=TOP HEIGHT=74>
  97.       <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  98.         <TR>
  99.           <TD WIDTH=415 HEIGHT=76>
  100.             <TABLE WIDTH=415 HEIGHT=76 CELLSPACING=0 CELLPADDING=0 BORDER=0>
  101.               <TR>
  102.                 <TD HEIGHT=179 COLSPAN=5>    
  103.                   <IMG SRC="images/empbeni.jpg" WIDTH=420 HEIGHT=240 
  104.                     ALT="Exploration Air Frequent Flyer logo">
  105.                 </TD>
  106.                 <TD>
  107.                   <%= m_ErrorMessage %>
  108.                 </TD>
  109.               </TR>
  110.               <TR>
  111.                 <TD  ALIGN=RIGHT VALIGN=TOP BGCOLOR="#FFFFFF" WIDTH=20 HEIGHT=31>
  112.                   <A HREF="../default.asp">
  113.                     <IMG SRC="../images/barrowy.gif" HEIGHT=8 WIDTH=8 
  114.                       ALT="Return to Exploration Airlines' Home Page" VSPACE=6 BORDER=0>
  115.                   </A>
  116.                 </TD>
  117.                 <TD VALIGN="TOP" BGCOLOR="#FFFFFF" WIDTH=300 HEIGHT=40>
  118.                    
  119.                   <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="2"><STRONG>
  120.                     <A HREF="../default.asp">
  121.                       EXPLORATION  AIR  HOMEPAGE
  122.                     </A>
  123.                   </STRONG></FONT>
  124.                 </TD>
  125.                 <TD WIDTH=2 BGCOLOR="#FFFFFF">
  126.                 </TD>
  127.                 <TD VALIGN=TOP BGCOLOR="#FFFFFF" WIDTH=200 HEIGHT=40>
  128.                 </TD>
  129.               </TR>
  130.             </TABLE>
  131.           </TD>
  132.           <TD WIDTH=60>
  133.             <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  134.               <TR>
  135.                 <TD ROWSPAN=2 WIDTH=100% HEIGHT=76 BGCOLOR="#FFFFFF">
  136.                 </TD>
  137.               </TR>
  138.             </TABLE>
  139.           </TD>
  140.         </TR>
  141.       </TABLE>
  142.     </TD>
  143.   </TR>
  144.   <TR>
  145.     <TD VALIGN=TOP BGCOLOR="#FFFFFF">
  146.     <!--BEGIN SUB NAVIGATIONAL NESTED TABLE-->
  147.       <TABLE  WIDTH=95% CELLSPACING=0 CELLPADDING=0 BORDER=0>
  148.         <!-- GO TO THE BEHIND THE SCENES EXPLANATORY PAGE -->
  149.         <TR>
  150.           <TD BGCOLOR=#FFFFFF COLSPAN=3 ALIGN=CENTER> 
  151.             <A HREF="../HowItWorks/HIWBenefitsDefault.asp">
  152.               <IMG SRC="../images/btssmall.gif" WIDTH="115" HEIGHT="52" 
  153.                 ALT="Click here to learn how this page works" BORDER=0>
  154.             </A>
  155.           </TD>
  156.           <TD HEIGHT=5 WIDTH=3>
  157.           </TD>
  158.         </TR>
  159.         <TR>
  160.           <TD BGCOLOR=#FFFFFF COLSPAN=3 ALIGN=CENTER> 
  161.             <BR>
  162.             <FONT FACE="TIMES NEW ROMAN, ARIAL, HELVETICA" COLOR=#228B22 SIZE=5>
  163.               <STRONG>Employee Benefit Program</STRONG>
  164.             </FONT>
  165.           </TD>
  166.         </TR>
  167.         <TR>
  168.           <TD WIDTH=3>
  169.           </TD>
  170.           <TD ALIGN=CENTER>
  171.             <A HREF="Benefits.asp?Review=1">
  172.               <IMG SRC="../images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE=2 
  173.                 VSPACE=4 ALT="Review or Change Current Benefits">
  174.             </A>
  175.           </TD>
  176.           <TD>
  177.             <STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22>
  178.               <A HREF="Benefits.asp?Review=1">
  179.                 Review or Change Current Benefits
  180.               </A>
  181.             </FONT></STRONG>
  182.             <P>
  183.           </TD>
  184.         </TR>
  185.         <TR>
  186.           <TD WIDTH=3>
  187.           </TD>
  188.           <TD ALIGN=CENTER>
  189.             <A HREF="Benefits.asp?Review=0">
  190.               <IMG SRC="../images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE=2 
  191.                 VSPACE=4 ALT="Open Enrollment">
  192.             </A>
  193.           </TD>
  194.           <TD>
  195.             <STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22>
  196.               <A HREF="Benefits.asp?Review=0">
  197.                 Open Enrollment
  198.               </A>
  199.             </FONT></STRONG>
  200.             <P>
  201.           </TD>
  202.         </TR>
  203.         <TR>
  204.           <TD WIDTH=3>
  205.           </TD>
  206.           <TD ALIGN=CENTER>
  207.             <A HREF="EmpProfile.asp">
  208.               <IMG SRC="../images/barrow.gif" WIDTH="52" HEIGHT="25" BORDER=0 HSPACE=2 
  209.                 VSPACE=4 ALT="Employee Record Maintenance">
  210.             </A>
  211.           </TD>
  212.           <TD>
  213.             <STRONG><FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA" COLOR=#228B22>
  214.               <A HREF="EmpProfile.asp">
  215.                 Employee Record Maintenance
  216.               </A>
  217.             </FONT></STRONG>
  218.             <P>
  219.           </TD>
  220.         </TR>
  221.         <TR>
  222.           <TD WIDTH=3>
  223.           </TD>
  224.         </TR>
  225.       </TABLE>
  226.     </TD>
  227.     <TD WIDTH=2 BGCOLOR="#FFFFFF">
  228.     </TD>
  229.     <TD WIDTH=5>
  230.     </TD>
  231.     <TD BGCOLOR=#FFFFFF VALIGN=TOP HEIGHT=100%>
  232.       <CENTER>
  233.       <TABLE WIDTH=95% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  234.         <TR>
  235.           <TD HEIGHT=15>
  236.           </TD>
  237.         </TR>
  238.         <TR>
  239.           <TD>
  240.             <FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA">
  241.             <TABLE WIDTH=95% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  242.               <TR>
  243.                 <TD>
  244.                   <FONT SIZE=2 FACE="VERDANA, ARIAL, HELVETICA">
  245.                     <STRONG>Category Explanations</STRONG>
  246.                     <P>
  247.                     <STRONG>Review or Change Current Benefits</STRONG>
  248.                     <BR>
  249.                     View your current benefit selections, and make benefit 
  250.                     changes following qualifying changes in family or employment status.
  251.                     <P>
  252.                     <STRONG>Open Enrollment</STRONG>
  253.                     <BR>
  254.                     Make your benefit selections for next year.
  255.                     <P>
  256.                     <STRONG>Employee Record Maintenance</STRONG>
  257.                     <BR>
  258.                     Change your Employee Record information on address, dependents, etc.
  259.                     <P>                        
  260.                     <TABLE WIDTH=100% CELLPADDING=0 BORDER=0>
  261.                       <TR>
  262.                         <TD WIDTH=90%>
  263.                            
  264.                         </TD>
  265.                         <TD WIDTH=10%>
  266.                           <A HREF="#TOP">
  267.                             <IMG SRC="../images/up.gif" WIDTH=11 HEIGHT=11 BORDER=0 
  268.                               ALIGN=RIGHT ALT="Up">
  269.                           </A>
  270.                         </TD>
  271.                       </TR>
  272.                       <TR>
  273.                         <TD COLSPAN=2 HEIGHT=1 BGCOLOR="#808080">
  274.                           <TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0>
  275.                             <TR>
  276.                               <TD>
  277.                               </TD>
  278.                             </TR>
  279.                           </TABLE>
  280.                         </TD>
  281.                       </TR>
  282.                       <TR>
  283.                         <TD HEIGHT=2 COLSPAN=2>
  284.                         </TD>
  285.                       </TR>
  286.                       <TR>
  287.                     </TABLE>
  288.                   </FONT>
  289.                 </TD>
  290.               </TR>
  291.             </TABLE>
  292.             </FONT>
  293.             <BR>
  294.             <BR>
  295.             <CENTER>
  296.               <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="1">
  297.               <A HREF="../legal.htm">
  298.                 ©1997 Microsoft Corporation. All rights reserved. Terms of Use.
  299.               </A>
  300.               </FONT>
  301.             </CENTER>
  302.             <BR>
  303.              
  304.           </TD>
  305.         </TR>
  306.       </TABLE>
  307.       </CENTER>
  308.     </TD>
  309.   </TR>
  310. </TABLE>
  311. </CENTER>
  312.  
  313. <!--COLOR BANNER START-->
  314. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  315.   <TR>
  316.     <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  317.     </TD>
  318.   </TR>
  319. </TABLE>
  320. <!--COLOR BANNER END-->
  321.  
  322. </BODY>
  323. </HTML>
  324. <!--END HTML-->
  325.  
  326. <%
  327.  
  328.   ' Determine if we are using IE and set session variable to major version number
  329.   Sub GetIEVersion
  330.     On Error Resume Next
  331.     Dim br
  332.     Set br = Server.CreateObject("MSWC.BrowserType") 
  333.     If Err.Number = 0 Then
  334.       If br.browser = "IE" Then
  335.         Session("IEVersion") = CInt(br.majorver)
  336.       End If
  337.     End If
  338.   End Sub
  339.  
  340.   Sub LookupEmployee
  341.     On Error Resume Next
  342.     Dim Employee, rstLookupEmployee
  343.     Set Employee = Server.CreateObject("Benefit.Employee")
  344.     ' Handle error with component
  345.     If Err.Number <> 0 Then
  346.       m_ErrorMessage = " An error occurred (" & Hex(Err.Number) & ": " & Err.Description & _
  347.         ") while trying to create an instance of the Benefit component. Please try " & _
  348.         "again later."
  349.       Exit Sub
  350.     End If
  351.     Set rstLookupEmployee = Employee.LookupEmployee(Application("DSNBenefits"), m_LogonUser)
  352.     ' Handle error with database
  353.     If Err.Number <> 0 Then
  354.       m_ErrorMessage = "An error occurred (" & Hex(Err.Number) & ": " & Err.Description & _
  355.          ") while opening the database (" & Application("DSNBenefits") & "). Please try " & _
  356.         "again later."
  357.       Exit Sub
  358.     End If
  359.     If Not rstLookupEmployee.EOF Then
  360.       Session("EmployeeId") = rstLookupEmployee("EmployeeId")
  361.     End If
  362.   End Sub
  363.  
  364.   Sub SetupEmployee
  365.     Dim Employee
  366.     Set Employee = Server.CreateObject("Benefit.Employee")
  367.     Employee.AddNew Application("DSNBenefits"), m_LogonUser
  368.     LookupEmployee
  369.     Employee.AddEmployeeDependent Application("DSNBenefits"), Session("EmployeeId")
  370.     SetupBenefits
  371.     
  372.     ' Set up qualifier for this new employee so they can change benefits for next 30 days
  373.     Dim Benefit
  374.     Set Benefit = Server.CreateObject("Benefit.BenefitList")
  375.     Benefit.AddQualifier Application("DSNBenefits"), Session("EmployeeId"), m_NewEmployeeQualifier, Date
  376.     
  377.   End Sub
  378.  
  379.   Sub SetupBenefits
  380.     Dim Employee
  381.     Set Employee = Server.CreateObject("Benefit.Employee")
  382.     Employee.NewBenefits Application("DSNBenefits"), Session("EmployeeId"), Year(Date)
  383.   End Sub
  384.  
  385.   Function GetPrefixValue()
  386.     Dim strFullPath, strLastChar
  387.     strFullPath = "http://"
  388.     strFullPath = strFullPath & Request.ServerVariables("SERVER_NAME")
  389.     strFullPath = strFullPath & Request.ServerVariables("PATH_INFO")
  390.     ' now str has a value like: "http://servname/exair/benefit/default.asp"
  391.     ' we need to cut off the "/default.asp" part
  392.     strLastChar = ""
  393.     Do Until strLastChar = "/"
  394.       strLastChar = right(strFullPath, 1)
  395.       strFullPath = left(strFullPath, len(strFullPath) - 1)    
  396.     Loop
  397.     GetPrefixValue = strFullPath
  398.   End Function
  399.  
  400. %>