<%
Dim anaPara, yillikFaiz, vade, toplamFaiz, toplamTutar
anaPara = CDbl(Request.Form("anaPara"))
yillikFaiz = CDbl(Request.Form("yillikFaiz"))
vade = CDbl(Request.Form("vade"))
toplamFaiz = (anaPara * yillikFaiz * vade) / 100
toplamTutar = anaPara + toplamFaiz
%>
<!DOCTYPE html>
<html>
<head>
<title>Faiz Hesaplama</title>
</head>
<body>
<h1>Faiz Hesaplama</h1>
<form method="post">
<label>Ana Para:</label>
<input type="text" name="anaPara"><br>
<label>Yıllık Faiz Oranı:</label>
<input type="text" name="yillikFaiz"><br>
<label>Vade (yıl):</label>
<input type="text" name="vade"><br>
<input type="submit" value="Hesapla">
</form>
<%
If Request.Form("anaPara") <> "" And Request.Form("yillikFaiz") <> "" And Request.Form("vade") <> "" Then
%>
<h2>Sonuçlar:</h2>
<p>Toplam Faiz: <%= FormatCurrency(toplamFaiz) %></p>
<p>Toplam Tutar: <%= FormatCurrency(toplamTutar) %></p>
<%
End If
%>
</body>
</html>