<%
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 %>
Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.