Son 5 Mesaj Asp...

Arkadaşlar ben forumdaki ve ziyaretçi defterindeki ve de ayrıca son 5 haberi anasayfada yayınlamak istiyorum.Fakat bazıalrının mdb ayarlarını bilmiyorum.Anlayacağınız sorun küçük fakat ben yapamadım.Nasıl yapamadığıma inanamıyorum.Bunu yazarken çok utandım ama mecburdum. <Arkadaşlar mesajlarınızı bekliyorum..

hocam yokmu bir yardım eden acil hocam yardım edin.

eğer kayıt tarihlerini kaydediyorsan tarihleri sql sorgusuyla geçmişe doğru sırala sonra for döngüsüyle 5 kayıt yazdır şöyle
SQL="Select Haber Form HABERLER Order By KayitTarih Desc"
for i=0 to 4
Response.Write( haberleri yazdır )
Next
tarihleri kaydetmiyorsan kayitların id numaralarına göre azalana doğru sıralat
yine for döngüsüyle kayitları yazdır

Öncelikle ziyaretci defterinden başlayalım.
Ana sayfada son 5 mesajı gösterelim.
------o------
Verilerimiz :
başlık : baslik
mesaj : mesaj
database ismi : dbname
tablo ismi : zdefteri

Aşağıdaki verileri son5.asp olarak kaydediniz. Ana sayfanızda göstermek için son5.asp dosyasını root'a koyup gözükmesini istediğiniz kısıma <!--#include file="son5.asp"--> şeklinde yazınız. Üst kısımda yazdığım değişkenleri kendi databasenizdeki verilere göre değiştiriniz.
------o------
<%
Session.Codepage=1254

Set bag = Server.CreateObject("ADODB.Connection")
bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbname.mdb")


Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM zdefteri"
rs.Open sql, bag, 1, 3 'db açtık devam edelim...
Server.ScriptTimeOut = 50
PageTimeOut = 50
%>

<%
s = Request.QueryString("s")
If s = "" Then s = "1"
rs.PageSize = 5
rs.AbsolutePage = s
ss = rs.PageCount
For i = 1 To 5
If rs.EOF Then Exit For %>

<table border="0"><tr><td width="400">
<font size="2" color="black" face="verdana"><b><%=Rs("baslik") %></font></b></a></td></tr><tr><td>
<font size="1" color="black" face="verdana"><%=Rs("mesaj") %></font>
</td></tr></table></td></tr></table>

<% rs.MoveNext
Next
rs.close
%>

------o------
Hata mesajı ile karşılaşırsanız değişkenlerinizi kontrol ediniz. Yine sorunla karşılaşırsanız ana sayfanızda bir sorgu açık kalmış demektir. Bu sebeple çakışabilirler. Hata ile karşılaşırsanız mesajı buraya yazarsanız çözümü bulmaya çalışırız.

Şimdi gelelim son 5 habere.

Ana sayfada son 5 haberi gösterelim. Haberlerde resim varmış gibi yazıyorum. Eğer resim yoksa üstteki kodu haberler içinde kullanabilirsin.
------o------
Verilerimiz :
başlık : baslik
mesaj : mesaj
resim : resim
database ismi : dbhaber
tablo ismi : haberler

Aşağıdaki verileri haber5.asp olarak kaydediniz. Ana sayfanızda göstermek için haber5.asp dosyasını root'a koyup gözükmesini istediğiniz kısıma <!--#include file="haber5.asp"--> şeklinde yazınız. Üst kısımda yazdığım değişkenleri kendi databasenizdeki verilere göre değiştiriniz.
------o------
<%
Session.Codepage=1254

Set bag = Server.CreateObject("ADODB.Connection")
bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbhaber.mdb")


Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM haberler"
rs.Open sql, bag, 1, 3 'db açtık devam edelim...
Server.ScriptTimeOut = 50
PageTimeOut = 50
%>

<%
s = Request.QueryString("s")
If s = "" Then s = "1"
rs.PageSize = 5
rs.AbsolutePage = s
ss = rs.PageCount
For i = 1 To 5
If rs.EOF Then Exit For %>

<table border="0"><tr><td width="400">

<table border="0" width="150" valign="top">
<img src="<%=Rs("resim") %>" width="125">
</td><td width="250" valign="top">

<table border="0"><tr><td>
<font size="2" color="black" face="verdana"><b><%=Rs("baslik") %></font></b></a></td></tr><tr><td>
<font size="1" color="black" face="verdana"><%=Rs("mesaj") %></font>
</td></tr></table></td></tr></table>

<% rs.MoveNext
Next
rs.close
%>
------o------
Hata mesajı ile karşılaşırsanız değişkenlerinizi kontrol ediniz. Yine sorunla karşılaşırsanız ana sayfanızda bir sorgu açık kalmış demektir. Bu sebeple çakışabilirler. Hata ile karşılaşırsanız mesajı buraya yazarsanız çözümü bulmaya çalışırız.

Kolay gelsin.

hocam çok tşk ederim aynılarını şimdi yapıyorum hala sorun verirse burdan ulaşırım size...