»  HABER VE DUYURULAR
 
    <% Set Baglanti = Server.CreateObject("ADODB.Connection") Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("yonetim/db/neutral.mdb") Set Kayit = Server.CreateObject("ADODB.Recordset") Sql_Komutu = "Select * from haber order by id desc" Kayit.Open Sql_Komutu, Baglanti, 1, 3 i=0 Do while not Kayit.eof i=i+1 %> ">

    <%=Kayit("baslik")%>
    <%=left(Kayit("metin"), 200)%>...   (<%=Kayit("tarih")%>)

    ">



    <% Kayit.MoveNext Loop %>