Mortgage Calculators ISA

<%dim interest,initial_charge, mi, term, risk, target, charges, invret, rate, payment, rest, mortcost, repayment, singlepremium, futurevalue, futurevalue2, under%>

Investment Mortgage

<% If Request.Form("Button1")<>"" then under = 0.01 rest = 12 mi = Request.Form("mortgage_rate") 'mortgage interest if mi = "" then mi = 0 end if term = Request.Form("term") if term = "" then term = 0.0001 end if risk = Request.Form("risk") target = Request.Form("target_value") if target = "" then target = 0 end if singlepremium = Request.Form("single_premium") if singlepremium = "" then singlepremium = 0 end if interest = formatcurrency(target*mi/12/100,2) if risk = "selected" then charges = 0 initial_charge = 0 invret = 0.00 under = 0 else if risk = "low" then charges = 0 initial_charge = 0 invret = 0.04 else if risk = "medium" then invret = 0.06 'investment return charges = 0.005 initial_charge = 0.04 else if risk = "high" then charges = 0.01 initial_charge = 0.06 invret = 0.08 End if End if End if End if rate = invret - charges payment = FormatCurrency(pmt(rate/rest,term*rest,singlepremium*(1-initial_charge),-target)/(1+initial_charge),2) 'rate, period, present value,future value, type repayment = FormatCurrency(pmt(mi/rest/100,term*rest,-target,0),2) 'rate, period, present value,future value, type futurevalue = FormatCurrency(fv((rate-under)/rest,term*rest,-payment*(1-initial_charge),-singlepremium*(1-initial_charge)),2) 'rate, period, payment, present value futurevalue2 = FormatCurrency(fv((rate+under)/rest,term*rest,-payment*(1-initial_charge),-singlepremium*(1-initial_charge)),2) 'rate, period, payment, present value mortcost = FormatCurrency(payment + (mi*target/rest/100),2) charges = charges*100 invret = invret*100 initial_charge = initial_charge*100 %>

Payment to Investment:	<%response.write(payment)%>pm
Interest payment to lender	<%response.write(interest)%>pm
Total monthly cost:	<%response.write(mortcost)%>pm

Shortfall if investment return is 1% pa less:	<%response.write(FormatCurrency(target-futurevalue,2))%>
Surplus if investment return is 1% pa more:	<%response.write(FormatCurrency(futurevalue2-target,2))%>
What about a repayment mortgage?
Repayment mortgage:	<%response.write(repayment)%>pm

<% End if %>