<% @ Language=VBScript %>
<% Option Explicit %>
<%
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' MyDesign Haber
' http://www.mydesign.gen.tr
' Yorum Yazma Formu Kodları
' Son Düzenleme: 2 Kasım 2007 (v0.5)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'// 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 intHaberID
Dim blnHaberVar
Dim strHaberBaslik
Dim intLooper
blnHaberVar = True
intHaberID = Temizle(Trim(Request.QueryString("haber")))
If intHaberID = "" Or IsNumeric(intHaberID) = False Then
blnHaberVar = False
Else
'// Veri, sayıysa veritabanı kontrolü yapılıyor
kdGenel.Open "SELECT haberID, durum, onay, baslik, kilit, yorum FROM tblHaberler WHERE durum=True AND onay=True AND yorum = True AND kilit = False AND haberID = "& CInt(intHaberID) &"", adoCon, 1, 3
If kdGenel.EOF Then
blnHaberVar = False
Else
strHaberBaslik = kdGenel("baslik")
End If
kdGenel.Close
End If
%>
<%=strSiteAdi%> - Yorum Yaz
<%
If blnHaberVar Then %>
<%=strHaberBaslik%>
<%
Else
Response.Write "Haber bulunamadı!
"
End If %>