|
|
|
- Anasayfa
<% Call KategoriListele("", "", "- ", "
", 0, False, "", "", "", "") %>
En Çok Okunan Haberler
<% Call BaslikListele(" ", " ", "", 10, "", "okunma") %>
|
<%
If intToplam > 0 Then %>
| <%=Resimler%> |
<%=BaslikMenu%> |
<%=Basliklar%><%=Ozetler%> |
<%
End If
SQL = "SELECT TOP 10 haberID, baslik, ozet, kucuk_resim, durum, onay, tarih, kategori FROM tblHaberler"
SQL = SQL &" WHERE durum = True AND onay = True AND kucuk_resim <> '' AND kategori <> "& intKoseYazilari &" AND tarih < #"& CDate(strSonHaberTarih) &"#"
SQL = SQL &" ORDER BY tarih DESC"
kdGenel.Open SQL, adoCon, 1, 3
If Not kdGenel.Eof Then
Response.Write ""
intLooper = 1
Do While intLooper <= 10 AND Not kdGenel.Eof %>
 " align="left" style="width:100px; height:76px; padding-right:5px" />
<%=kdGenel("ozet")%>
| <%
If intLooper Mod 2 = 0 AND intLooper <> 10 Then Response.Write " "
intLooper = intLooper + 1
kdGenel.Movenext
Loop
Response.Write "
"
End If
kdGenel.Close %>
<%
kdGenel.Open "SELECT * FROM tblKategoriler WHERE Goster = True AND ustKatID = 0 ORDER BY Sira ASC", adoCon, 1, 3
If Not kdGenel.Eof Then
intTdLooper = 0
Do While Not kdGenel.Eof %>
<%=kdGenel("Kategori")%>
<%
SQL = "SELECT TOP 5 tblHaberler.haberID, tblhaberler.baslik, tblHaberler.durum, tblHaberler.kategori, tblHaberler.onay, tblKategoriler.* "
SQL = SQL & "FROM tblHaberler, tblKategoriler "
SQL = SQL & "WHERE tblHaberler.durum = True AND tblHaberler.onay = True AND tblHaberler.kategori = tblKategoriler.katID "
SQL = SQL & "AND (tblKategoriler.katID = "& kdGenel("katID") &" OR tblKategoriler.ustKatID = "& kdGenel("katID") &") "
SQL = SQL & "ORDER BY tblHaberler.tarih DESC"
kdYardimci.Open SQL, adoCon, 1, 3
If Not kdYardimci.Eof Then
intLooper = 1
Do While Not kdYardimci.Eof AND intLooper <= 5
Response.Write "- "& kdYardimci("baslik") &"
"
intLooper = intLooper + 1
kdYardimci.Movenext
Loop
Else
Response.Write "- Bu kategoriye henüz haber eklenmedi.
"
End If
kdYardimci.Close %>
| <%
intTdLooper = intTdLooper + 1
If intTdLooper Mod 2 = 0 Then Response.Write " "
kdGenel.Movenext
Loop
End If
kdGenel.Close %>
|
|
|
<%=strCopyright%>
RSS Kaynağı | Yazar Girişi
<%
' Bu kısmı değiştirmek lisans anlaşmasına aykırıdır
Response.Write "Altyapı: MyDesign Haber Sistemi "
' Bu kısmı değiştirmek lisans anlaşmasına aykırıdır
%>
|