Extract Icons
Extract and save Icons from dlls, ans exe files. I used an example found on AllApi.net
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source Code
Upload
<%@LANGUAGE="VBSCRIPT"%>
<!--
####################################################################
# AUTHOR: Rob Swiger
# EMAIL : rswiger@infinidev.com
# URL : http://www.infinidev.com
#
# AMORTIZATION CALCULATOR
# Calculates loan payments over a period of time with principle
# and APR. Includes form.
#
# COPYRIGHT AND DISTRIBUTION INFORMATION
# This code is free to use and distribute as needed for non-profit
# and for-profit uses. Please leave the above information in tact
# when using this code. An email letting me know would be nice also
# just to let me know how many people are using it.
#
# WARRANTY INFORMATION
# There are no warranties with this code. Please test it on your
# server before deploying live. The author, nor infinidev, llc,
# will be held accountable for any problems that may occur.
#
# SUPPORT INFORMATION
# I do not offer support for this code, but if you send an email
# to the above email address, I will do my best to answer any
# questions you may have about the code free of charge.
#
# VERSION INFORMATION
# Version 1.0
# January 13, 2003
#
# NOTES AND RAMBLINGS
# One addition that might be helpful is to write Javascript code
# to check the values of the fields as the information is added.
# I did not include this information because I did not want to
# limit the code browser-wise because of spotty Javascript support.
####################################################################
-->
<%
dim intAmount 'Amount of loan; priciple.
dim intInterest 'Amount of interest in %.
dim intPayment 'Monthly payment amount.
dim intLength 'Length of loan.
dim intTotInterest 'Total interest paid over length of loan.
%>
<html>
<head>
<title>infinidev.com - Amortization Calculator</title>
</head>
<body>
<%
'Check to see if form has been submitted.
if len(request.form("isSub")) > 0 then
'Check if all fields have information entered
if len(request.form("amount")) > 0 and len(request.form("interest")) > 0 and len(request.form("length")) > 0 then
'Populate amount variable with amount field from form.
intAmount = request.form("amount")
'Populate interest variable by using interest form field divided by
'100 to make decimal (7% / 100 = 0.07), then divide by 12 for monthly interest.
intInterest = (request.form("interest") / 100) / 12
'Populate length of loan variable by taking length from form field (in years)
'and dividing by 12 to get total months.
intLength = request.form("length") * 12
'Calculate payments and round off to 2 decimal places. ($100.00)
intPayment = round(intAmount * intInterest/(1 - (1 + intInterest) ^ (-intLength)),2)
'Covert integer to US currency format.
intPayment = formatcurrency(intPayment,2)
'Calculate total interest paid over length of loan.
intTotInterest = round((intPayment * intLength) - intAmount,2)
'Covert integer to US currency format.
intTotInterest = formatcurrency(intTotInterest,2)
else
'Alert user that all boxes must be filled in.
response.write("ALL BOXES must be filled in!")
end if
end if
%>
<h1>Loan Amortization Calculator</h1>
<hr color="#000000">
<br>
<table align="center" style="border:1px solid #000000;padding-left:3px;padding-right:3px;padding-top:3px;padding-bottom:3px;">
<form id="loan" name="loan" action="a_calculator.asp" method="post">
<input name="isSub" type="hidden" value="yes">
<tr>
<td align="right" >Amount of Loan (in US dollars):</td>
<td> <input name="amount" type="text" id="amount" value="<%=request.form("amount")%>"></td>
</tr>
<tr>
<td align="right">Annual Interest Rate (%):</td>
<td><input name="interest" type="text" id="interest" value="<%=request.form("interest")%>"></td>
</tr>
<tr>
<td align="right">Term of Loan (in years):</td>
<td><input name="length" type="text" id="length" value="<%=request.form("length")%>"></td>
</tr>
<tr>
<td colspan="2" align="center" >
<input type="submit" name="Submit" value="Find Monthly Payment!"></td>
</tr>
</form>
</table>
<%
if len(intPayment) > 0 then
response.write("<br>")
response.write("<table border='0' width='400' align='center'><tr><td align='center'><p><b>")
response.write("Your monthly loan payment will be:<br>")
response.write("<font color='#CC0000' size='5'>")
response.write(intPayment & "</font></b></p>")
response.write("<p><b>Your total interest will be:<br>")
response.write("<font color='#CC0000' size='5'>")
response.write(intTotInterest & "</font></b></p>")
response.write("</td></tr></table>")
end if
%>
</table>
<br>
<hr color="#000000">
<p align="center">Calculator provided free by:<br>
<a href="http://www.infinidev.com">infinidev, llc</a></p>
</body>
</html>
Original Comments (3)
Recovered from Wayback Machine