Arkadaşlar www.esesfutbol.com sitemiz var ve anasayfada forumdaki aktif 5 konuya ancak konu yazılınca orası yenileniyor.Ancak bu sitede de mevcut konuya cevap yazıldığı gibi burasını nasıı değiştirebiliriz?
Teşekkürler

Aşağıdaki kodlarla, konulara yazılan son mesajların tarihine greö sıralama yapabilirsiniz. Ancak bu kodlar son mesajı yazan üyenin adını vermemektedir.

<table>
<%
' buraya adoCon isminde bir veritabanı bağlantısı yazınız.

Set kd = Server.CreateObject("Adodb.Recordset")
kd.Open "SELECT TOP 5 Topic_ID, Subject, Last_entry_date FROM tblTopic ORDER BY Last_entry_date DESC;", adoCon, 1, 3
If kd.EOF Then
Response.Write(vbCrLf & "<tr><td>Forumda Mesaj Yok</td></tr>")
Else
Do UNTIL kd.EOF %>
   <tr>
    <td><a href="forum_posts.asp?TID=<%=kd("Topic_ID")%> &PN=1"" title="<%=kd("Subject")%>"> <%=Trim(kd("Subject")%> </a></td>
    </tr><%
kd.Movenext
Loop
End If
kd.Close%>
</table>

<table>
<%
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPaş("ornek.mdb")

Set kd = Server.CreateObject("Adodb.Recordset")
kd.Open "SELECT TOP 5 Topic_ID, Subject, Last_entry_date FROM tblTopic ORDER BY Last_entry_date DESC;", adoCon, 1, 3
If kd.EOF Then
Response.Write(vbCrLf & "<tr><td>Forumda Mesaj Yok</td></tr>")
Else
Do UNTIL kd.EOF %>
   <tr>
    <td><a href="forum_posts.asp?TID=<%=kd("Topic_ID")%> &PN=1"" title="<%=kd("Subject")%>"> <%=Trim(kd("Subject")%> </a></td>
    </tr><%
kd.Movenext
Loop
End If
kd.Close%>
</table>

die koymama yeterli mi?

ben bunu anasayfa default.asp ye include komudu ile koymama gerekecek..

konuların görünmesini istediğiniz yere bu kodları koymanız gerekli. include etmeye gerek yok.

Peki ßen ßu mantıgın aynısını ?u ?ekilde yapmak istiorum;
Mydesign haber scirptti kullaniyorum.Site ana sayfasina son eklenen 5 tane haberleri yayınlamak istiyorum.

Aşağıdaki kodlarla son haberleri listeleyebilirsiniz:

[CODE]<%
Set adoCon = Server.CreateObject("Adodb.Connection")
adoCon.open = "Provider=Microsoft.Jet.Oledb.4.0;Data Source="& Server.MapPaş("veritabani/mydesign_haberci.mdb") &";"

Set kd = Server.CreateObject("Adodb.Recordset")
kd.Open "SELECT TOP 5 baslik, okunma, durum, onay, haberID FROM tblHaberler WHERE durum = True AND onay=True ORDER BY okunma DESC, haberID ASC",adoCon, 1, 3
If Not kd.EOF Then
     Do While Not kd.EOF
             Response.Write("<a href=""haber_oku.asp?haber="& kd("haberID") &""" title="""& kd("baslik") &""">"& Left(Trim(kd("baslik")),18) &"</a><br />")
     kd.MoveNext
     Loop
End If

kd.Close
Set kd = Noşing

adoCon.Close
Set adoCon = Noşing %>[/CODE]