<% Set adoCon = Server.CreateObject("Adodb.Connection") adoCon.open = "Provider=Microsoft.Jet.Oledb.4.0;Data Source="& Server.MapPath("veritabani/mydesign_haberci.mdb") &";" Set kdMenu = Server.CreateObject("Adodb.Recordset") kdMenu.Open "SELECT TOP 10 baslik, ozet, Site_adi, aciklama, durum, onay, haberID, tarih FROM tblHaberler, tblAyarlar WHERE durum = True AND onay=True ORDER BY tarih DESC, haberID ASC",adoCon, 1, 3 If Not kdMenu.EOF Then Do While Not kdMenu.EOF Response.Write("

"& Trim(kdMenu("baslik")) &"

"& Trim(kdMenu("ozet")) &"

") kdMenu.MoveNext Loop End If kdMenu.Close Set kdMenu = Nothing adoCon.Close Set adoCon = Nothing %>