Asp & MysqL Sütun Rakamsal Değer Toplamı

<% 
set nesne  = db.execute("select count(filmid) as ty from yorum where filmid=&id")
if not nesne.eof or nesne.bof then

response.write("Yorum Yapılmamış")

toplamyorumsayisi=formatnumber(nesne("ty"),0)
%>
<%
end if
nesne.close : set nesne=Nothing
%>

şu linke tıkladıgımda : siteadi.com/izle.asp?id=1

istiyorum ki yukardaki kod ile yorum tablosuna bağlansın, yorum tablosundaki belli bir filmin id'sine yazılmış olan tüm yorumları toplayıp rakamsal değerini yansıtsın,

yani filmi izlemek icin girdiğim sayfada;

filmin bilgileri bölümünde , Mesela " 3 yorum yapılmış" demesini istiyorum sanırım yukardaki kod bunu sağlıyor ama sorgulama da mı bir hata yapıyorum bilmiyorum ..


Not: Bu kod ile sayfa hata vermiyor, sadece " Yorum Yapılmamış " yazıyor. acaba filmin id'sini koda yansıtamıyormuyum lütfen yardımcı olurmusunuz. Teşekkürler şimdiden

<%
ID=Request.QueryString("ID")
Set rs=Baglanti.Execute("SELECT Count(*) As Toplam FROM yorum WHERE filmid="&ID&" ")
If Not rs.Eof Then
Response.write "Bu filmi "&rs("Toplam")&" Kişi izlemiş."
End If
rs.Close : Set rs=Nothing
%>

Uyarla ve dene bakalım

Çok teşekkür ederim, Oldu.

Fakat Şu var, ben kategorilerde filmleri sıralarken yine film değişkenlerini gösteriyorum. kategori görüntülerken filmler sıralandıgında filmlerin yine bilgileride yer alıcak oradada yorum sayısı belirtmek istiyorum fakat Kategorinin id'ini aldıgı icin yine 0 yorum yapılmış olarak gösteriyor, yani katid bölümünde arıyor, ben yine istiyorum ki kategorilerde sıralattıgım filmlerin bilgilerindede yorum sayıları yer alsın. bunu nasıl çözümleyebilirim. yani tıkandığım noktalardan biriside bu.

yardımların için teşekkür ederim, büyük bi dertten kurtardın beni çok saol. üstteki konu için bir fikrin var mı peki hocam?


+rep

<%
KatID=Request.QueryString("KatID")

Set Filmler=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM filmler WHERE kategori="&KatID&" "
Filmler.Open sql,Baglanti,1,3
If Not Filmler.Eof Then
Do While Not Filmler.Eof

FilmID=Filmler("id")

Set rs=Baglanti.Execute("SELECT Count(*) As Toplam FROM yorum WHERE filmid="&FilmID&" ")

Response.Write Filmler("baslik") &" ( Yorum Sayısı: "&rs("Toplam")&" ) "


Filmler.MoveNext : Loop
End If
Filmler.Close : Set Filmler=Nothing

%>

queryden kategorinin id sini çektim.
o kategoriye ait filmleri sıraladım.
sıralanan filmlerin id sini aldım ve yorum tablosunda o filmlerin id sini kontrol ettim.
son olarak da filmin başlığını yazdım ve yanına da parantez içinde yorum sayısını yazdırdım.

anlamışsındır umarım

Hocam seni anladım da neden se bi türlü oturtamadım bu şekilde. benim kendi kategori listelediğim kodlar ve değişkenler şunlar;

Kategori görüntülemek içinse link;

siteadi.com/film_kategori.asp?id=3&falan-filan-kategorisi

film_kategori.asp sayfasında ki kodlar;

<!--#include file="emobag.asp"-->

<%
id = Request.QueryString("id")
set veri = db.execute("select * from film where KatID="&id)
%>
<%
if veri.eof then
response.write("Bu Kategoriye Ait Film Bulunamadı")
%>
<%else%>


<h2 
class="contentheading">
	<a title="<%=veri("filmadi")%>-<%=veri("dil")%>" href="http://www.siteadi.com/film-izle.asp?id=<%=veri("filmid")%>&<%=veri("filmadi")%>-<%=veri("dil")%>">
	<%=veri("filmadi")%></a></h2></div><a title="<%=veri("filmadi")%>-<%=veri("dil")%>"
href="http://www.siteadi.com/film-izle.asp?id=<%=veri("filmid")%>&<%=veri("filmadi")%>-<%=veri("dil")%>" target="blank">
				<img 
src="fresim/<%=veri("resim")%>" alt="<%=veri("filmadi")%>-" 
class="ca_img" border="0" width="348" height="358"></a>
<p><span style="font-size: 12px">
<font color="#EE3C00"><strong>Tür:</strong></font> 
<font color="#F0F0F0"><strong>sdfsdfsdf</strong></font><p></p>
<font color="#EE3C00"><strong>Yapım:</strong></font>
<font color="#F0F0F0"><strong><%=veri("yapim")%></strong></font><p></p>
<font color="#EE3C00"><strong>IMDB Puanı:</strong></font>
<font color="#F0F0F0"><strong><%=veri("imdb")%></strong></font><p></p>
<font color="#EE3C00"><strong>Gösterim:</strong></font> 
<font color="#F0F0F0"><strong><%=veri("gosterim")%></strong></font><p></p>
<font color="#EE3C00"><strong>Süresi:</strong></font> 
<font color="#F0F0F0"><strong><%=veri("suresi")%></strong></font><p></p>
<font color="#EE3C00"><strong>izlenme:</strong></font>
<font color="#F0F0F0"><strong><%=veri("hit")%></strong></font><p></p>
<font color="#EE3C00"><strong>Yorum:</strong></font> 
<font color="#F0F0F0"><strong></strong></font><p></p>
<font color="#EE3C00"><strong>Film Dili:</strong></font> 
<font color="#F0F0F0"><strong><%=veri("dil")%></strong></font><p></p>
<font color="#EE3C00"><strong>Ekleyen:</strong></font> 
<font color="#FF6600"><strong><%=veri("ekleyen")%></strong></font>
</span></div><span class="article_separator"></span><span class="row_separator"></span><p><p><img border="0" src="dosyalar/full.png" border="0"></p><p><img border="0" src="dosyalar/fragman.png" border="0"></p></p></div>
<br>

<%end if%>

hakkaten vakit ayırıp ilgilendiğin için teşekkürler. Cevabınızı bekliyorum musait olduğunuzda.

<!--#include file="emobag.asp"-->

<%
id = Request.QueryString("id")
set veri = db.execute("select * from film where KatID="&id)
%>
<%
if veri.eof then
response.write("Bu Kategoriye Ait Film Bulunamadı")
%>
<%else%>
<%
Set rs=db.Execute("SELECT Count(*) As Toplam FROM yorum WHERE filmid="&id&" ")
%>

<h2 
class="contentheading">
    <a title="<%=veri("filmadi")%>-<%=veri("dil")%>" href="http://www.siteadi.com/film-izle.asp?id=<%=veri("filmid")%>&<%=veri("filmadi")%>-<%=veri("dil")%>">
    <%=veri("filmadi")%></a></h2></div><a title="<%=veri("filmadi")%>-<%=veri("dil")%>"
href="http://www.siteadi.com/film-izle.asp?id=<%=veri("filmid")%>&<%=veri("filmadi")%>-<%=veri("dil")%>" target="blank">
                <img 
src="fresim/<%=veri("resim")%>" alt="<%=veri("filmadi")%>-" 
class="ca_img" border="0" width="348" height="358"></a>
<p><span style="font-size: 12px">
<font color="#EE3C00"><strong>Tür:</strong></font> 
<font color="#F0F0F0"><strong>sdfsdfsdf</strong></font><p></p>
<font color="#EE3C00"><strong>Yapım:</strong></font>
<font color="#F0F0F0"><strong><%=veri("yapim")%></strong></font><p></p>
<font color="#EE3C00"><strong>IMDB Puanı:</strong></font>
<font color="#F0F0F0"><strong><%=veri("imdb")%></strong></font><p></p>
<font color="#EE3C00"><strong>Gösterim:</strong></font> 
<font color="#F0F0F0"><strong><%=veri("gosterim")%></strong></font><p></p>
<font color="#EE3C00"><strong>Süresi:</strong></font> 
<font color="#F0F0F0"><strong><%=veri("suresi")%></strong></font><p></p>
<font color="#EE3C00"><strong>izlenme:</strong></font>
<font color="#F0F0F0"><strong><%=veri("hit")%></strong></font><p></p>
<font color="#EE3C00"><strong>Yorum:</strong></font> 
<font color="#F0F0F0"><strong><%=rs("Toplam")%></strong></font><p></p>
<font color="#EE3C00"><strong>Film Dili:</strong></font> 
<font color="#F0F0F0"><strong><%=veri("dil")%></strong></font><p></p>
<font color="#EE3C00"><strong>Ekleyen:</strong></font> 
<font color="#FF6600"><strong><%=veri("ekleyen")%></strong></font>
</span></div><span class="article_separator"></span><span class="row_separator"></span><p><p><img border="0" src="dosyalar/full.png" border="0"></p><p><img border="0" src="dosyalar/fragman.png" border="0"></p></p></div>
<br>

<%end if%>

uyarla ve dene bakayım

evet oldu çok teşekkürler. cok kücük bir sorun var, kategoriye ait 2 film varken 1 tanesini gösteriyor. loop kullanmalıyım sanırım

tam olarak orda ne yapmam gerekiyor hocam

<%
i=i+1
intCurrentRecord = intCurrentRecord + 1
Loop
%>

Park, senin verdiğin kod ile yapınca bu hatayı aldım;

Hata Tipi:
Microsoft VBScript derleme hatası (0x800A040E)
'do' olmadan 'loop'
/film/film_kategorileri.asp, line 92
Loop

bu hatayı aldım fakat do eklememişiz


şöyle hallettim

<%
Do Until veri.eof
i = i +1
%>
<%=veri("baslik")%>
<%
veri.MoveNext
Loop
%>

bu şekilde oldu. (yinede fonksiyonel bir yanlışlık yoktur değilmi arkadaşlar, sonucta sayfadaki veriler sıralandı doğru bir şekilde)

Yardımcı olan herkeze teşekkür ederim, çok saolun. site bittiğinde yardımcı olan arkadaşlara pm ile link göndericem. Fikrinizi almak isterim