<%@ Language=VBScript%> Power of Compound Interest <% Dim iSavings, iAge, iYear, iAnnual, iRate1, iRate2, iRate3, iCount Dim iCol1, iCol2, iCol3, iInternalCount '************************************* ' READ RESPONSES '************************************* '------------------------------------- ' Retrieve iSavings '------------------------------------- iSavings = Trim(Request.QueryString("iSavings")) IF iSavings = "" THEN iSavings = Request("iSavings") END IF IF iSavings = "" THEN iSavings = 200 END IF iAnnual = iSavings * 12 '------------------------------------- ' Retrieve iAge '------------------------------------- iAge = Trim(Request.QueryString("iAge")) IF iAge = "" THEN iAge = Request("iAge") END IF IF iAge = "" THEN iAge = 35 END IF '------------------------------------- ' Set iYear default '------------------------------------- iYear = year(date()) '------------------------------------- ' Retrieve iRate1 '------------------------------------- iRate1 = Trim(Request.QueryString("iRate1")) IF iRate1 = "" THEN iRate1 = Request("iRate1") END IF IF iRate1 = 0 THEN iRate1 = 1.00 END IF '------------------------------------- ' Retrieve iRate2 '------------------------------------- iRate2 = Trim(Request.QueryString("iRate2")) IF iRate2 = "" THEN iRate2 = Request("iRate2") END IF IF iRate2 = 0 THEN iRate2 = 1.50 END IF '------------------------------------- ' Retrieve iRate3 '------------------------------------- iRate3 = Trim(Request.QueryString("iRate3")) IF iRate3 = "" THEN iRate3 = Request("iRate3") END IF IF iRate3 = 0 THEN iRate3 = 2.00 END IF %> <% 'Response.Write "
iSavings = " & iSavings 'Response.Write "
iAge = " & iAge 'Response.Write "
iYear% = " & iYear 'Response.Write "
iRate1 = " & iRate1 'Response.Write "
iRate2 = " & iRate2 'Response.Write "
iRate3 = " & iRate3 %>

Power of Compound Interest

Demonstration Programme
JABBS & ASSOCIATES CORPORATION
The following program allows you to predict what your retirement portfolio can be if you save a small amount on a monthly basis. Compound Interest is a powerful tool that can provide substantial wealth. Simply input a value you feel you can save each month and let the program determnine how this investment can provide financial freedom.

How much do you need to invest to reach $1 Million dollars at retirement?
Monthly Savings Amount:
What is your Age?:
Select THREE different interest rates below to see the effect they will have on your savings.
<% iCol1 = 0 iCol2 = 0 iCol3 = 0 iInternalCount = 4 For iCount = iAge to 70 iCol1 = (iCol1 + iAnnual) + ((iAnnual + iCol1) *(iRate1/100)) iCol2 = (iCol2 + iAnnual) + ((iAnnual + iCol2) *(iRate2/100)) iCol3 = (iCol3 + iAnnual) + ((iAnnual + iCol3) *(iRate3/100)) iInternalCount = iInternalCount + 1 IF iInternalCount = 5 THEN Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" END IF IF iInternalCount = 5 THEN iInternalCount = 0 END IF Next %>
Interest Rate 1 Interest Rate 2 Interest Rate 3
Year Your Age
" Response.Write "
" Response.Write iYear + (iCount - iAge) Response.Write "
" Response.Write "		" Response.Write "
" Response.Write iCount Response.Write "
" Response.Write "		" Response.Write "
" Response.Write FormatCurrency(iCol1,0) Response.Write "
" Response.Write "		" Response.Write "
" Response.Write FormatCurrency(iCol2,0) Response.Write "
" Response.Write "		" Response.Write "
" Response.Write FormatCurrency(iCol3,0) Response.Write "
" Response.Write "
Want to know more? To obtain the full version of this program, and also programs for Monthly Budgeting, Loan Repayments, Investment Tracking and Business Possibilities, order the Jabbs Personal Fiannce CD
<% 'Response.Write "
iSavings = " & iSavings 'Response.Write "
iAge = " & iAge 'Response.Write "
iYear% = " & iYear 'Response.Write "
iRate1 = " & iRate1 'Response.Write "
iRate2 = " & iRate2 'Response.Write "
iRate3 = " & iRate3 %>