<% Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" %> <% Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires = -1 %> <% Function CheckCAPTCHA(valCAPTCHA) SessionCAPTCHA = Trim(Session("CAPTCHA")) Session("CAPTCHA") = vbNullString if Len(SessionCAPTCHA) < 1 then CheckCAPTCHA = False exit function end if if CStr(SessionCAPTCHA) = CStr(valCAPTCHA) then CheckCAPTCHA = True else CheckCAPTCHA = False end if End Function %> <% if Request.ServerVariables("REQUEST_METHOD") = "POST" then strCAPTCHA = Trim(Request.Form("strCAPTCHA")) if CheckCAPTCHA(strCAPTCHA) <> true then Response.Write "" else %> <% if NOT request.querystring("SID") = session.sessionID then response.write "Bu form bilgilerini ba?ka yerden gelmi?tir." response.end else Set rs = server.CreateObject("Adodb.Recordset") sql = "Select * from mesaj " rs.open sql,baglanti,1,3 adi=SQL_Koru(Request.Form("adi" )) mail=SQL_Koru(Request.Form("mail")) mesaj=SQL_Koru(Request.Form("metinalani")) IF adi="" OR mesaj="" ="" OR mail="" Then Response.Write "" Response.Write "" Else rs.AddNew rs("adi") = SQL_Koru(Request.Form("adi")) rs("mail") = SQL_Koru(Request.Form("mail")) rs("web") = (Request.Form("web")) rs("sehir") = SQL_Koru(Request.Form("sehir")) rs("secenek") = Request.Form("secenek") rs("cinsiyet") = Request.Form("cinsiyet") rs("Tarih") = Now() rs("mesaj") = mesaj rs("onay") = False rs("ip") = Request.ServerVariables("REMOTE_ADDR") rs.Update Response.Write "" Response.Write "" End IF End IF %> <% end if end if %>

Defteri OkuDeftere Yaz

 
  Deftere Mesaj Yaz
Ad Soyad : *
E-mail : *
Web Siteniz : Örnek : http://www.adimask.com
Cinsiyet :
?ehir :
Resim Seçin :

 

  Güvenlik Kodunu Giriniz.
 

( * ) Doldurulmasy Zorunlu Alanlar.


Esinti Web Design Ziyaretçi Defteri.