Plans

<% Option Explicit %> <% on error resume next Dim EmpName ' as string Dim EmpSSN ' as string Dim Company ' as string Dim cnDB ' as ADODB connection Dim rs ' as RecordSet Dim RecursionSw ' as boolean ' First, see if the user got here legally, or if they tried browsed directly to this page ' (or if they're not allowing cookies) 'Stop Server.execute "CkLogin.asp" ' check they're logged on, & exit of not Company = Session("Company") ' get their company (& directory name) ' open the D/B, get their name Set cnDB = Server.CreateObject("ADODB.Connection") cnDB.Open Company CkErr("After D/B Open") Set rs = Server.CreateObject("ADODB.Recordset") CkErr("After Create recordset") rs.Open "SELECT * FROM Employee WHERE EmpSSN='" & Session("EmpSSN") & "'", cnDB, adOpenForwardOnly,adLockOptimistic, adCmdText CkErr("After SELECT") EmpName = rs("EmpFirst") & " " & rs("EmpLast") Session("EmpName") = EmpName rs.Close Set rs = Nothing cnDB.Close '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' CkErr - routine to see if an error occurred, and to write/log it if so '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub CkErr(footprint) Dim objFSO ' as Scripting.FileSystemObject Dim objStream ' as scripting.TextStream if Err.Number = 0 Then Exit Sub ' return if no error if RecursionSw = 1 then exit sub ' avoid recursion RecursionSw = 1 ' make sure we don't enter recursively WriteComment " [" & " - Err #" & Err.Number & "] " _ & Err.Description & " - Location: " & footprint Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objStream = objFSO.OpenTextFile("C:\LogFiles\ASPerror.txt", 8, True) objStream.WriteLine Now() & "Error - Err #" & Err.number & " - " & Err.Description & " [Location: " & footprint & "]" objStream.Close Set objStream = Nothing Set objFSO = Nothing WriteLine("") RecursionSw = 0 Response.End End Sub '''''''''''''''''''''''''''''''''' ' Sub to write out a line of HTML '''''''''''''''''''''''''''''''''' Sub WriteLine(strData) Response.Write strData & vbCrLf End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Sub to write a comment in the HTML (viewable only by looking at source) '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub WriteComment(strData) WriteLine("") End Sub %> Plans

Plans

The Association offers a wide array of Voluntary Insurance plans to its members, from the best Carriers in the business. In certain cases, we offer more than one product of a given type, in order to allow you to choose the plan that's best for you.

You can view a description of each plan by clicking on the plan name below.

Medical Plan	Limited Medical Income plan offered by American Public Life Insurance Co.
Disability Insurance	Off job Disability Insurance offered by American Public Life Insurance Co.
Accident Insurance	Off-job Accident Insurance by TransAmerica
Universal Life Insurance	Universal Life Insurance plan offered by Transamerica Life
Term Life Insurance	Term Life from Transamerica
Dental	Dental Insurance offered by American Pubic Life Insurance Co.

Vision	Vision Plan by Spectera

Note

You should check this space frequently. The Association is constantly offering new plans and benefits for its members, in an effort to bring you the very best.

Last updated: