<%
Set Rawkmetal = Server.CreateObject("ADODB.Connection")
Rawkmetal.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="" & Server.MapPath("datamiz.mdb")
set Rawk = server.createobject("ADODB.Recordset")
sql = "select * from tabloAdi"
Rawk.open sql,Rawkmetal,1,3
Randomize
rastgele = Int((Rnd*Rawk.RecordCount)+0)
Rawk.Move(rastgele)
Response.write Rawk(""tabloismi"")
%>
bu kodu bir denermisin
ustad yapamıyorum :s benm kodlarım burda..
Alıntı
<%
set sonlar = Server.CreateObject("Adodb.Recordset")
sql = "select top 30 bolumler.*,diziler.* from bolumler INNER JOIN diziler ON bolumler.dizi_id=diziler.dizi_id 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)
%>
şu kodları editleyerek verirmisin?