form can be found at : http://www.kolectivavillas.com...n_calc.htm
html doc
Code:
<HTML><HEAD>
<TITLE>Monthly Payment</TITLE>
</HEAD>
<BODY>
<H1 align="center">Monthly Loan Payment Calculation</H1>
<P ALIGN=center>This application calculates monthly payment options for <br>
a loan
based on the amount borrowed and an interest rate.<table width="400" align="center">
<tr><td width="434"><FORM ACTION="MonthlyPayments.asp" METHOD=POST>
<TABLE WIDTH=94% ALIGN=center BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR>
<TD width="199"> </TD>
<TD width="192"> </TD>
</TR>
<TR>
<TD>Amount to Borrow(CY£):</TD>
<TD><input type="text" name=txtLoanLow size=15></TD>
</TR>
<TR>
<TD>Annual Interest Rate(%):</TD>
<TD><INPUT TYPE="text" NAME=txtRateLow SIZE=10>
</TD>
</TR>
<TR>
<TD>Number of Years:</TD>
<TD><INPUT TYPE="text" NAME=txtYears SIZE=10></TD></TR>
<TR>
<TD COLSPAN=2 ALIGN=center>
<INPUT TYPE="submit" VALUE="Submit">
<INPUT TYPE="reset" VALUE="Reset">
</TD></TR>
</TABLE>
</FORM></td></tr></table>
<p> </p>
</BODY>
</HTML>
asp doc
Code:
<% option explicit
dim dblLoanLow, dblRateLow, dblYears
dim dblRateLow1
dim dblPayment, dblMonthlyRate, dblMonths
dim intErrCnt
intErrCnt = 0 %>
<HTML>
<HEAD>
<TITLE>MonthlyPayments.asp</TITLE>
<style type="text/css">
<!--
.style2 {
font-family: Arial, Helvetica, sans-serif;
font-weight: bold;
}
.style3 {
color: #FF0000;
font-family: Arial, Helvetica, sans-serif;
font-size: 16px;
font-style: normal;
font-weight: bold;
}
-->
</style>
</HEAD>
<%
' validate lower limit of loan amount
if(not(isNumeric(Request.Form("txtLoanLow")))) then
Response.Write "The amount borrowed must be numeric.<BR>"
intErrCnt = intErrCnt + 1 %>
<input name="button" type="button" onclick="history.go(-1)" value="Back"><%
else
dblLoanLow = CDbl(Request.Form("txtLoanLow"))
if(dblLoanLow < 0) then
Response.Write "The loan amount must be a positive number.<BR>"
intErrCnt = intErrCnt + 1%>
<input name="button" type="button" onclick="history.go(-1)" value="Back"><%
end if
end if
' now validate the interest rates
if(not(isNumeric(Request.Form("txtRateLow")))) then
Response.Write "The interest rate must be numeric.<BR>"
intErrCnt = intErrCnt + 1%>
<input name="button" type="button" onclick="history.go(-1)" value="Back"><%
else
dblRateLow = CDbl(Request.Form("txtRateLow"))
if(dblRateLow < 1 OR dblRateLow > 100) then
' make sure it was entered as a percentage, not a decimal number
Response.Write "The interest rate should be entered as a percentage, without the % sign.<BR>"
intErrCnt = intErrCnt + 1%>
<input name="button" type="button" onclick="history.go(-1)" value="Back"><%
end if
end if
' now convert the rate to a decimal number
dblRateLow1 = dblRateLow / 100.0
if(not(isNumeric(Request.Form("txtYears")))) then
Response.Write "The number of years must be numeric not negative.<BR>"
intErrCnt = intErrCnt + 1%>
<input name="button" type="button" onclick="history.go(-1)" value="Back"><%
else
dblYears = CDbl(Request.Form("txtYears"))
' now convert it to the number of monthly periods
dblMonths = dblYears * 12.0
end if
if(intErrCnt > 0) then
Response.Write "<BR>Please press the BACK button fix any errors and re-submit."
Response.End
end if
%>
<BODY>
<table width="400" align="center">
<tr><td>
<H1 align="center">Monthly Payment</H1>
<span class="style2">Amount to Borrow(CY£):</span> <span class="style3"><%= dblLoanLow %><br>
</span><span class="style2"> Length of loan: </span><span class="style3"><%= dblYears %> years<br>
</span><span class="style2"> Annual Interest Rate(%): </span><span class="style3"><%= dblRateLow %><br>
</span><span class="style2"><br>
<%
dblMonthlyRate = dblRateLow1 / 12.0
dblMonths = dblYears * 12
dblPayment = dblLoanLow /((1 - 1 / (1 + dblMonthlyRate)^dblMonths)/dblMonthlyRate) %>
<br>
Monthly Payment(CY£):<span class="style3"> <%= FormatNumber(dblPayment,2,0,0,-2) %>
</span></span>
<P>
</td></tr>
</table>
<p align="center"><font face="Arial">
<input name="button" type="button" onclick="history.go(-1)" value="Back">
</font></p>
</BODY>
</HTML>
