<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>Faktoriyel</title>
</head>
<body>
<form method="POST" action="?">
<p><input type="text" name="sayi" size="20"><input type="submit" value="Hesapla" name="gonder"><input type="reset" value="Sıfırla" name="B2"></p>
</form>
<%
If Request("gonder") <> "" Then
Sayimiz=Request.Form("sayi")
If Sayimiz <> "" AND Isnumeric(Sayimiz)=True Then
Baslama="1"
For hesap = 1 TO Sayimiz
Baslama= hesap*Baslama
NExt
Response.Write (" "&Sayimiz&" sayısının Faktorieli = <strong> "&Baslama&" </strong> ")
Else
Response.Write ("Sayısal Bir Değer Giriniz")
End if
End if
%>
</body>
</html>