<%
Randomize()
RandomSayi = Int (1000*Rnd)+1
strsql = "Select Top 5 Rnd(" & -1 * (RandomSayi) & "*id), id, adi, onay from partner order by 1"
Set rs = dbConn.Execute(strsql)
For i = 1 To 5
Response.write(rs("adi" ))
rs.Movenext
Next
rs.Close
Set rs = Nothing %>