Tilfældige tal i ASP

Hej
Jeg har et problem med tilfældige tal i et array.
jeg har lavet flg. stump i ASP

<%
RANDOMIZE
dim strNumberArray()
dim randomNr, check, counter1, counter2, tester

redim strNumberArray(1)
randomNr = INT((10)*RND())
strNumberArray(0) = randomNr
AddArray = 1
counter = 0

while (UBound(strNumberArray) < 4)

    check = "ok"
    randomNr = INT((10)*RND())
    for i = 0 to UBound(strNumberArray)
        if randomNr = strNumberArray(i) then
            check = "fail"
        end if
    Next

    if NOT check = "fail" then
        AddArray = AddArray + 1
        redim strNumberArray(AddArray)
        strNumberArray(counter) = randomNr
        counter = counter + 1
    end if
Wend
%>


Det som scriptet skal gøre er at vælge 3 tilfældige tal mellem 0 og 10 og smide dem ind i en array på 3 pladser,
tallene SKAL være forskellige i arrayet. Jeg ville mene koden burde virke men det gør det ikke.
Tallene kan resikere at blive ens, samt hvis jeg skriver arrayet ud efter while løkken, er tallene faktisk glemt pånær
det tal der står på plads nr 3.

jeg har checket efter og lavet næsten samme kode i c# for at se om det var koden der fejlede (i c# brugte jeg godt nok en arraylist) og der virkede det fint.

Er der nogle der har en ide til en anden måde som jeg kan lave det på i ASP så det virker?