<center>

<form method=”get” action=”islem.asp”>

<table border=”0&#8243; cellpadding=”2″ cellspacing=”2″>

<tr>

<td><b>Tek sayıların toplamı</b></td>

<td></td>

</tr>

<tr>

<td> Sayı : </td>

<td><input size=”5&#8243; type=”text” name=”number” value=”" /></td>

</tr>

<tr>

<td> </td>

<td> <input type=”submit” value=”HESAPLA” /> </td>

</tr>

</table>

</form>

 
<%

number1=Request.QueryString(“number”)

if IsNumeric(number1) and number1<>”" then

Response.Write “1′den “& xnumber &” sayısına kadar olan tek sayıların toplamı = ” & IslemYap(number1)

else

Response.Write “<b>Birden büyük bir sayı giriniz</b>”

end if

%>

</center>

 
<%

function IslemYap(byval xnumber)

dim temp

dim i

temp=0

if xnumber<1 then

temp=”Lütfen 1′den büyük bir sayı giriniz!”

else

for i=1 to xnumber

if (i mod 2 = 1) then

temp = temp + i

end if

next

end if

IslemYap = temp

end function

%>