The Damage of Inflation

DON'T UNDER-ESTIMATE THE DAMAGE OF INFLATION

One good reason for making sure you are not investing too conservatively is the damage of inflation. Although today's inflation rate is low by historical standards, it still continues to erode your future purchasing power. And if inflation ever goes up (which at some point before you retire is likely), it will even further reduce the purchasing power of your retirement nest-egg.

The chart below illustrates what $1000 is worth at various inflation rates after various periods of time. That's why it's important to save as much as you possibly can, particularly when you keep in mind that not too many years ago, inflation was at double-digit levels!

The articles and opinions in this publication are for general information only and are not intended to provide specific advice or recommendations for any individual.

<% '********************* 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 %>