Merhaba Öncelikle veritabanında az bi değişiklik yapmalısın

tablo: resimler
id : otomatik sayı ( yenileme yok + birincil anahtarı)
resimbuyuk:
resimkucuk:

tablo: haber
id : otomatik sayı ( yenileme yok + birincil anahtarı)
resim_id:
baslik:
özet:

veritabanına kayıt yaparken resimler toblosundaki id ile ilgili haberin tablodaki resim_id aynı olmalıdır.

ve gerekli kod

<%
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("admin/data/ntrn_tklf.mdb")
%>



<div class="eleven columns row alpha omega">
<div id="featured-slider" class="block">
<div id="slider" class="nivoSlider">

<% 
set resim = server.createobject("adodb.recordset")
rSQL = "SELECT TOP 5 * From resimler ORDER BY ID desc"
resim.open rSQL, baglanti, 1, 3
%>

<%Do While Not resim.Eof%>
	<img src="<%=resim("resimbuyuk")%>" data-thumb="<%=resim("resimkucuk")%>" alt="" title="#htmlcaption-<%=resim("id")%>"/>
<%
resim.MoveNext : Loop
%>
</div>
<% 
set haber = server.createobject("adodb.recordset")
hSQL = "SELECT TOP 5 * From haber ORDER BY resim_id desc"
haber.open hSQL, baglanti, 1, 3
%>

<%Do While Not haber.Eof%>
<div id="htmlcaption-<%=haber("resim_id")%>" class="nivo-html-caption">
<h4><%=haber("baslik")%></h4>
<p><%=haber("özet")%></p>
</div>
<%
haber.MoveNext : Loop
%>
<%  
  resim.Close  
  Set resim = Nothing
  haber.Close  
  Set haber = Nothing     
%> 
</div>
</div>

Deneme imkanım olmadı denersin hata olacağını sanmıyorum ama olursa yazarsın