Asp de random sayı

<%
Dim sayi
Randomize
sayi = int((Rnd * 20 )+1 )
response.write sayi
%>


Arkadaşlar yukarıdaki koda yardımcı olabilir misiniz, yapmak istediğim 50 ye kadar olan sayılar arasından tekrar etmeyecek şekilde random 20 sayı seçmek, yardımcı olur musnuz

hocam ben kendi mantığımla aşağıdaki şekilde yaptım
umarım anlaşılmıştır.

<%
dim sayi
Dim dizi(21)
randomize
sayac=0
sayi=1
do while sayac <= 20
sayi = int((Rnd * 50 )+1 )
e=1
for i=1 to sayac
if dizi(i)=sayi then
e=2
end if
next
if e=1 then
sayac=sayac+1
dizi(sayac)=sayi
end if
loop
for i = 1 to 20
response.write "<br>"
response.write dizi(i)
next
%>
isterseniz özelden mantığı açıklayabilirim.
denedim tam dediğiniz gibi 50 kadar 20 farklı sayı tutuyor ve ekrana yazıyor.
kolay gelsin.