<%
sonsayi=100
a=0
for i=1 to sonsayi

if c>sonsayi then exit for

i=i-1
d=0
for bh=1 to a+1
c=i+bh
if c>sonsayi then exit for

if c<10 then
response.write "0" & c & "&nbsp;-&nbsp;"
else
response.write c & "&nbsp;-&nbsp;"
end if
next
i=c
a=a+1
response.write "<br>"
next
%>