<%
Set yeni = baglanti.execute("select top 5 * from haber_tablon where kategori_id="&kategori_id&" order by haber_id desc")
if yeni.eof then
Response.write "Haber yok."
else
do while not yeni.eof
%>
<%=yeni("haber_baslik")%><br />
<%
yeni.movenext:loop
yeni.close
set yeni = nothing
end if
%>