Menüye en yeni haberleri eklemek için aşağıdaki kodları kullanabilirsiniz.
[CODE]<div class="kutu">
<h3>EN YENİ HABERLER</h3>
<ul><%
kdMenu.Open "SELECT TOP 5 baslik, tarih, durum, onay, haberID FROM tblHaberler WHERE durum = True AND onay = True ORDER BY tarih DESC, haberID DESC", adoCon, 1, 3
If Not kdMenu.EOF Then
Do While Not kdMenu.EOF
Response.Write("<li><a href="""& strScriptYolu &"haber/"& kdMenu("haberID") &"-"& CreateURL(kdMenu("baslik")) &".html"" title="""& kdMenu("baslik") &""">"& Trim(kdMenu("baslik")) &"</a></li>")
kdMenu.MoveNext
Loop
End If
kdMenu.Close %></ul>
</div>[/CODE]doronty372007-09-03 19:51:28