<% 
Dim tahmin(10)
For i=0 to 9
Randomize()
tahmin(i) = Int(Rnd * 80) + 1
Next
For i = 1 To 9
Do
Randomize()
tahmin(i) = Int(Rnd * 80) + 1 
Ktrl = True
For j = 0 To i - 1
If (tahmin(i) = tahmin(j)) Then 
Ktrl = False
Exit For
End If
Next
Loop Until Ktrl
Next
For i = 0 To 9
For j = 0 To 8
If (tahmin(j) > tahmin(j + 1)) Then
tahminn = tahmin(j)
tahmin(j) = tahmin(j + 1)
tahmin(j + 1) = tahminn
End If
Next
Next 
For k = 0 to 9
Response.Write tahmin(k) & " "
Next
%>