<%@ LANGUAGE="VBSCRIPT" TRANSACTION=REQUIRED %> <% Option Explicit %> <% ' Dim page-level variables Dim m_BenefitId, m_ChangeQualifier, m_ChangeDate, m_strMainPrompt, m_CallURL ' Set page-level variables m_BenefitId = Request("BenefitId") ' If user selected a qualifying change, go back to calling page, but ready for data entry If Request("SubmitChange") = "Submit" Then GetValuesFromForm UpdateDatabase 'Send back to regenerate the calling page, but now changeable if qualifying change entered m_CallURL = Session("URLCallChange") Response.Redirect(m_CallURL) Else ' This is first time in, so save URL of calling page Session("URLCallChange") = Request.ServerVariables("HTTP_REFERER") End If %> Qualifying Change Entry
Return to Exploration Air Home Page
Return to Employee Benefit Home Page EMPLOYEE BENEFITS HOME PAGE
Return to Review or Change Current Benefits REVIEW OR CHANGE CURRENT BENEFITS 		<%= m_strMainPrompt%> Qualifying Change Entry Click here to learn how this page works


If you have experienced a qualifying change, you can change your current benefits before Open Enrollment.
Enter your qualifying change and when it occurred, then update your Insurance Plan on the next page.

Qualifying Change: <% BuildChangeQualifierList %>
Date Change Occured:


©1997 Microsoft Corporation. All rights reserved. Terms of Use.

<% ' ' Create Select list of available Change Qualifiers ' Sub BuildChangeQualifierList Dim Benefit, rstChangeQualifiers, intQualifierClass intQualifierClass = 1 Set Benefit = Server.CreateObject("Benefit.BenefitList") Set rstChangeQualifiers = Benefit.ChangeQualifierList(Application("DSNBenefits"), m_BenefitId, _ intQualifierClass) Response.Write "" & Chr(13) End Sub 'Get values from Form Sub GetValuesFromForm m_ChangeQualifier = Trim(Request.Form("ChangeQualifier")) m_ChangeDate = Trim(Request.Form("ChangeDate")) End Sub ' ' Update the database. Return 0 if successful or 1 if an error is encountered. ' Function UpdateDatabase On Error Resume Next Dim Benefit Set Benefit = Server.CreateObject("Benefit.BenefitList") Benefit.AddQualifier Application("DSNBenefits"), Session("EmployeeId"), m_ChangeQualifier, m_ChangeDate If Err.Number = 0 Then Else ContextObject.SetAbort UpdateDatabase = 1 End If End Function Sub OnTransactionCommit End Sub Sub OnTransactionAbort m_strMainPrompt = "A problem occurred while trying to update the database. Please try again later. " End Sub %>