<% dbfolder="haberekle/db/haber.mdb" 'db adresini anasayfaya göre balirtin... %> <% Set data=Server.CreateObject("ADODB.Connection") data.Open "PROVIDER=MSDASQL;" & _ "DRIVER={Microsoft Access Driver (*.mdb)}; " & _ "DBQ=" & server.mappath(""& dbfolder &"") %> <% i=1 set rs = data.execute("select * from ingilizce order by id desc") do while i<11 and not rs.eof %> "><%=Left(rs("baslik"),"100")%>..
<%=Left(rs("icerik"),"100")%> ">» »..

<% rs.movenext i=i+1 loop rs.close %>