<%=strSiteAdi%> <% If blnHaberVar Then Response.Write " » "& strHaberBaslik %>

<% @ Language=VBScript %> <% Option Explicit %> <% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' mydesign haber sistemi ' W: http://www.mydesign.gen.tr ' @: mydesign@mydesign.gen.tr ' Haber Okuma Sayfası Kodları ' Son Düzenleme: 08 Kasım 2006 (v0.4.2) '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '// 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 strHaber Dim strIsim Dim strEPosta Dim strMesaj Dim blnHaberYorum Dim strHaberMetni Dim strYorum Dim SQL Dim intHaberYorumSayisi Dim G_Kayit Dim T_Kayit Dim intLooper Dim intSayfaSayisi Dim strKategori Dim strKelime Dim blnKilitli Dim IcerikIDPuan Dim intHaberOkunma Dim intHaberKategori Dim intHaberEditor Dim dtmHaberTarih Dim strHaberOzet Dim blnHaberVar Dim intHaberPuan Dim intHaberOySayisi Dim intIcerikIDPuan Dim intHaberIcerikID Dim intGecerliSayfa Dim strHaberBaslik Dim strHaberResim '// Formdan veriler alınıyor strHaber = Temizle(Trim(Request.QueryString("haber"))) strIsim = Temizle(Trim(Request.Form("isim"))) strEPosta = Temizle(Trim(Request.Form("eposta"))) strMesaj = Temizle(Trim(Request.Form("mesaj"))) intGecerliSayfa = Temizle(Request.QueryString("SF")) '// Çerezden veriler alınıyor If strIsim = "" Then strIsim = Temizle(Request.Cookies("myhaberci")("isim")) If strEPosta = "" Then strEPosta = Temizle(Request.Cookies("myhaberci")("email")) '// Varsayılan değerler giriliyor blnHaberVar = True blnHaberYorum = False blnKilitli = True '// Haber verisinin olup olmadığı ve verinin sayı olup olmadığı kontrol ediliyor If strHaber = "" Or IsNumeric(strHaber) = False Then blnHaberVar = False Else '// Veri, sayıysa veritabanı kontrolü yapılıyor kdGenel.Open "SELECT * FROM tblHaberler WHERE durum=True AND onay=True AND haberID = "& CInt(strHaber) &"", adoCon, 1, 3 '// Uygun kayıt bulunamadıysa mesaj yazılıyor If kdGenel.EOF Then blnHaberVar = False '// Kayıt varsa haber gösteriliyor Else '// Haberin bilgileri alınıyor intHaberIcerikID = kdGenel("HaberID") intHaberOkunma = kdGenel("okunma") blnHaberYorum = kdGenel("yorum") blnKilitli = kdGenel("kilit") strHaberMetni = kdGenel("haber") intHaberKategori = kdGenel("kategori") intHaberEditor = kdGenel("editor") dtmHaberTarih = kdGenel("tarih") strHaberOzet = kdGenel("ozet") intHaberPuan = kdGenel("puan") intHaberOySayisi = kdGenel("oy_sayisi") strHaberBaslik = kdGenel("baslik") strHaberResim = kdGenel("resim") '// Yorum Sayısı Bulunuyor If blnHaberYorum Then SQL = "SELECT * FROM tblYorumlar WHERE haber="& intHaberIcerikID If blnAdminOnay Then SQL = SQL & " AND durum = True" kdYardimci.Open SQL, adoCon, 1, 3 intHaberYorumSayisi = kdYardimci.RecordCount kdYardimci.Close End If '// Haberin okunma sayısı güncelleniyor If Session("haberci"& intHaberIcerikID) <> True Then kdGenel("okunma") = intHaberOkunma + 1 kdGenel.Update End If '// Puan hesaplanıyor If intHaberOySayisi <> 0 AND IsNumeric(intHaberOySayisi) AND IsNumeric(intHaberPuan) Then intHaberPuan = Round(intHaberPuan/intHaberOySayisi,1) Else intHaberPuan = "Henüz oy verilmedi" End If strHaberMetni = Replace(strHaberMetni, vbCrLf, " ", 1, -1, 1) Session("haberci"& intHaberIcerikID) = True intArananKategori = CStr(intHaberKategori) End If kdGenel.Close End If %> <%=strSiteAdi%> <% If blnHaberVar Then Response.Write " » "& strHaberBaslik %> <% If blnKilitli = False AND blnHaberYorum = True Then %> <% End If %>

<% '// Haber bulunamasıysa mesaj yazılıyor If blnHaberVar = False Then Response.Write("

Yanlış haber numarası seçtiniz.

") '// Uygun kayıt varsa gösteriliyor Else 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) &"

"& _ strHaberMetni &"

") %>

<% intIcerikIDPuan = Temizle(Request.Cookies("myhaberci")("Puan"& intHaberIcerikID)) If intIcerikIDPuan = "" Then %>

| Puan: <%=intHaberPuan%> / <%=intHaberOySayisi%> Oy | <% Else %> Bu habere daha önce puan verdiniz | Puan: <%=intHaberPuan%> / <%=intHaberOySayisi%> Oy | <% End If %> Yazdırılabilir Sayfa

Yazdırılabilir Sayfa

<% '// Yorumlar aktifse gösteriliyor If blnHaberYorum Then %>

Yorumlar

<% SQL = "SELECT * FROM tblYorumlar WHERE haber="& intHaberIcerikID If blnAdminOnay Then SQL = SQL & " AND durum = True" SQL = SQL & " ORDER BY tarih DESC" kdYorum.Open SQL, adoCon, 1, 3 intHaberYorumSayisi = kdYorum.RecordCount If intHaberYorumSayisi = 0 Then Response.Write "
Henüz Yorum Yazılmamış

" Else kdYorum.PageSize = intYorumSayisi If intGecerliSayfa = "" Then G_Kayit = 1 Else G_Kayit = CInt(intGecerliSayfa) End If T_Kayit = kdYorum.PageCount If G_Kayit > T_Kayit Then G_Kayit = TKayit If G_Kayit < 1 Then G_Kayit = 1 If T_Kayit <> "" Then kdYorum.AbsolutePage = G_Kayit intLooper = 0 Do while intLooper < intYorumSayisi And Not kdYorum.Eof strYorum = MesajFormatla(kdYorum("yorum")) %>

"><%=kdYorum("yazan")%> { <%=TarihFormatla(kdYorum("tarih"),1)%> }

<%=strYorum%>

<% intLooper = intLooper + 1 kdYorum.MoveNext Loop Response.Write vbCrLf & vbTab & vbTab & vbTab &vbTab &"Diğer Sayfalar: " For intSayfaSayisi = 1 To T_Kayit If intSayfaSayisi = G_Kayit then Response.Write ""& intSayfaSayisi &". " Else Response.Write ""& intSayfaSayisi &". " End If Next Response.Write "

" End If kdYorum.Close End If '// Yorum yazma aktifse form gösteriliyor If blnKilitli = False AND blnHaberYorum = True Then %>

Yorum Yazın

<% End If End If %>