Hoca, daha dün webviz forum için son konular modülü yazdım. Kendine gre düzelt. <!-- #include file="common. asp" --><!-- #include file="forum/functions/functions_date_time_format. asp" --><%Function BaslikBul '// Eğer Değişken Boşsa Fonksiyondan Çıkılıyor If strVeri = "" Or IsNumeric = False Then Exit Function set baslikRS = Server. CreateObject baslikRS. OPEN "SELECT FROM tblTopic WHERE Topic_ID = "& strVeri&" AND Locked = FALSE AND hide = False", strCon, 1, 3 If Not baslikRS. EOF Then BaslikBul = ""& baslikRS &"" End If baslikRS. Close Set baslikRS = NothingEnd FunctionFunction YazanBul '// Eğer Değişken Boşsa Fonksiyondan Çıkılıyor If strVeri = "" Or IsNumeric = False Then Exit Function set yazanRS = Server. CreateObject yazanRS. OPEN "SELECT FROM tblAuthor WHERE Author_ID = "& strVeri&"", strCon, 1, 3 If Not yazanRS. EOF Then YazanBul = "<a href=""forum/member_profile. asp?PF="& yazanRS &""">"& yazanRS &"</a>" End If yazanRS. Close Set yazanRS = NothingEnd Function%><table border="0" width="100%"> <tr> <td> Konu</td> <td> Yazan</td> <td> Tarih</td> </tr><%set RS = Server. CreateObject RS. OPEN "Select TOP 5 FROM tblThread WHERE Show_signature = FALSE AND hide = False ORDER BY Message_date DESC", strCon, 1, 3if RS. eof or RS. bof thenresponse. write "Henüz konu girilmemiş." else do while not RS. eof strThread_ID = RS strAuthor_ID = RS strMessage_date = RS %> <tr> <td> <a href="forum/forum_posts. asp?TID=<%=strThread_ID%>"><%=BaslikBul %></a></td> <td> <%=YazanBul %></td> <td> <%=DateFormat %></td> </tr><%RS. movenextloopend ifRS. Closeset RS = Nothing%></table> Mesaj tarihine gre en sondan en başa doğru sıraloyor. Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.

id e gre değil tarihe gre çek verileri, yer yeni mesaj yazdığında, konu up lanır kelimeler albayım bazı anlamlara gelmiyor.

yeni bi forum yazıyorum ama bi yerde takıldım yapmaya çalıştığım şu aktif konular gibi bişey en son yazı gnderilen başlığı en üste taşımak bunu nasıl yapabilirim soruları konular adı altında bi tabloda cevapları ise cevaplar die bi tablodatutyorumşle bişey yaptım ama <%i=1Set Soon = Server. CreateObject baglac = "Select from konular order by knid desc"Soon. Open baglac, dugum,1,3do while i<6 and not Soon. eof%><%=i%>:)</b><%=soon %><br> <%Soon. movenexti=i+1loopSoon. close%> burda sadece konular tablosundaki son 5 veriyi çektirde biliyom yani yeni cevap gelinde cevap gelen başlık en başa alınmıyo bunu nasıl yaparım? kodla felan rnek olarak suna bilcek birileri varmı? Şişirdi Beş-On Adam, Yaptı Balon Adam, tekşndende Basit, Vallahi Bu Son Adam.

kod deilde mantık verim. Mesajların gnderme zamanına gre konu başlıklarını çekebilirsin