<%
                        set rs = server.createobject("ADODB.Recordset")
                        rs.open "SELECT * from videolar order by hit desc",baglan,1,3
                        
                        randomize
                        
                        rs.move (rs.recordcount-5)*rnd
                        for z=1 to 5
                        if rs.eof then exit for
                        %>

<%=rs("hit")%>

<%
 rs.movenext : next
rs.close : set rs = nothing
 %>