Arkadaslar 1 den 8 e kadar olan sayilari rastgele sectirme ile ayni sayi tekrar gelmemek kosulu ile ornekteki gibi sectirmek istiyorum,asagida gonderdigim kodda bunu yapmiyor,ben 2 gundur nedinini arastiriyorum fakat bulamadim,
alternatif yollar aramiyorum,asagidaki kodu duzeltmem lazim cunku sitemdeki mantik bu,bu sadece deneme yapabilmek icin basite indirgenmis hali.

<%
dim dizi(10)
for m=1 to 10
dizi(m)=0
next
for i=1 to 8
sanslikisi=kura
response.write "sanslikisi= " & sanslikisi %><br><%
dizi(i)=sanslikisi
next
%>

<%
function kura
tutkura=kuracek
response.write "fonksiyona gelen tutkura= " & tutkura %><br><%
for k=1 to 8
if dizi(k)=tutkura then
response.write "ayni geldi " & tutkura %><br><%
kura
end if
next
response.write "ayni gelmedi " & tutkura %><br><%
kura = tutkura
end function
%>

<%
function kuracek
randomize
max=8
min=1
sayi=Int((max-min+1)*Rnd+min)
response.write "kuracek= " & sayi %><br><%
kuracek= sayi
end function
%>

<br>dizinin sonucu<br>
<%
for u=1 to 8
response.write dizi(u)%><br><%
next
%>