<%@ LANGUAGE="VBSCRIPT" TRANSACTION=REQUIRED %> <% Option Explicit %> <% Dim m_intRelationship, m_strFirstName, m_strLastName, m_strMiddleName, m_strSSN, _ m_intGender, m_datBirthdate, m_intReason, m_strMainPrompt, m_Reason, m_ChangeDate ' ' This block determines whether to display the page, or attempt to update the ' database and then redirect. ' If Request.Form("SubmitDependent") <> "" Then GetValuesFromForm If UpdateDatabase = 0 Then ' database update occurred successfully Response.Redirect("EmpProfile.asp?DepAddSuccess=1") Response.End Else ' database update did not occur successfully so let the user know End If End If m_strMainPrompt = "Enter the dependent's information, then click Save.
" & _ "The items listed in bold and marked by a blue bullet are required." %> Add Dependent
Return to Exploration Air Home Page
Return to Employee Benefit Home Page EMPLOYEE BENEFITS HOME PAGE
Return to Employee Profile Page EMPLOYEE PROFILE PAGE 		Add Dependent Click here to learn how this page works

<%= m_strMainPrompt %>

 Dependent Information
Relationship <% BuildDependentTypeList %>
First Name
Last Name
 Middle Name
SSN
Gender <% BuildGenderList %>
Birthdate
Reason for Change <% BuildChangeQualifierList %>
Date Event Occured

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

<% ' ' Begin server side helper functions ' ' ' Create Select list of Dependent Types ' Sub BuildDependentTypeList Dim BenefitList, rstDependentTypeList Set BenefitList = Server.CreateObject("Benefit.BenefitList") Set rstDependentTypeList = BenefitList.DependentTypeList(Application("DSNBenefits")) Response.Write "" & Chr(13) End Sub ' ' Create Select list of Genders ' Sub BuildGenderList Dim BenefitList, rstGenderList Set BenefitList = Server.CreateObject("Benefit.BenefitList") Set rstGenderList = BenefitList.GenderList(Application("DSNBenefits")) Response.Write "" & Chr(13) End Sub ' ' Create Select list of available Change Qualifiers ' Sub BuildChangeQualifierList Dim Benefit, rstReasonList, intQualifierClass, intBenefitId ' Get the Dependent Add codes intQualifierClass = 4 ' Tell method to disregard BenefitId intBenefitId = 0 Set Benefit = Server.CreateObject("Benefit.BenefitList") Set rstReasonList = Benefit.ChangeQualifierList(Application("DSNBenefits"), intBenefitId, _ intQualifierClass) Response.Write "" & Chr(13) End Sub ' ' Take values from the submitted form and assign to page level variables. ' Sub GetValuesFromForm m_intRelationship = CInt(Request.Form("Relationship")) m_strFirstName = Trim(Request.Form("FirstName")) m_strLastName = Trim(Request.Form("LastName")) m_strMiddleName = Trim(Request.Form("MiddleName")) m_strSSN = Trim(Request.Form("SSN")) m_intGender = CInt(Request.Form("Gender")) m_datBirthdate = Trim(Request.Form("Birthdate")) If Not IsDate(m_datBirthdate) Then m_datBirthdate = Now() End If m_Reason = Trim(Request.Form("AddReason")) m_ChangeDate = Trim(Request.Form("ChangeDate")) If Not IsDate(m_ChangeDate) Then m_ChangeDate = Now() End If End Sub ' ' Update the database. Return 0 if successful or 1 if an error is encountered. ' Function UpdateDatabase On Error Resume Next Dim Employee Set Employee = Server.CreateObject("Benefit.Employee") Employee.AddDependent Application("DSNBenefits"), Session("EmployeeId"), _ m_intRelationship, m_strFirstName, m_strLastName, _ m_strMiddleName, m_strSSN, m_intGender, m_datBirthdate Dim Benefit Set Benefit = Server.CreateObject("Benefit.BenefitList") Benefit.AddQualifier Application("DSNBenefits"), Session("EmployeeId"), m_Reason, _ m_ChangeDate If Err.Number = 0 Then UpdateDatabase = 0 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 %>