eyvallah mkoroglu çok yardımın dokundu valla. hallettim sayende.

<% Set rs = Baglanti.Execute("select * from Haberler where onay=1 order by id desc") %>
<%rs.Move 0
For i = 1 To 9
hid=rs("id")
hbaslik=rs("baslik")
hspot=rs("spot")
hresim=rs("resim")
%>
.....kodlar.....
<% rs.MoveNext
Next %>