<% Set Baglanti = Server.CreateObject("ADODB.Connection") Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("admin/veri_tabani.mdb") Set Kayit = Server.CreateObject("ADODB.Recordset") Sql_Komutu = "Select * from haber order by id desc" Kayit.Open Sql_Komutu, Baglanti, 1, 3 Do while not Kayit.eof %> kampa.com.tr duyuru alani kampa.com.tr duyuru alani kampa.com.tr duyuru alani kampa.com.tr duyuru alani kampa.com.tr duyuru alani kampa.com.tr duyuru alani kampa.com.tr duyuru alani kampa.com.tr duyuru alani kampa.com.tr duyuru alani kampa.com.tr duyuru alani kampa.com.tr duyuru alani kampa.com.tr duyuru alani kampa.com.tr duyuru alani kampa.com.tr duyuru alani kampa.com.tr duyuru alani kampa.com.tr duyuru alani kampa.com.tr duyuru alani kampa.com.tr duyuru alani kampa.com.tr duyuru alani kampa.com.tr duyuru alani kampa.com.tr duyuru alani kampa.com.tr duyuru alani kampa.com.tr duyuru alani<%=Kayit("baslik")%>
(<%=Kayit("tarih")%>)
<%=left(Kayit("metin"), 200)%>...

<% Kayit.MoveNext Loop %>