<%
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. Çok mu uyanıksın..."
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") = 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
%>
