<% 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 "" 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 redkod = server.CreateObject("Adodb.Recordset") sql = "Select * from defter " redkod.open sql,conn,1,3 redkod.AddNew redkod("ad") = SQL_Koru(Request.Form("ad")) redkod("mail") = SQL_Koru(Request.Form("mail")) redkod("mesaj") = SQL_Koru(Request.Form("mesaj")) redkod("sehir") = SQL_Koru(Request.Form("sehir")) redkod("tarih") = Now() redkod.Update Response.Write "" Response.Write "" End IF End IF End IF %>