<% @ Language=VBScript %> <% Option Explicit %> <% Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" '// Değişkenler Tanımlanıyor Dim blnSuz Dim blnAra Dim SQL Dim intToplam Dim G_Kayit Dim T_Kayit Dim intLooper Dim intSayfaSayisi Dim intHaberYorumSayisi Dim blnHaberYorum Dim intHaberID Dim strHaberBaslik Dim strHaberResim Dim intHaberEditor Dim dtmHaberTarih Dim strHaberOzet Dim intHaberKategori Dim intHaberPuan Dim intHaberOySayisi Dim intHaberOkunma Dim intArananEditorID blnSuz = False blnAra = False blnMenuAc = False '// Arama verileri alınıyor intArananKategori = Temizle(Request.QueryString("kategori")) strArananKelime = Temizle(Request.QueryString("kelime")) intArananEditorID = Temizle(Request.QueryString("editor")) If IsNumeric(intArananKategori) Then strArananKategori = KategoriBul(intArananKategori) If strArananKategori <> "" Then blnSuz = True End If If intArananEditorID <> "" AND IsNumeric(intArananEditorID) Then blnAra = True If Len(strArananKelime) >= 3 Then blnAra = True '// Veritabanı sorgulaması yapılıyor SQL = "SELECT haberID, kategori, baslik, ozet, tarih, editor, yorum, onemli, onay, resim, okunma" SQL = SQL & " FROM tblHaberler WHERE durum=True AND onay=True" If blnAra Then SQL = SQL & " AND (baslik LIKE '%" & strArananKelime & "%' OR ozet LIKE '%" & strArananKelime & "%' OR haber LIKE '%" & strArananKelime & "%')" If intArananEditorID <> "" AND IsNumeric(intArananEditorID) Then SQL = SQL & " AND editor = "& CInt(intArananEditorID) &"" If blnSuz Then SQL = SQL & " AND kategori = "& CInt(intArananKategori) &"" If blnAra = False AND blnSuz Then kdYardimci.Open "SELECT * FROM tblKategoriler WHERE UstKatID = "& CInt(intArananKategori) &"", adoCOn, 1, 3 If Not kdYardimci.Eof Then SQL = SQL & "OR (" Do While Not kdYardimci.Eof SQL = SQL & "kategori = "& kdYardimci("KatID") &" OR " kdYardimci.Movenext Loop SQL = SQL & " kategori = "& CInt(intArananKategori) &")" End If kdYardimci.Close End If SQL = SQL & " ORDER BY onemli ASC, Tarih DESC, haberID DESC" kdGenel.Open SQL, adoCon, 1, 3 intToplam = kdGenel.RecordCount %> <%=strSiteAdi%> <% If blnSuz Then Response.Write " » "& strArananKategori %><% If blnAra Then Response.Write " » Arama Sonuçları ("& strArananKelime &")"%>

   Kategoriler: Güncel | Düğün | Cenaze

<% '// Veritabanında uygun kayıt yoksa hata mesajı önleniyor If intToplam = 0 Then Response.Write("
") '// Arama yapılmışsa If blnAra Then Response.Write "

Aradığınız kriterlere uygun sonuç bulunamadı.

" '// Kategori seçilmişse Elseif blnSuz Then Response.Write "

Bu kategoriye henüz haber eklenmedi.

" '// Tüm kayıtlar seçiliyse Else Response.Write "

Henüz Haber Eklenmedi.

" End If Response.Write("
") '// Uygun kayıt varsa listeleniyor Else '// Bir sayfada gösterilecek kayıt sayısı alınıyor kdGenel.PageSize = intHaberSayisi '// Şuanda bulunulan sayfa bulunuyor If Temizle(Request.QueryString("SF")) = "" Then G_Kayit = 1 Else G_Kayit = CInt(Temizle(Request.QueryString("SF"))) End If '// Toplam sayfa sayısı hesaplanıyor T_Kayit = kdGenel.PageCount If G_Kayit > T_Kayit Then G_Kayit = T_Kayit If G_Kayit < 1 Then G_Kayit = 1 If T_Kayit <> 0 Then kdGenel.AbsolutePage = G_Kayit End If intLooper = 0 '// Kayıtlar gösterilmeye başlanıyor Do while intLooper < intHaberSayisi And Not kdGenel.Eof '// Veritabanından bilgiler alınıyor intHaberID = kdGenel("haberID") strHaberBaslik = kdGenel("baslik") blnHaberYorum = kdGenel("yorum") strHaberResim = kdGenel("resim") intHaberEditor = kdGenel("editor") dtmHaberTarih = kdGenel("tarih") strHaberOzet = kdGenel("ozet") intHaberKategori = kdGenel("kategori") intHaberOkunma = kdGenel("okunma") '// Yorum Sayısı Bulunuyor If blnHaberYorum Then SQL = "SELECT * FROM tblYorumlar WHERE haber="& intHaberID If blnAdminOnay Then SQL = SQL & " AND durum = True" kdYardimci.Open SQL, adoCon, 1, 3 intHaberYorumSayisi = kdYardimci.RecordCount kdYardimci.Close End If Response.Write("

"& strHaberBaslik &"

" & _ "

 Kategori: "& KategoriBul(intHaberKategori) &" | ") If blnHaberYorum Then Response.Write(" "& intHaberYorumSayisi &" Yorum | ") Response.Write(" "& intHaberOkunma &" Okunma | ") If intHaberEditor <> 2 Then Response.Write(" Yazan: "& YazanBul(intHaberEditor) &" | ") Response.Write(TarihFormatla(dtmHaberTarih,1) &"

") Response.Write("
") If Len(strHaberResim) > 3 Then Response.Write("") Response.Write(Satir(strHaberOzet) &" Devamı »
") intLooper = intLooper + 1 kdGenel.MoveNext Loop '// Sayfalama başlıyor Response.Write(vbCrLf & vbTab & vbTab) '// Arama yapılmışsa If blnAra Then Response.Write ""& T_Kayit &" Sayfada "& intToplam &" sonuç bulundu.
" '// Kategori seçilmişse Elseif blnSuz Then Response.Write ""& KategoriBul(intHaberKategori) &" kategorisinde "& T_Kayit &" sayfada "& intToplam &" haber kayıtlı.
" '// Tüm kayıtlar seçiliyse Else Response.Write ""& T_Kayit &" Sayfada "& intToplam &" haber kayıtlı.
" End If '// Sayfa sayısı 1'den büyükse diğer sayfalara link veriliyor If T_Kayit > 1 Then For intSayfaSayisi = 1 To T_Kayit '// Sayaç geçerli sayfada ise sadece yazı yazılıyor If intSayfaSayisi = G_Kayit Then Response.Write(""& intSayfaSayisi &". ") '// Sayaç geçerli sayfada değilse o sayfaya link veriliyor Else Response.Write(""& intSayfaSayisi &". ") End If Next End If End If kdGenel.Close %>