<% Set Baglanti = Server.CreateObject("ADODB.Connection") Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("admin/database1.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 %> ', '_blank', 'width=400, height=500, top=50, left=500, resizable=yes, scrollbars=yes');return false"><%=Kayit("baslik")%>
(<%=Kayit("tarih")%>)

<% Kayit.MoveNext Loop %>