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