Bu koddan nasıl rastgele veri çekerim

<%
set sonlar = Server.CreateObject("Adodb.Recordset")
sql = "select top 30 bolumler.*,diziler.* from bolumler INNER JOIN diziler ON bolumler.dizi_id=diziler.dizi_id where bolum_adi like '%"&aranan&"%' or bolum_aciklama like '%"&aranan&"%' or keywords like '%"&aranan&"%' order by bolum_id desc"
sonlar.open sql,baglanti,1,3
i = 1
do while not sonlar.eof
set yorumsay=Server.CreateObject("Adodb.Recordset")
sql = "select yorum_id from yorumlar where bolum_id="&sonlar("bolum_id")&""
yorumsay.open sql,baglanti,1,3
yorumsayisi=yorumsay.recordcount
Kapat(yorumsay)

set partlar = Server.CreateObject("Adodb.Recordset")
sql = "select * from partlar where bolum_id="&sonlar("bolum_id")&""
partlar.open sql,baglanti,1,3

resimkodu=sonlar("dizi_img")
if partlar.eof then
resimkodlari=resimkodu
end if
do while not partlar.eof
if resimkodlari="" then
resimkodlari=partlar("part_kodu")
if resimkodlari="" then
resimkodlari=sonlar("dizi_img")
ytimg="yok"
end if
resimkodu=resimkodlari
else
if partlar("part_kodu")<>"" then
resimkodlari=resimkodlari&","&partlar("part_kodu")
end if
end if
partlar.movenext
loop
Kapat(partlar)
%>

bu yukarda ki, koddan nasıl rastgele veri çekerim

<%
set sonlar = Server.CreateObject("Adodb.Recordset")
sql = "select top 30 bolumler.*,diziler.* from bolumler INNER JOIN diziler ON bolumler.dizi_id=diziler.dizi_id where bolum_adi like '%"&aranan&"%' or bolum_aciklama like '%"&aranan&"%' or keywords like '%"&aranan&"%' order by rand()"
sonlar.open sql,baglanti,1,3
i = 1
do while not sonlar.eof

'// sayi al
set ysbul = baglanti.execute("select count(yorum_id) as yorumlar from yorumlar where bolum_id="&sonlar("bolum_id")&"")
yorumsayisi=formatnumber(ysbul("yorumlar"),0)
ysbul.close:set ysbul=nothing
'// sayi alindi

set partlar = Server.CreateObject("Adodb.Recordset")
sql = "select * from partlar where bolum_id="&sonlar("bolum_id")&""
partlar.open sql,baglanti,1,3
resimkodu=sonlar("dizi_img")
if partlar.eof then
resimkodlari=resimkodu
end if
do while not partlar.eof
if resimkodlari="" then
resimkodlari=partlar("part_kodu")
if resimkodlari="" then
resimkodlari=sonlar("dizi_img")
ytimg="yok"
end if
resimkodu=resimkodlari
else
if partlar("part_kodu")<>"" then
resimkodlari=resimkodlari&","&partlar("part_kodu")
end if
end if
partlar.movenext
loop
Kapat(partlar)
%>

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request. Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.
More information about this error may be available in the server error log.



böle hata verdi

Custom error'u kapatırsan pleskten daha iyi anlarız neyden kaynaklandığını hatanın.

sql bölümlerinin sonuna order by rand() yaz