- Anasayfa
<%
If blnKategoriVar Then
Call KategoriListele("", "", "- ", "
", intKategoriID, True, "", "- ", "
")
Else
Call KategoriListele("", "", "- ", "
", 0, False, "", "", "", "")
End If %>
En Çok Okunan Haberler
<% Call BaslikListele(" ", " ", "", 10, "", "okunma") %>
|
<%
If blnKategoriVar Then
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 <> ''"
kdYardimci.Open "SELECT * FROM tblKategoriler WHERE ustKatID = "& intKategoriID &"", adoCon, 1, 3
If Not kdYardimci.Eof Then
SQL = SQL & " AND (kategori = "& intKategoriID
Do While Not kdYardimci.Eof
SQL = SQL & " OR kategori = "& kdYardimci("katID")
kdYardimci.Movenext
Loop
SQL = SQL & ")"
Else
SQL = SQL & " AND kategori = "& intKategoriID
End If
kdyardimci.Close
SQL = SQL &" 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 %>
<%=strGecerliKategori%> |
En Çok Okunan Haberler |
| <%
SQL = "SELECT haberID, kategori, baslik, tarih, onay FROM tblHaberler WHERE durum = True AND onay = True AND kategori = "& intKategoriID &" ORDER BY tarih DESC"
kdGenel.Open SQL, adoCon, 1, 3
If Not kdGenel.Eof Then
intLooper = 0
Response.Write "" %>
">Tüm Haberler » <%
Else
Response.Write "- Bu kategoriye henüz haber eklenmedi.
"
End If
kdGenel.Close %>
|
<%
SQL = "SELECT TOP 10 haberID, kategori, baslik, onay, okunma FROM tblHaberler WHERE durum = True AND onay = True"
kdYardimci.Open "SELECT * FROM tblKategoriler WHERE ustKatID = "& intKategoriID &"", adoCon, 1, 3
If Not kdYardimci.Eof Then
SQL = SQL & " AND (kategori = "& intKategoriID
Do While Not kdYardimci.Eof
SQL = SQL & " OR kategori = "& kdYardimci("katID")
kdYardimci.Movenext
Loop
SQL = SQL & ")"
Else
SQL = SQL & " AND kategori = "& intKategoriID
End If
kdYardimci.Close
SQL = SQL & " ORDER BY okunma DESC"
kdGenel.Open SQL, adoCon, 1, 3
If Not kdGenel.Eof Then
intLooper = 1
Response.Write ""
Else
Response.Write "- Bu kategoriye henüz haber eklenmedi.
"
End If
kdGenel.Close %>
|
<%
kdGenel.Open "SELECT * FROM tblKategoriler WHERE Goster = True AND UstkatID = "& intKategoriID &" ORDER BY Sira ASC", adoCon, 1, 3
If Not kdGenel.Eof Then
intTdLooper = 0
Do While Not kdGenel.Eof %>
<%=kdGenel("Kategori")%>
<%
SQL = "SELECT haberID, baslik, kategori, durum, onay, tarih FROM tblHaberler WHERE durum = True AND onay = True AND kategori = "& kdGenel("katID") &" ORDER BY 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 %>
<%
Else
Response.Write("![]()
Yanlış kategori numarası seçtiniz. |
|