access rastgele veri - Sayfa 2

04-06-2009, 20:02:21

#10

~~Erol~~

Üyeliği durduruldu

Microsoft VBScript compilation error '800a040e'
'loop' without 'do'
/dizilerim.asp, line 166
loop
^

hata budur

04-06-2009, 21:14:18

#11

HayroLa

nasıl yapamazsın yaw kim diyor :@ şuan dışardayım evde olsaydım gonderirdin dosyayı yapardım geceye kadar yapamazsan pm atman yeterli

04-06-2009, 21:15:18

#12

~~Erol~~

Üyeliği durduruldu

HayroLa adlı üyeden alıntı: mesajı görüntüle

nasıl yapamazsın yaw kim diyor :@ şuan dışardayım evde olsaydım gonderirdin dosyayı yapardım geceye kadar yapamazsan pm atman yeterli

ben sana atayım şimdi dosyayı ?

04-06-2009, 21:18:46

#13

HayroLa

at dosyayı bakalim

Fark etmez

gece gelince bakarim

04-06-2009, 21:20:05

#14

HayroLa

<%
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

04-06-2009, 21:22:02

#15

~~Erol~~

Üyeliği durduruldu

HayroLa adlı üyeden alıntı: mesajı görüntüle

<%
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?

04-06-2009, 21:32:01

#16

HayroLa

Alıntı

<%
set rastgele = server.createobject("ADODB.Recordset")
sql = "select * from diziler"
rastgele.open sql,baglanti,1,3
Randomize
rastgele = Int((Rnd*rastgele.RecordCount)+0)
rastgele.Move(rastgele)
<%=rastgele("diziadı")%>
%>

hocam bu kodları yerleştirmek istedigin yere yerleştirirmsin.Şuan dışarda olduğum için deneme imkanim yok

04-06-2009, 21:36:18

#17

~~Erol~~

Üyeliği durduruldu

malesef olmadi.

05-06-2009, 01:07:11

#18

maniakcoder

<%
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
%>

DATABASE, TABLOİSMİ ve VERİ yazan kısımları kendine göre ayarla..