<% '// Sayfanın önbelleğe alınması engelleniyor Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" '// Formdan veriler alınıyor strAd = YaziTemizle(Left(Request.Form("ad"),255)) strMail = YaziTemizle(Left(Request.Form("mail"),255)) strWeb = YaziTemizle(Left(Request.Form("web"),255)) strYer = YaziTemizle(Left(Request.Form("yer"),50)) strTel = YaziTemizle(Left(Request.Form("tel"),50)) strMesaj = YaziTemizle(Request.Form("mesaj")) stryorumturu = Request.Form("yorumturu") strfirmakodu = Request.Form("firmakodu") strfirmaadi = Request.Form("firmaadi") strOnay = YaziTemizle(Left(Request.Form("onay_kodu"),6)) strTarih = Now() blnIPBanned = False strHataMesaji = "" blnAdminMesaji = False '// Mesajın admin tarafından yazılıp yazılmadığı kontrol ediliyor If Session("mydesign") = "True" Then blnAdminMesaji = True '// IP numarası alınıyor If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" Then strIp = Request.ServerVariables("HTTP_CLIENT_IP") Else strIp = Request.ServerVariables("HTTP_X_FORWARDED_FOR") End If '// Onay Kodu Kontrol Ediliyor If blnOnayKodu Then '// Eğer Onay Kodu Fonksiyonu Aktifse If Session("guvenlik_kodu") = strOnay AND strOnay <> "" Then blnGuvenlikOK = True Else blnGuvenlikOK = False strHataMesaji = strHataMesaji & Kelime23 &"
" End If Else blnGuvenlikOK = True End If Session("guvenlik_kodu") = "" '// İsim Alanı Kontrol Ediliyor If Len(strAd) >= 3 then blnAdOK = True Else blnAdOK = False strHataMesaji = strHataMesaji & Kelime24 &"
" End If '// Mesaj Alanı Kontrol Ediliyor If Len(strMesaj) >= 3 Then blnMesajOK = True Else blnMesajOK = False strHataMesaji = strHataMesaji & Kelime25 &"
" End If '// IP Uzaklaştırılma Durumu Kontrol Ediliyor kd.Open "SELECT * FROM ip WHERE ip = '"& strIp &"'", baglanti, 1, 3 If Not kd.Eof Then blnIPBanned = True strHataMesaji = Kelime118 &"
" End If kd.Close '// Eğer Bir Hata Varsa Hatalar Yazdırılıyor If blnIPBanned = True OR blnAdOK = False Or blnMesajOK = False Or blnGuvenlikOK = False then Response.Write("" & _ vbCrlF & "" & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & "

" & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & "

" & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " Yorumunuz Gönderilemedi "& strHataMesaji &" " & _ vbCrLf & " " & _ vbCrLf & "

" & _ vbCrLf & "

" & _ vbCrLf & "" & _ vbCrLf & "") %> <% Else '// Eğer Hata Yoksa Kayıt İşlemleri Yapılıyor '// Admin Onayı Kontrol Ediliyor If blnAdminOnay Then strOnay = False strOnayMesaji = Kelime29 &"\n"& Kelime30 &"\n"& Kelime32 Else strOnay = True strOnayMesaji = Kelime29 &"\n"& Kelime31 &"\n"& Kelime32 End If '// Yasaklı kelimeler filtreleniyor kd.Open "SELECT * FROM YasakliKelimeler", baglanti, 1, 3 If Not kd.Eof Then Do While Not kd.Eof If IsNull(kd("YasakliKelime")) = False AND IsNull(kd("YeniKelime")) = False Then strAd = Replace(strAd, kd("YasakliKelime"), kd("YeniKelime"), 1, -1, 1) strYer = Replace(strYer, kd("YasakliKelime"), kd("YeniKelime"), 1, -1, 1) strMesaj = Replace(strMesaj, kd("YasakliKelime"), kd("YeniKelime"), 1, -1, 1) End If kd.Movenext Loop End If kd.Close '// Web Adresi Düzenlemesi If Not IsNull(strWeb) Then strWeb = Replace(strWeb, "http://", "", 1, -1, 1) '// Veritabanına kayıt yapılıyor kd.open "SELECT * FROM mesajlar", baglanti, 1, 3 kd.AddNew kd("ad") = strAd kd("mail") = strMail kd("web") = strWeb kd("yer") = strYer kd("mesaj") = strMesaj kd("firmakodu") = strfirmakodu kd("firmaadi") = strfirmaadi kd("yorumturu") = stryorumturu kd("tarih") = strTarih kd("ip") = strIp kd("onay") = strOnay kd("admin") = CBool(blnAdminMesaji) kd.Update '// Ekleme işlemi bittikten sonra nesneler kapatılıyor kd.Close set kd = Nothing '// bağlantı kapatılıyor baglanti.Close set baglanti = Nothing%>

		Yorum Yaz
	> Yorumunuz Başarıyla Kaydedilmiştir... Yönetici Onayından Sonra Yayınlanacaktır... Üye Sayfasına Yönlendiriliyorsunuz... ">Sayfaya Gitmek İçin Tıklayın...

<% End If %>