| |
 |
|
 |
|
Debt Calculator

<% if Request.Form("Submit") = "" And Request.QueryString("Submit") = "" And Request.Form("Next1") = "" And Request.Form("Next2") = "" then %>
<% elseif Request.Form("Next1") = "Next" then %>
<% elseif Request.Form("Next2") = "Next" then %>
<%
'Response.write "Current Debt: [" & Request.Form("CurrentDebt") & "] "
pDebt = CLng(Request.Form("CurrentDebt"))
SavingsRatio = 20000 / 14029.92
NewDebt = pDebt / SavingsRatio
Savings = pDebt - NewDebt
OurTimeNeeded = 36
MonthlyPayment = NewDebt / 36
NoHelpDebt = pDebt
NoHelpMonthlyPayment = NoHelpDebt * .025
NoHelpInterestPaid = NoHelpDebt * .75
NoHelpTimeNeeded = 36 * 4
NoHelpNewDebt = NoHelpMonthlyPayment * 144
ConsumerCreditPay = (43200 / 20000) * pDebt
ConsumerCreditInterestPaid = pDebt * .25
ConsumerCreditMonthPay = pDebt * .03
ConsumerCreditNewDebt = ConsumerCreditMonthPay * 72
%>
<% end if %> |
|
 |
|
 |
|
|
|
 |