<% Sorgu = "select * from haber tarih order by tarih desc" Rs.Open Sorgu, bag, 1, 3 %> <% If rs.eof then Response.Write "Sistemde Kayıtlı Haber Bulunamadı..." Response.End End If %> <%Do while not rs.eof%> <% i=i+1 if i/2=int(i/2) then renk="efefef" else renk="f7f7f7" end if %>

<%=rs("ad")%>

<% = Left(rs("detay"),250) %> ... " target="uye" onClick="window.open('haberdetay.asp?id=<%=rs("id")%>','uye','width=667,height=400 toolbar=yes scrollbars=yes' )"> Haberin Devamı

Yazan :"><%=rs("yazan")%>                               Tarih : <%=rs("tarih")%>                        Kaynak : " target="_blank"><%=rs("kaynak")%>                          Okunma : <%=rs("oku")%>

<% rs.movenext loop %><% rs.close set rs=nothing bag.close set bag=nothing %>