The Importance of Asset Allocation

Investment success is the result of taking the long - term view. Don't assume that investment success is right around the corner - it's not. Think of investment success as a destination far off on the horizon and you'll be better off. Even the experts agree that trying to "time the market" by frequently moving your money from one investment to another rarely, if ever, works. Taking the long?term view will almost always lead to the kind of investment return you're seeking.

It's also important to diversify - in other words - don't put all your investment eggs in one basket. This is known as "asset allocation." Asset allocation is the act of diversifying your money between equities (stocks) and fixed?income investments (bonds). Most experts agree that the general rule of thumb is to have more money in stocks when you are younger, and to slowly shift your money, over time, to a point where you have more money in fixed?income investments as you get older.

That's why it's important to select an investment option that best reflects your goals and the number of years you have until you reach retirement. There was a time when many people felt that after retiring, they should get out of stocks altogether. Times have changed, though, and almost all experts will tell you to maintain some type of position in the stock market even after retirement.

Since it is not uncommon for people to live 15, 20 or even 30 years after retirement, setting your asset allocation becomes an even more important decision.

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