<%@ LANGUAGE="vbscript" %> <% Response.Buffer = True %> <% Response.Clear %> <%'%> <%'%> <% 'Get Browser Info and clear variables Set bc = Server.CreateObject("MSWC.BrowserType") Session("Browser") = bc.browser & " " & bc.version 'Function Hits(ThisPage, URLRoot) ' - Adds This Page to the Database for Visitors ''Hits "Calculator", "http://www.evantageone.com" %> <%'%> <% 'If 1=2 Then 'Function GetCounter() 'Set rs = Conn.Execute("Select * from Configuration where Description = 'Visitor Count'") '' Increment Counter 'GetCounter = FormatNumber(CLng(rs("Settings")),0) 'X = CLng(rs("Settings")) + 1 'sqltext = "UPDATE Configuration SET Settings = '" & X & "' WHERE Description = 'Visitor Count'" 'Conn.Execute(sqltext) 'rs.Close 'SET rs = Nothing 'End Function 'End If '****************************************************** 'Session("Visitor") = GetCounter() 'response.write "HERE" 'response.end %> Rick's Loan Calculator

Enter Loan Information:
01)	Amount of the loan (any currency):
02)	Annual percentage rate of interest:	%
03)	Repayment period in years:
Payment Information:
04)	Your monthly (PI) payment will be:
05)	Your total payment will be:
06)	Your total interest payments will be:
07)	PI (Principal & Interest):
08)	Amount of Taxes (Annually):
09)	Amount of Insurance (Annually):
10)	Miscellaneous (Monthly):
11)	Monthly GRAND TOTAL:
12)	Bi Monthly Payment: