<%
kayit = 0
topkayit = 20 'kaç kayıt listeleneceği

For i=0 to 100
If kayit = topkayit then exit for

Set ras2 = baglan.Execute("SELECT COUNT(id) AS say From Ilanlar where onay=1")
Toplam=ras2(0)
ras2.Close
Set ras2 = Nothing

Randomize Timer
rdizi = Int((Toplam * Rnd ) + 0)

If InStr(kayitlar,","&rdizi) > 0 then

For s=0 to topkayit
If InStr(kayitlar,","&yenidizi) > 0 then
yenidizi = Int((Toplam * Rnd ) + 1)
end if
next

else
yenidizi = rdizi
end if

kayitlar = kayitlar&","&yenidizi

Set rs = baglan.Execute("Select id,adi From Ilanlar where onay=1")

rs.Move(yenidizi)

if Not rs.Eof then
kayit = kayit+1
%>
<td width="20%" valign="top">
<%=left(rs("adi"),15)%></a>
</td>
<%if kayit mod 6=0 then %>
</tr><tr>
<%end if%>
<%
end if
Next
rs.close
set rs = Nothing
%>


Buyrun bu kodlar işinize yarar.