<% @ 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" Dim strHaberLink, strHGaleri,strHaberResim Call getQueryString("haberID") blnHaberVar = True If intId = "" Or IsNumeric(intId) = False Then blnHaberVar = False Else kdGenel.Open "SELECT * FROM tblHaberler WHERE durum="& strDBTrue &" AND onay="& strDBTrue &" AND kategori <> "& intKoseYazilari &" AND haberID = "& CInt(intId) &"", adoCon, 1, 3 If kdGenel.EOF Then blnHaberVar = False Else If Session("haberci"& intId) <> True Then Call HitArttir(kdGenel("okunma"), intId) ' Haberin okunma sayısı güncelleniyor strHGaleri = kdGenel("HGaleriID") 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 = ResimBul(kdGenel("resim")) strHaberMetni = Replace(strHaberMetni, vbCrLf, " ", 1, -1, 1) intIcerikIDPuan = Temizle(Request.Cookies(strCerezAdi)("Puan"& intId)) Link = LinkVer("haber", intId, strHaberBaslik, KategoriBul(intHaberKategori)) Link = Mid(Link, Len(strScriptYolu), Len(Link)) strHaberLink = strSiteAdresi & Link intHaberPuan = PuanHesapla(intHaberPuan, intHaberOySayisi) ' Haber puanı Session("haberci"& intId) = True End If kdGenel.Close End If %> <% If blnHaberVar Then Response.Write strHaberBaslik &" - " %><%=strSiteAdi%>
<% '// Haber bulunamasdıysa mesaj yazılıyor If blnHaberVar = False Then Response.Write("

Yanlış sayfa numarası seçtiniz.

") '// Uygun kayıt varsa gösteriliyor Else %>

Betta Gas Springs

<%=strHaberBaslik%>
// Sayfa Adı: "><%=KategoriBul(intHaberKategori)%> / <%=strHaberBaslik%>
<%End If%>
  • <% If Len(strHaberResim) > 3 Then Response.Write("") %>
    <% If strHGaleri <> 0 and IsNumeric(strHGaleri) = True Then Dim GFotoK, GFotoB, GAciklama kdMenu.Open LimitSQLOLustur("kucuk_resim, resim FROM tblFoto WHERE galeri_id = "&strHGaleri&"", "6"), adoCon, 1, 3 If Not kdMenu.Eof Then intLooper = 1 Do While Not kdMenu.Eof AND intLooper <= 6 GFotoK = ResimBul(kdMenu("kucuk_resim")) GFotoB = ResimBul(kdMenu("resim"))%>
  • <%=GAciklama%>
    • <% intLooper = intLooper + 1 kdMenu.Movenext Loop End If kdMenu.Close End If%>

<%=strHaberMetni%>

Sayfa Kısayolları

Ürünlerimiz

Blog Yazılarımız