Mysql Rastgele veri çekme hatası :S Yardım

03-12-2010, 23:27:35

Mysql veritabanından rastgele 10 veriyi çekmek istiyorum ama hata veriyor. Aşağıdaki kodlar acsess veritanında çalışıyor ama mysql de hata veriyor sizce sorun nerede? Yardımlarınız bekliyorum.... Teşekkürlerrr...

<% 
dim i
For i=1 to 10


Set gor = Server.CreateObject("ADODB.Recordset")
sor = "Select * from tblHaberler order by haberID Desc"
gor.Open sor,adoCon,1,3

Randomize
rastgele = Int((kdGenel.RecordCount * Rnd)+ 0)
Randomize
fontbuyukluk=  Int((5 * Rnd)+ 1)

' select a random number between one and five 
randomize
g_random=int(rnd*13)+1
select case g_random
case "1"
 color ="#FF0000"
case "2"
 color ="#3CB32F"
case "3"
 color ="#8689F2"
case "4"
 color ="#0000C0"
 case "5"
 color ="#000000"
 case "6"
 color ="#FF40FF"
 case "7"
 color ="#FF0000"
 case "8"
 color ="#C0C000"
 case "9"
 color ="#65A1A3"
 case "10"
 color ="#004000"
 case "11"
 color ="#800080"
 case "12"
 color ="#7754C8"
case else
color ="#8374DC"
end select
kdGenel.Move(rastgele)
%>
<a href="<%=LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori")))%>"><font face="Arial" size="<%=fontbuyukluk%>" color=<%=color%>><%=kdgenel("baslik")%> </font></a>
 <% next 
kdgenel.Close
Set kdgenel = Nothing
%>

04-12-2010, 01:32:29

#2

~~ShekerChi~~

Üyeliği durduruldu

sadece
sor = "Select * from tblHaberler order by RAND() LIMIT 10"

04-12-2010, 14:39:36

#3

bekhan

Teşekkürler verdiğiniz bilgi doğrultusunda kodları aşağıdaki gibi düzenledim ama yine çalışmadı. Sizce sorun nerede?

<% 
dim i
For i=1 to 10


Set gor = Server.CreateObject("ADODB.Recordset")
sor = "Select * from tblHaberler order by RAND() LIMIT 10"
gor.Open sor,adoCon,1,3

Randomize
rastgele = Int((kdGenel.RecordCount * Rnd)+ 0)
Randomize
fontbuyukluk=  Int((5 * Rnd)+ 1)

' select a random number between one and five 
randomize
g_random=int(rnd*13)+1
select case g_random
case "1"
 color ="#FF0000"
case "2"
 color ="#3CB32F"
case "3"
 color ="#8689F2"
case "4"
 color ="#0000C0"
 case "5"
 color ="#000000"
 case "6"
 color ="#FF40FF"
 case "7"
 color ="#FF0000"
 case "8"
 color ="#C0C000"
 case "9"
 color ="#65A1A3"
 case "10"
 color ="#004000"
 case "11"
 color ="#800080"
 case "12"
 color ="#7754C8"
case else
color ="#8374DC"
end select
kdGenel.Move(rastgele)
%>
<a href="<%=LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori")))%>"><font face="Arial" size="<%=fontbuyukluk%>" color=<%=color%>><%=kdgenel("baslik")%> </font></a>
 <% next 
kdgenel.Close
Set kdgenel = Nothing
%>

04-12-2010, 15:19:29

#4

bekhan

Aşağıdaki kodu başka bir bölüm kullanıyorum çok güzel çalışıyor. Ama rastgele veri çekmekte sorun yağıyorum:S

	<%
	kdMenu.Open "SELECT * FROM tblVKategoriler ORDER BY sira ASC, Kategori ASC", adoCon, 1, 3
	If Not kdMenu.Eof Then
		Do While Not kdMenu.Eof %>
			<li><a href="<%=LinkVer("videolar", kdMenu("VKat_ID"), "1", kdMenu("Kategori"))%>"><%=kdMenu("Kategori")%></a></li><%
			kdMenu.Movenext
		Loop
	End If
	kdMenu.Close %>

04-12-2010, 16:14:30

#5

~~CrimaL~~

Üyeliği durduruldu

hata mı veriyor hata veriyorsa hata ve satırı ney hata vermiyor ise işlem olarak ne yapıyor ?

05-12-2010, 13:53:42

#6

bekhan

Aldığım hata:

ADODB.Recordset error '800a0e78'

Operation is not allowed when the object is closed.

/bloklar/bulut.asp, line 11

Kullandığım kod:

<% 
dim i
For i=1 to 10


Set gor = Server.CreateObject("ADODB.Recordset")
sor = "Select * from tblHaberler order by RAND() LIMIT 10"
gor.Open sor,adoCon,1,3

Randomize
rastgele = Int((kdGenel.RecordCount * Rnd)+ 0)
Randomize
fontbuyukluk=  Int((5 * Rnd)+ 1)

' select a random number between one and five 
randomize
g_random=int(rnd*13)+1
select case g_random
case "1"
 color ="#FF0000"
case "2"
 color ="#3CB32F"
case "3"
 color ="#8689F2"
case "4"
 color ="#0000C0"
 case "5"
 color ="#000000"
 case "6"
 color ="#FF40FF"
 case "7"
 color ="#FF0000"
 case "8"
 color ="#C0C000"
 case "9"
 color ="#65A1A3"
 case "10"
 color ="#004000"
 case "11"
 color ="#800080"
 case "12"
 color ="#7754C8"
case else
color ="#8374DC"
end select
kdGenel.Move(rastgele)
%>
<a href="<%=LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori")))%>"><font face="Arial" size="<%=fontbuyukluk%>" color=<%=color%>><%=kdgenel("baslik")%> </font></a>
 <% next 
kdgenel.Close
Set kdgenel = Nothing
%>

Yardımlarınız için çok çok teşekkür ederim...

05-12-2010, 20:56:46

#7

bekhan

Çözüm yok mu arkadaşlar, nasıl bi kod ki çözemedik :S Yardım eden arkadaşlara tekrar teşekkürler, bu işten vaz geçmek zorunda kalacaz sanırım :S

06-12-2010, 00:32:24

#8

~~WebScriptleri~~

Üyeliği durduruldu

kdgenel.recordcount
bunu kapatmış olmayasın ?

06-12-2010, 01:04:51

#9

bekhan

Teşekkürler sorunu şuan hali hazırda kullandığım bir kodu düzenleyerek çözdüm. O kod accesten başka yerde çalışmıyor :S araştırma sonuc nerede hata yaptığımı buldum. Yardımcı olan arkadaşlara çok Teşekkürlerr...