<%
'// 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 blnMesajOK
Dim blnGuvenlikOK
Dim blnEPosta
Dim blnIsim
Dim blnYorumIzin
Dim strKelime
Dim strKategori
Dim blnKilitli
Dim blnOnay
Dim strOnayMesaji
Dim SQL
Dim intLooper
'// Formdan Veriler Alınıyor
strHaber = Temizle(Trim(Request.Form("hid")))
strIsim = BaslikTemizle(Trim(Request.Form("isim")))
strEPosta = BaslikTemizle(Trim(Request.Form("eposta")))
strMesaj = BaslikTemizle(Trim(Request.Form("mesaj")))
'// Onay Kodu Doğrulanıyor
If blnOnayKodu Then
If Session("OnayKodu") <> "" AND Session("OnayKodu") = Temizle(Trim(Mid(Request.Form("onaykodu"), 1, 6))) Then
blnGuvenlikOK = True
Else
blnGuvenlikOK = False
End If
Session("OnayKodu") = ""
Else
blnGuvenlikOK = True
End If
'// Mesaj Düzenleniyor
If Len(strMesaj) >= 3 Then
blnMesajOK = True
Else
blnMesajOK = False
End If
'// E-Posta Doğrulanıyor
If IsMail(strEPosta) Then blnEPosta = True
'// İsim Doğrulanıyor
If Len(strIsim) >= 3 Then blnIsim = True
'// Haber Doğrulanıyor
If strHaber <> "" And IsNumeric(strHaber) Then
kdGenel.Open "SELECT haberID, yorum, kilit FROM tblHaberler WHERE durum=True AND onay=True AND haberID="& strHaber &"",adoCon, 1, 3
If Not kdGenel.EOF Then
If kdGenel("yorum") = True Then blnYorumIzin = True Else blnYorumIzin = False End If
If kdGenel("kilit") = True Then blnKilitli = True Else blnKilitli = False End If
End If
kdGenel.Close
End If %>
<%=strSiteAdi%> - Yorum Yaz
<%
'// Kontrol Sonuçlanıyor
If blnKilitli = False and blnYorumIzin = True and blnIsim = True and blnEPosta = True and blnMesajOK = True and blnGuvenlikOK = True Then
'// Admin Onayı Kontrol Ediliyor
If blnAdminOnay Then
blnOnay = False
strOnayMesaji = "Yorumunuz incelendikten sonra yayınlanacaktır."
Else
blnOnay = True
strOnayMesaji = "Yorumunuz kayıtlara eklenmiştir."
End If
'// Veritabanına Kayıt Yapılıyor
kdYorum.Open "SELECT * FROM tblYorumlar", adoCon, 1, 3
kdYorum.AddNew
kdYorum("yazan") = strIsim
kdYorum("eposta") = strEPosta
kdYorum("yorum") = strMesaj
kdYorum("haber") = strHaber
kdYorum("tarih") = Now()
If Request.ServerVariables("X_FORWARDED_FOR") = "" Then
kdYorum("ip") = Request.ServerVariables("REMOTE_ADDR")
Else
kd("ip") = Request.ServerVariables("X_FORWARDED_FOR")
End If
kdYorum("durum") = blnOnay
kdYorum.Update
kdYorum.Close
'// Ziyaretçiyi hatırlamak için çerez gönderiliyor
Response.Cookies(strCerezAdi)("isim") = strIsim
Response.Cookies(strCerezAdi)("email") = strEPosta
Response.Cookies(strCerezAdi).Expires = Now() + 30
Response.write("Yorumunuz İçin Teşekkürler "& strIsim &"" & _
vbCrLf & "