Veritabanında bulunan menu tablosundaki veriye ve aktif sütunundaki check olayına göre yani kısaca belirtilen koşula göre verileri listeleyen asp kodu.
<% Set kayit = Server.CreateObject("ADODB.Recordset") sorgu = "select id, baslik, menu, aktif from haber WHERE menu="&kate&" and aktif=true order BY id asc" kayit.Open sorgu,vt,1,3 if kayit.eof or kayit.bof then '1nolu if response.write("Benzer Konular Yok..") else do while not kayit.eof %> * <% kayit.movenext loop end if kayit.close set kayit=nothing %>
<% Set kayit = Server.CreateObject("ADODB.Recordset") sorgu = "select id, baslik, menu, aktif from haber WHERE menu="&kate&" and aktif=true order BY id asc" kayit.Open sorgu,vt,1,3
if kayit.eof or kayit.bof then '1nolu if response.write("Benzer Konular Yok..")
else do while not kayit.eof %> *
<% kayit.movenext loop end if kayit.close set kayit=nothing %>