I make a month loan payment calculation script in ASP , but I want results appear below the form not in a new window screen , what to do ? How I include a file in asp ? I must have only one file ?
tell me for results get deleted and reappear new or results appear between form and last results for subsequent submissions ...?
form can be found at : http://www.kolectivavillas.com/papho.../loan_calc.htm
html doc
<% 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>
not sure I understand what you are asking but all you need is to print out the result of the calculation when the form is submitted.
Code:
display form here
</form>
<%
if request.form("submit") <> "" then
' print results here
end if
%>
rest of HTML code
__________________
Chris. ->> Links are advertising NOT optimising!! <<-
Indifference will be the downfall of mankind, but who cares? Code Samples | People Counting System
2/ this thread contradicts the one in the javascript forum.
__________________
Chris. ->> Links are advertising NOT optimising!! <<-
Indifference will be the downfall of mankind, but who cares? Code Samples | People Counting System
« Reply to month loan payment calculation in ASP-same window-results