<% @ Language=VBScript %> <% Option Explicit %> <% '// SayfanÃ„Â±n ÃƒÂ¶nbellekten alÃ„Â±nmasÃ„Â± ÃƒÂ¶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" '// Sayfa numarasÃ„Â±nÃ„Â± bul Call getQueryString("sayfaID") '// VarsayÃ„Â±lan deÃ„Å¸erler giriliyor blnHaberVar = True '// Haber verisinin olup olmadÃ„Â±Ã„Å¸Ã„Â± ve verinin sayÃ„Â± olup olmadÃ„Â±Ã„Å¸Ã„Â± kontrol ediliyor If intId = "" Or IsNumeric(intId) = False Then blnHaberVar = False Else '// Veri, sayÃ„Â±ysa veritabanÃ„Â± kontrolÃƒÂ¼ yapÃ„Â±lÃ„Â±yor kdGenel.Open "SELECT * FROM tblSayfalar WHERE durum = "& strDBTrue &" AND Sayfa_ID = "& CInt(intId) &"", 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 If Session("sayfa-"& intId) <> True Then Call SayfaHitArttir(kdGenel("hit"), intId) ' SayfanÃ„Â±n okunma sayÃ„Â±sÃ„Â± gÃƒÂ¼ncelleniyor '// SayfanÃ„Â±n bilgileri alÃ„Â±nÃ„Â±yor strHaberMetni = kdGenel("Icerik") strHaberBaslik = kdGenel("baslik") intHaberOkunma = kdGenel("hit") strHaberMetni = Replace(strHaberMetni, vbCrLf, " ", 1, -1, 1) Session("sayfa-"& 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ı: Anasayfa / <%=strHaberBaslik%>

<%End If%>

<%=strHaberMetni%>

Betta Gas Springs

Sayfa Kısayolları

Ürünlerimiz

Blog Yazılarımız