Aktif Forum Konularını Değiştirme

[murat66005]

Merhaba ASp Konya Soft Kurulu Sitem var ve Aktif Forum Konuları Eklentisi Falan Yappmışlar Yalnız ben anasayfada gorunen aktif forum konularını değiştirmek istiyorum yani yaptığım mesela download bolumu açtım forumda anasayfadaki aktif forum bolumunde yenı açılan 10 yazı çıkıyor ama ben sadece download forumundakı yazıların çıkmasını ıstıyorum bunu nasıl yapabılırım aşağıya aktifforum.asp dosyasının ıçındekı kodları atıyorum yardım edermısınız...

<table background="theme/<%=theme%>/backgroundwhite.PNG" class="cizgi" cellpadding="0" cellspacing="0" border="0" width="100%"><tr>
<td width="7%" height="25" background="theme/<%=theme%>/blok.PNG" class="altcizgi" align="center" valign="middle"><img border="0" src="theme/<%=theme%>/ok.PNG" width="30" height="24"></td>
<td height="25" background="theme/<%=theme%>/blok.PNG" class="altcizgi" width="93%"><b><a href="forum.asp">Aktif Forum Konuları</a></b></td>
</tr>
<tr>
<td colspan="2" align="left" valign="top">
<table cellpadding="0" cellspacing="0" border="0" width="100%" height="52">
<tr bgcolor="#FFFFFF" height="20">
<td background="theme/<%=theme%>/mansetbaslikbg.PNG" width="2%" align="center" height="20">&nbsp;</td>
<td background="theme/<%=theme%>/mansetbaslikbg.PNG" width="70%" align="left" height="20" class="sagcizgi" style="padding: 4px"><b>Konu Başlığı</b></td>
<td background="theme/<%=theme%>/mansetbaslikbg.PNG" width="15%" align="center" height="20" class="sagcizgi" style="padding: 4px"><b>Açan</b></td>
<td background="theme/<%=theme%>/mansetbaslikbg.PNG" width="2%" align="center" height="20">&nbsp;</td>
<td background="theme/<%=theme%>/mansetbaslikbg.PNG" width="15%" align="center" height="20" style="padding: 4px"><b>Okunma</b></td>
</tr>
<%
Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "select * from forummesaj where cevap = 1 order by siralama DESC"
rec.open rSQL,conn,3,3
for he=1 to 15
if (not rec.eof) then
renklendirme=renklendirme+1
%>
<tr <%if renklendirme mod 2 =1 then%>bgcolor="#FFFFFF"<%else%>bgcolor="#F2F2F2"<%end if%> height="20">
<td class="ustcizgi" width="2%" align="center" style="padding: 4px; " height="26"><img border="0" src="img/blt.PNG" width="6" height="6"></td>
<td class="ustcizgi" width="70%" align="left" height="26" style="padding: 4px"><a href="<%if strseo="1" then%><%="forum-" & rec("id") & "-" & filtre(rec("konu")) & ".html"%><%else%>konugoster.asp?id=<%=rec("id")%><%end if%>"><%=left(server.htmlencode(rec("konu")),280)%></a> [<b><%=left(rec("tarih"),10)%>&nbsp;<%=right(rec("tarih"),8)%></b>]</td>
<td class="ustcizgi" width="15%" align="center" height="26" style="padding: 4px">
<%
Set uye11 = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select id,pm,ban,yetki FROM Uyeler WHERE kadi='" & rec("yazan") & "'"
uye11.open rSQL,conn,3,3
%>
<!-- #include file="../_inc/rutbeler.asp" -->
</td>
<td class="ustcizgi" width="2%" align="center" height="26">&nbsp;</td>
<td class="ustcizgi" width="15%" align="center" height="26" style="padding: 4px"><%=rec("sayac")%></td>
</tr>
<%
rec.movenext
end if
next
%>
</table>
</td>
</tr>
</table>

[Cyberneo]

Kayıt forummesajdan açıldığı için ordan çağırıyor. download aynı table nin içinde mi, yoksa başka bir table mi veritabanında. farklı table ise forummesaj yazan yere download kısmını yazman yeterli.

[SozBirWeb]

Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "select * from forummesaj where cevap = 1 order by siralama DESC"
rec.open rSQL,conn,3,3

burada where cevap = 1'e ek olarak kategori='"&İSTEDİĞİNİZ FORUM ID&"' eklemesi yapabilirsiniz.
Mesela İSTEDİĞİNİZ FORUM ID değeri 5 ise,

Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "select * from forummesaj where cevap = 1 And Kategori=5 order by siralama DESC"
rec.open rSQL,conn,3,3

bu şekilde yapabilirsiniz.


Uyarı: "ben sadece download forumundakı yazıların çıkmasını ıstıyorum" dediğiniz için sadece forum olanları nasıl göstericeğinizi yazdım. Eğer forum kategorisi olucak ise biraz daha değişik olucaktır.