<%
Set rsurun = Server.CreateObject("ADODB.Recordset")
rsurun.open "Select * from urun where vitrin = 'Evet' order by urunid desc" ,baglan,1,3
if rsurun.eof then
response.write "kayıt yok"
else
Randomize
rastgele = Int((Rnd*rsurun.RecordCount)+0)
rsurun.Move(rastgele)
end if%>

bu şekilde sorunsuz çalışacaktır..