Dim i,num,ary(15)
Randomize()

for i = 0 to 14
num = int(rnd*29)+1
do while numInAry(num,ary)
num = int(rnd*29)+1
loop
ary(i) = num

Response.write i & "-" & ary(i) & "<br>"
next

function numInAry(num,ary)
 Dim i
 for i = lbound(ary) to Ubound(ary)
 if num = ary(i) then
 numInAry = true
 exit function
 end if
 next
 numInAry = false
End function