<% @ Language=VBScript %> <% Option Explicit %> <% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' MyDesign Haber ' http://www.mydesign.gen.tr ' Arama Sayfası Kodları ' Son Düzenleme: 8 Kasım 2007 (v0.5) '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Session.LCID = 1033 '// Sayfanın önbellekten alnması önleniyor 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 SQL Dim aSQL Dim intToplam Dim intLooper Dim strArananKelime Dim intBasGun Dim intBasAy Dim intBasYil Dim intBitAy Dim intBitGun Dim intBitYil Dim strAranacakYer Dim strSiralama Dim strListeleme Dim intAra Dim blnAra Dim intGecerliSayfa Dim intSayfaSayisi blnAra = False strArananKelime = Temizle(Request.Querystring("kelime")) intArananKategori = Temizle(Request.Querystring("kategori")) intBasGun = Temizle(Request.Querystring("basgun")) intBasAy = Temizle(Request.Querystring("basay")) intBasYil = Temizle(Request.Querystring("basyil")) intBitAy = Temizle(Request.Querystring("bitay")) intBitGun = Temizle(Request.Querystring("bitgun")) intBitYil = Temizle(Request.Querystring("bityil")) strAranacakYer = Temizle(Request.Querystring("yer")) strSiralama = Temizle(Request.Querystring("sirala")) strListeleme = Temizle(Request.Querystring("listele")) intAra = Temizle(Request.Querystring("ara")) intGecerliSayfa = Temizle(Request.Querystring("sayfa")) If intAra <> "" Then blnAra = True If intGecerliSayfa = "" Or IsNumeric(intGecerliSayfa) = False Then intGecerliSayfa = 1 If intBasGun = "" Or IsNumeric(intBasGun) = False Then intBasGun = 01 If intBasAy = "" Or IsNumeric(intBasAy) = False Then intBasAy = 01 If intBasYil = "" Or IsNumeric(intBasYil) = False Then intBasYil = 2005 If intBitGun = "" Or IsNumeric(intBitGun) = False Then intBitGun = Day(Date()) If intBitAy = "" Or IsNumeric(intBitAy) = False Then intBitAy = Month(Date()) If intBitYil = "" Or IsNumeric(intBitYil) = False Then intBitYil = Year(Date()) intBasGun = SifirEkle(intBasGun) intBasAy = SifirEkle(intBasAy) intBitGun = SifirEkle(intBitGun) intBitAy = SifirEkle(intBitAy) Dim strBaslangicGun Dim strBitisGun If IsNumeric(intBasGun) AND intBasGun <= 31 AND IsNumeric(intBasAy) AND intBasAy <= 12 AND IsNumeric(intBasYil) Then strBaslangicGun = CDate(intBasAy&"/"&intBasGun&"/"&intBasYil) End If If IsNumeric(intBitGun) AND intBitGun <= 31 AND IsNumeric(intBitAy) AND intBitAy <= 12 AND IsNumeric(intBitYil) Then strBitisGun = CDate(intBitAy&"/"&intBitGun&"/"&intBitYil) End If aSQL = "SELECT * FROM tblHaberler WHERE durum = True AND onay = True AND kategori <> "& intKoseYazilari If IsNUmeric(intArananKategori) Then aSQL = aSQL & " AND kategori = "& intArananKategori If Len(strArananKelime) >= 3 Then If strAranacakYer = "baslik" OR strAranacakYer = "ozet" OR strAranacakYer = "haber" Then aSQL = aSQL & " AND "& strAranacakYer &" LIKE '%"& strArananKelime &"%'" Else aSQL = aSQL & " AND (baslik LIKE '%"& strArananKelime &"%' OR ozet LIKE '%"& strArananKelime &"%' OR haber LIKE '%"& strArananKelime &"%')" End If End If If strBaslangicGun <> CDate("1/1/2005") Then aSQL = aSQL & " AND tarih >= #"& strBaslangicGun &"#" End If If strBitisGun <> Date() Then aSQL = aSQL & " AND tarih <= #"& strBitisGun &"#" End If If strListeleme = "baslik" OR strListeleme = "tarih" OR strListeleme = "okunma" Then aSQL = aSQL & " ORDER BY "& strListeleme Else aSQL = aSQL & " ORDER BY baslik" End If If strSiralama = "artan" Then aSQL = aSQL & " ASC" Else aSQL = aSQL & " DESC" End If %> <%=strSiteAdi%> - Arama<% If strArananKelime <> "" Then Response.Write ": "& strArananKelime %>

<%=strSiteAdi%>

Anasayfa
", "

En Çok Okunan Haberler

<% Call BaslikListele("

", "", "

", "

", 10, "", "okunma") %>

Arama Formu

Anahtar Kelime:		Kategori:	<% kdMenu.Open "SELECT * FROM tblKategoriler WHERE goster = True AND ustKatID = 0 ORDER BY sira ASC, kategori ASC",adoCon, 1, 3 If Not kdMenu.EOF Then Response.Write("" End If kdMenu.Close %>
Aranacak Yer:		Başlangıç:
Sıralama:		Bitiş:

<% If blnAra = True Then %>

Arama Sonuçları <% If strArananKelime <> "" Then Response.Write "("& strArananKelime &")" %>

<% kdGenel.Open aSQL, adoCon, 1, 3 If Not kdGenel.Eof Then kdGenel.PageSize = intHaberSayisi kdGenel.AbsolutePage = intGecerliSayfa intSayfaSayisi = kdGenel.PageCount Response.Write "

" title="<%=kdGenel("baslik")%>"><%=kdGenel("baslik")%>
<%=kdGenel("ozet")%>

" If intSayfaSayisi > 1 Then For intLooper = 1 To intSayfaSayisi If intLooper = CInt(intGecerliSayfa) Then Response.Write ""& intLooper &" " Else %> <%=intLooper%> <% End If Next End If Else Response.Write "Aradığınız kriterlere uygun sonuç bulunamadı." End If kdGenel.Close %>

<% End If %>

<%=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 %>