<%
Set bag = Server.CreateObject("ADODB.Connection")
bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DATABASE.mdb")
Set maniak = bag.Execute("SELECT TOP 8 * FROM TABLOİSMİ order by Rnd(-(1000*id)*Time())")
If maniak.EOF Then
response.Write("veri yok")
Else
while not rs.EOF
%> 
<%=maniak("VERİ")%>
<%
maniak.Movenext
Wend
maniak.Close()
Set maniak = Nothing
End If
%>