<% @ Language=VBScript %> <% Option Explicit %> <% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' MyDesign Haber ' http://www.mydesign.gen.tr ' Yorumlar Sayfası Kodları ' Son Düzenleme: 18 Eylül 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%>

<% SQL = "SELECT * FROM tblYorumlar WHERE haber = "& intHaberID If blnAdminOnay Then SQL = SQL & " AND durum = True" SQL = SQL & " ORDER BY Tarih DESC" kdGenel.Open SQL, adoCon, 1, 3 If kdGenel.Eof Then Response.Write "

Henüz Yorum Yazılmamış

" Else Do While Not kdGenel.Eof %>

<%=MesajFormatla(kdGenel("yorum"))%>

"><%=kdGenel("yazan")%> [ <%=TarihFormatla(kdGenel("tarih"),1)%> ]

<% kdGenel.MoveNext Loop End If kdGenel.Close Else Response.Write "

Haber bulunamadı!

" End If %>