home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_07.cab / Change.asp < prev    next >
Text File  |  1998-04-27  |  8KB  |  279 lines
  1. <%@ LANGUAGE="VBSCRIPT" TRANSACTION=REQUIRED %>
  2. <% Option Explicit %>
  3. <!--#include file=libAuthenticate.inc-->
  4.  
  5. <%
  6.  
  7.   ' Dim page-level variables
  8.   Dim m_BenefitId, m_ChangeQualifier, m_ChangeDate, m_strMainPrompt, m_CallURL
  9.   
  10.   ' Set page-level variables
  11.   m_BenefitId = Request("BenefitId")
  12.   
  13.   ' If user selected a qualifying change, go back to calling page, but ready for data entry
  14.   If Request("SubmitChange") = "Submit" Then
  15.     GetValuesFromForm
  16.     UpdateDatabase
  17.     'Send back to regenerate the calling page, but now changeable if qualifying change entered
  18.     m_CallURL = Session("URLCallChange")
  19.     Response.Redirect(m_CallURL)
  20.   Else
  21.     ' This is first time in, so save URL of calling page
  22.     Session("URLCallChange") = Request.ServerVariables("HTTP_REFERER")
  23.   End If
  24.  
  25. %>
  26.  
  27. <!--BEGIN HTML-->
  28. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  29. <HTML>
  30. <HEAD>
  31. <!--META TAGS ARE RECOMMENDED FOR THE SEARCH ENGINE-->
  32. <META NAME="DESCRIPTION" CONTENT="Employee Benefits - Qualifying Change Entry">
  33. <META NAME="KEYWORDS" CONTENT="change, qualify, benefit, enter, entry">
  34. <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev 1.0">
  35. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso8859-1">
  36. <!--END META TAGS-->
  37.  
  38. <TITLE>Qualifying Change Entry</TITLE>
  39. </HEAD>
  40.  
  41. <BODY BGCOLOR=#FFFFFF TOPMARGIN=0 LEFTMARGIN=0 ALINK=#23238E VLINK=#228B22 LINK=#23238E>
  42. <BASEFONT FACE="VERDANA, ARIAL, HELVETICA" SIZE=2>
  43.  
  44. <!--Change link color on mouseover
  45.     Only if running Internet Explorer 4.0 or later -->
  46. <!--#include file=../libHighlight.inc-->
  47.  
  48. <!--COLOR BANNER_START-->
  49. <CENTER>
  50. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  51.   <TR>
  52.     <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  53.     </TD>
  54.   </TR>
  55. </TABLE>
  56. <!--COLOR BANNER_END-->
  57.  
  58. <!--BEGIN TABLE CONTAINING LOGO, TITLE AND NAVIGATIONAL LINK-->
  59. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  60.   <TR>
  61.     <TD VALIGN=TOP WIDTH=325>
  62.       <A HREF="../default.asp">
  63.         <IMG SRC="../images/logo_sm.gif" WIDTH=200 HEIGHT=100 
  64.           ALT="Return to Exploration Air Home Page" BORDER=0>
  65.       </A>
  66.       <BR>
  67.       <A HREF="default.asp">
  68.         <IMG SRC="../images/barrowy.gif" HEIGHT=8 WIDTH=8 HSPACE=5
  69.           ALT="Return to Employee Benefit Home Page" BORDER=0>
  70.       </A>
  71.       <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="2" ><STRONG>
  72.         <A HREF="default.asp" TITLE="Click to return to Employee Benefit Home Page">
  73.           EMPLOYEE BENEFITS HOME PAGE
  74.         </A>
  75.       </STRONG></FONT>
  76.       <BR>
  77.       <A HREF="Benefits.asp?Review=1">
  78.         <IMG SRC="../images/barrowy.gif" HEIGHT=8 WIDTH=8 HSPACE=5
  79.           ALT="Return to Review or Change Current Benefits" BORDER=0>
  80.       </A>
  81.       <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="2" ><STRONG>
  82.         <A HREF="Benefits.asp?Review=1" TITLE="Click to return to Current Benefits Page">
  83.           REVIEW OR CHANGE CURRENT BENEFITS
  84.         </A>
  85.       </STRONG></FONT>
  86.     </TD>
  87.     <TD VALIGN=MIDDLE WIDTH=200><FONT FACE="VERDANA, ARIAL, HELVETICA" COLOR="#0000FF" SIZE=5>
  88.       <%= m_strMainPrompt%></FONT>
  89.     </TD>
  90.     <TD VALIGN=MIDDLE WIDTH=200><FONT FACE="VERDANA, ARIAL, HELVETICA" COLOR="#0000FF" SIZE=5>
  91.       Qualifying Change Entry</FONT>
  92.     </TD>
  93.     <TD VALIGN=TOP ALIGN=RIGHT>
  94.       <A HREF="../HowItWorks/HIWBenefitsChange.asp">
  95.         <IMG SRC="../images/btssmall.gif" WIDTH="115" HEIGHT="52" 
  96.           ALT="Click here to learn how this page works" BORDER=0>
  97.       </A>
  98.     </TD>
  99.   </TR>
  100. </TABLE>
  101. <!--END TABLE CONTAINING LOGO, TITLE AND NAVIGATIONAL LINK-->
  102.  
  103. <BR>
  104. <BR>
  105.  
  106. <CENTER>
  107.       If you have experienced a qualifying change, you can change your current benefits
  108.       before Open Enrollment.      
  109.       <BR>Enter your qualifying change and when it occurred, then update your Insurance Plan on 
  110.       the next page.
  111.  
  112. <!--BEGIN FORM-->
  113. <FORM NAME="ProfileForm" METHOD=POST 
  114.   ACTION="Change.asp?BenefitId=<%= m_BenefitId %>" 
  115.   LANGUAGE="JavaScript"
  116.   onSubmit="if (!validateForm(document.ProfileForm))
  117.             {
  118.               alert ('Select your qualifying change and enter the date change occured, then click Submit.');
  119.               return false;
  120.              }">
  121.           
  122. <!--When user clicks Save, should go to page for data entry if no errors-->
  123.  
  124. <P>
  125. <TABLE>
  126.   <TR>
  127.     <TH>
  128.       Qualifying Change:
  129.     </TH>
  130.     <TD>
  131. <%
  132.       BuildChangeQualifierList
  133. %>
  134.     </TD>
  135.   </TR>
  136.   <TR>
  137.     <TH>
  138.       Date Change Occured:
  139.     </TH>
  140.     <TD>
  141.       <INPUT SIZE=25 MAXLENGTH=20 NAME="ChangeDate" VALUE="<%= m_ChangeDate %>">
  142.     </TD>
  143.   </TR>
  144. </TABLE>
  145.  
  146. <P>
  147.  
  148. <INPUT TYPE="Submit" NAME="SubmitChange" VALUE="Submit">
  149. </FORM>
  150. <!--END FORM-->
  151. </CENTER>
  152. <BR>
  153.  
  154. <P> 
  155. <HR=400>
  156. <P>
  157.  
  158. <CENTER>
  159.   <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="1">
  160.     <A HREF="../legal.htm" TITLE="Click to view Copyright and Legal Information">
  161.       ©1997 Microsoft Corporation. All rights reserved. Terms of Use.
  162.     </A>
  163.   </FONT>
  164. </CENTER>
  165.  
  166. <P>
  167.  
  168. <!--BEGIN COLOR BANNER-->
  169. <TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0>
  170.   <TR>
  171.     <TD BGCOLOR="#C71585" WIDTH=100% HEIGHT=20>
  172.     </TD>
  173.   </TR>
  174. </TABLE>
  175. <!--END COLOR BANNER-->
  176.  
  177. </BODY>
  178. </HTML>
  179. <!--END HTML-->
  180.  
  181. <SCRIPT LANGUAGE="JavaScript">
  182. // Begin client side helper functions
  183.   function validateForm(form)
  184.   {
  185.     if (isEmpty(form.ChangeQualifier)) return false;
  186.     if (NotDate(form.ChangeDate)) return false;
  187.             
  188.     return true;
  189.   }
  190.  
  191.   function isEmpty(textcontrol)
  192.   {
  193.     str = textcontrol.value
  194.     for (i = 0; i < str.length; i++)
  195.     {
  196.       chr = str.substring(i, i + 1);
  197.       if (chr != ' ')
  198.       {
  199.         return false;
  200.       }
  201.     }
  202.     return true;
  203.   }
  204.  
  205.   function NotDate(textcontrol)
  206.   {
  207.     myDate = Date.parse(textcontrol.value)
  208.     if (isNaN(myDate))
  209.     {
  210.       return true;
  211.     }
  212.     return false;
  213.   }
  214.  
  215. </SCRIPT>
  216.  
  217.  
  218.  
  219. <%
  220.   '
  221.   ' Create Select list of available Change Qualifiers
  222.   '
  223.   Sub BuildChangeQualifierList
  224.     Dim Benefit, rstChangeQualifiers, intQualifierClass
  225.     intQualifierClass = 1
  226.     Set Benefit = Server.CreateObject("Benefit.BenefitList") 
  227.     Set rstChangeQualifiers = Benefit.ChangeQualifierList(Application("DSNBenefits"), m_BenefitId, _
  228.       intQualifierClass)
  229.     Response.Write "<SELECT NAME=ChangeQualifier >" & Chr(13)
  230.     Do Until rstChangeQualifiers.EOF
  231.       Response.Write "<OPTION VALUE="
  232.       If rstChangeQualifiers("QualifierRank") > 0 Then
  233.         Response.Write rstChangeQualifiers("QualifierId") & ">"
  234.       Else
  235.         Response.Write " >"
  236.       End If
  237.       Response.Write rstChangeQualifiers("QualifierLabel")
  238.       If rstChangeQualifiers("QualifierRank") > 0 Then
  239.         Response.Write ": Valid for " & rstChangeQualifiers("ChangeDays") & " days after event"
  240.       End If
  241.       Response.Write Chr(13)
  242.       rstChangeQualifiers.MoveNext
  243.     Loop
  244.     Response.Write "</SELECT>" & Chr(13)
  245.   End Sub
  246.  
  247.   'Get values from Form
  248.   Sub GetValuesFromForm
  249.     m_ChangeQualifier = Trim(Request.Form("ChangeQualifier"))
  250.     m_ChangeDate = Trim(Request.Form("ChangeDate"))
  251.   End Sub
  252.  
  253.   ' 
  254.   ' Update the database. Return 0 if successful or 1 if an error is encountered.
  255.   '
  256.   Function UpdateDatabase
  257.     On Error Resume Next
  258.     Dim Benefit
  259.     Set Benefit = Server.CreateObject("Benefit.BenefitList")
  260.     Benefit.AddQualifier Application("DSNBenefits"), Session("EmployeeId"), m_ChangeQualifier, m_ChangeDate
  261.     
  262.     If Err.Number = 0 Then
  263.       
  264.     Else
  265.       ContextObject.SetAbort
  266.       UpdateDatabase = 1
  267.     End If
  268.     
  269.   End Function
  270.  
  271.   Sub OnTransactionCommit
  272.   
  273.   End Sub
  274.  
  275.   Sub OnTransactionAbort    
  276.         m_strMainPrompt = "A problem occurred while trying to update the database. Please try again later. "
  277.   End Sub
  278.  
  279. %>