2004 Qualified Plan Limits

Description	2003	2004
401(k) and 403(b) elective deferral limit	$12,000	$13,000
Catch up contributions	$2,000	$3,000
457 deferral limit	$12,000	$13,000
Annual compensation limit	$200,000	$205,000
Maximum pension	$160,000	$165,000
Annual contribution limit under a defined contribution plan	$40,000	$41,000
Compensation dollar limit for determining highly compensated employees	$90,000	$90,000
Social Security Taxable Wage Base is increased	$87,000	$87,900

<% '********************* sub showStats() '********************* dim objFS, objFile, currLine, StockInfo, bEOF, FileUpdated, objFiledate, mfunddate Set objFS = CreateObject("Scripting.FileSystemObject") Set objFile = objFS.OpenTextFile(Server.MapPath("stock.DAT"), 1,0) Set objFiledate = objFS.GetFile(Server.MapPath("stock.DAT")) FileUpdated = objFiledate.DatelastModified Response.Write "

" Response.Write " Returns as of September 30, 2004

" Response.Write "" currLine = objFile.ReadLine If currLine = "-START STOCKMARKET-" Then currLine = objFile.ReadLine While currLine <> "-START MUTUALFUNDS-" StockInfo = Split(currLine,"|") Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" currLine = objFile.ReadLine Wend End If Response.Write "

Market Index	1 Mth Return	YTD Return	12 Mth Return	3 Yr Return	5 Yr Return
" & StockInfo(0) & "	" & avsFormatPercent(StockInfo(1)) & "	" & avsFormatPercent(StockInfo(2)) & "	" & avsFormatPercent(StockInfo(3)) & "	" & avsFormatPercent(StockInfo(4)) & "	" & avsFormatPercent(StockInfo(5)) & "

" Response.Write "" currLine = objFile.ReadLine While currLine <> "-START PROFILES-" StockInfo = Split(currLine,"|") Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" currLine = objFile.ReadLine Wend Response.Write "

Mutual Fund	NAV	1 Mth Return	YTD Return	12 Mth Return	3 Yr Return	5 Yr Return
" & StockInfo(0) & "	" & "$" & avsFormatNumber(StockInfo(1),2) & "	" & avsFormatPercent(StockInfo(2)) & "	" & avsFormatPercent(StockInfo(3)) & "	" & avsFormatPercent(StockInfo(4)) & "	" & avsFormatPercent(StockInfo(5)) & "	" & avsFormatPercent(StockInfo(6)) & "

" currLine = objFile.ReadLine While currLine <> "-START PROFILE2-" StockInfo = Split(currLine,"|") currLine = objFile.ReadLine Wend Response.Write "

" currLine = objFile.ReadLine while not objFile.AtEndOfStream StockInfo = Split(currLine,"|") currLine = objFile.ReadLine wend StockInfo = Split(currLine,"|") objFile.Close end sub '********************************* Sub LogonScreen(Username) '********************************* dim bgBack, bgFore bgBack = "#A85533" bgFore = "#E7DFD5" response.write "

Please enter the Username and Password supplied by your North Central Trust representative.

" & vbcrlf Response.Write "

" & vbcrlf response.write "" & vbcrlf & "

" & vbcrlf End Sub '************************************ function avsFormatPercent(val) '************************************ if len(val) > 0 and isnumeric(val) then avsFormatPercent = FormatPercent(val) else avsFormatPercent = "

" end if end function '************************************ function avsFormatNumber(val,dec) '************************************ if len(val) > 0 and isnumeric(val) then if dec <> "" then avsFormatNumber = FormatNumber(val,dec) end if else avsFormatNumber = "

" end if end function %>