<% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' MyDesign Haber ' http://www.mydesign.gen.tr ' Diğer Siteler İçin Haberler ' Son Düzenleme: 9 Kasım 2007 (v0.5) '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' Kategori No blnKategoriAra = True intKategoriID = Temizle(Request.Querystring("kategori")) If intKategoriID = "" Or IsNumeric(intKategoriID) = False Then blnKategoriAra = False ' Sıralama strSiralama = Temizle(Request.Querystring("siralama")) If strSiralama = "hit" Then strQuerySiralama = "Okunma" Else strQuerySiralama = "Tarih" End If ' İçerik Sayısı intSayi = Temizle(Request.Querystring("sayi")) If intSayi <> 15 AND intSayi <> 20 Then intSayi = 10 strArtalan = (Request.Querystring("artalan")) strYaziRenk = Temizle(Request.Querystring("yazirenk")) strYaziBoyut = Temizle(Request.Querystring("yaziboyut")) strKalinlik = Temizle(Request.Querystring("kalinlik")) strCizgiRenk = Temizle(Request.Querystring("cizgirenk")) If Len(strArtalan) <> 6 Then strArtalan = "FFFFFF" If Len(strYaziRenk) <> 6 Then strYaziRenk = "336699" If Len(strCizgiRenk) <> 6 Then strCizgiRenk = "FF9901" If strYaziBoyut = "" OR IsNumeric(strYaziBoyut) = False Then strYaziBoyut = "8" If strKalinlik = "kalin" Then strKalinlik = "bold" Else strKalinlik = "normal" End If %> <% SQL = "SELECT * FROM tblHaberler WHERE Durum = True AND Onay = True AND kategori <> "& intKoseYazilari If blnKategoriAra Then SQL = SQL & " AND kategori = "& intKategoriID &"" SQL = SQL & " ORDER BY "& strQuerySiralama &" DESC" kdGenel.Open SQL, adoCon, 1, 3 If Not kdGenel.Eof Then i = 0 Do While (Not kdGenel.EOF) AND (i < CInt(intSayi)) %> " target="_blank"><%=kdGenel("Baslik")%>

<% i = i + 1 kdGenel.Movenext Loop Else Response.Write "İçerik bulunamadı" End If kdGenel.Close %>