Mortgage Calculators Repayments

<% dim equity10, equity20, text1, text2, val10, val20, min, max, rotate, diff, z, val, dep, loan, i, y, m1(2), am1(2), m2(2), am2(2), m4(2), am4(2), m5(2), am5(2), m6(2), am6(2), m7(2), am7(2), daily(2), annual(2), intonly(2), sd, cb, deposit, value, checkbox %>

Interest Only Method
Payments will not reuce the mortgage balance. You must have plans to repay the whole of the mortgage at the end of <%=Request.QueryString("term")%> years

Stamp Duty
Applicable to house purchases only (not remortgages or further advances). The amount you pay depends on the purchase price. Some parts of the UK considered disadvantaged areas benefit from a reduction
You may also have to pay stamp duty where there is a transfer of equity (e.g. joint ownership reverting to single ownership)

Repayment Method
Your payment to the lender will include two elements; (1) interest, and (2) capital. Your mortgage is repaid over <%=Request.QueryString("term")%> years.

Mortgage Payments Calculator

Remortgage?	<%if request.QueryString("checkbox") = "on" then%>(tick if yes) <% else %> (tick if yes) <% End If %>
Property Value
Deposit \ Equity
Interest Rate
Term

<% If Request.QueryString("Button1")<>"" then rotate = Request.QueryString("rotate") rotate=rotate+1 if rotate = 6 then rotate = 1 end if val = Request.QueryString("value") if val = "" then val = 0 end if dep = Request.QueryString("deposit") if dep = "" then dep = 0 end if cb = Request.QueryString("checkbox") i = Request.QueryString("rate") if i = "" then i= 0.0001 end if y = Request.QueryString("term") if y = "" then y = 0 end if loan = val-dep for z= 1 to 2 m1(z) = ((i+z-1)/100)/12 am1(z) = ((i+z-1)/100) m2(z) = loan*m1(z) am2(z) = loan*am1(z) m4(z) = -1*y*12 am4(z) = -1*y m5(z) = m1(z)+1 am5(z) = am1(z)+1 m6(z) = Math.pow(m5(z), m4(z)) am6(z) = Math.pow(am5(z),am4(z)) m7(z) = 1-m6(z) am7(z) = 1-am6(z) daily(z) =m2(z)/m7(z) annual(z) =math.Round(am2(z)/am7(z)/12*100)/100 intonly(z) = math.Round(loan*(i+z-1)/12)/100 next diff = math.Round((annual(2)-annual(1))*100)/100 if cb <> "on" then if val<175001 then sd=0 End if if val >175000 then sd = val*0.01 End if if val >250000 then sd = val*0.03 End if if val >500000 then sd = val*0.04 End if else sd=0 End if val10 = (val * 0.9) val20 = (val * 0.8) if val10 < loan then equity10 = loan-val10 text1="If house prices fall 10% I will have "+FormatCurrency((equity10),0)+" of negative equity. What if I have to sell?" else equity10 = val10-loan text1="If house prices fall 10% my equity will be "+FormatCurrency((equity10),0) end if if val10 = loan then text1 = "Mortgage is the same value as my house. If prices fall further I will be in negative equity" End If if val20= loan then text2= "Mortgage is the same value as my house. If prices fall further I will be in negative equity" End If if val20 < loan then equity20 = loan-val20 text2="If house prices fall 20% I will have "+FormatCurrency((equity20),0)+" of negative equity. What if I have to sell?" else equity20 = val20-loan text2="If house prices fall 20% my equity will reduce to "+FormatCurrency((equity20),0) end if %> <% End if %>


Borrow:	<%response.write(FormatCurrency(loan,2))%>
Repayment Method:	<%response.write(FormatCurrency(annual(1),2))%> pm
Interest Only Method:	<%response.write(FormatCurrency(intonly(1),2))%> pm
Stamp duty is::	<%response.write(FormatCurrency(sd,2))%>

<% If Request.QueryString("Button1")<>"" and rotate = 1 then %>

If rates rise
by 1% monthly payments increase by <%response.write(FormatCurrency(diff,2))%> to <%response.write(FormatCurrency(annual(2),2))%>pm. Could I still afford it?

<% End if %> <% If Request.QueryString("Button1")<>"" and rotate = 2 then %>