Profile Portfolios or Funds - Which is Right for Me?

Selecting the proper investment options is an important task, made even more challenging by having a menu of Asset Allocation Profile Portfolios and institutional, no-load mutual funds from which to choose. Both the Profiles and funds have different characteristics, advantages and disadvantages - no one investment type is best for everyone.

Shown below is a comparison between the Moderate Growth Profile and the Fidelity Growth & Income Fund. Of course, different Profiles compared to different funds will produce different comparative data. Also, keep in mind that the information below is subjective and may only apply in some cases. A check mark does not mean that the stated advantage will always apply!

Finally, the information contained herein IS NOT intended, nor should it be taken, as investment advice. Past performance is no guarantee of future results.

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