randomize, uden de samme tal

har problemer med at den kører i et uendeligt loop, kan i give mig et råd om hvad og hvor fejlen er.
Denne her skal kunne udvælge 9 tal, 7 rigtige og 2 tillægstal, i et Lotto system.



<%

dim Randnum(9)
Randomize

for i=1 to 9

Randnum(i) = Int(Rnd * 36) +1 
check = Randnum(i)
call ifens

next


'- Tjekker for ens tal
sub ifens
    do while t < 10
    if check = Randnum(t) then
    Randnum(i) = Int(Rnd * 36) +1
    check = Randnum(i)
    t = 0
    else
    end if
    t = t+1
    response.write t
    loop
end sub




%>

<%
response.write Randnum(1) & "&nbsp;&nbsp;" & Randnum(2) & "&nbsp;&nbsp;"
response.write Randnum(3) & "&nbsp;&nbsp;" & Randnum(4) & "&nbsp;&nbsp;"
response.write Randnum(5) & "&nbsp;&nbsp;" & Randnum(6) & "&nbsp;&nbsp;"
response.write Randnum(7) & "&nbsp;&nbsp;<b>" & Randnum(8) & "&nbsp;&nbsp;"
response.write Randnum(9) & "</b>"


%>