<%
intLowerBound = 1 'seçilecek sayının alt sınırı
intUpperBound = 9 'seçilecek sayının üst sınırı
Randomize()
intRangeSize = intUpperBound - intLowerBound + 1
sngRandomValue = intRangeSize * Rnd()
sngRandomValue = sngRandomValue + intLowerBound
intRandomInteger = Int(sngRandomValue)
Response.Write intRandomInteger
%>