Asp'de birden girilen sayıya kadarki tek sayıların toplamı

Birden girilen sayıya kadar olan tek sayıların toplamını for döngüsü ile yapacaz arkadaşlar.  Aşağıdaki kodları process.asp şeklinde kaydedin ve sayfayı çağırın. Metin alanına 1′den büyük bir sayı girin. Girdiğiniz sayı örneğin 5 ise, sonuç 1+3+5 = 9 olacaktır.
<center>
<form method=”get” action=”process.asp”>
<table border=”0″ 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″ 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
%>
aspkodlari.com alıntıdır.