<%If ids= "iletisim1" Then%> <% Dim recaptcha_secret, sendstring, objXML recaptcha_secret = "6Lcw6VAUAAAAADyFynXcSwZ0x7eNybLVSk0pAfnP" sendstring = "https://www.google.com/recaptcha/api/siteverify?secret=" & recaptcha_secret & "&response=" & Request.form("g-recaptcha-response") Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP") objXML.Open "GET", sendstring, False objXML.Send bbbb = objXML.responseText Set objXML = Nothing if instr(bbbb,"true")>0 then %> <% Function Temizle(strVeri) If strVeri = "" Then Exit Function strVeri = Replace(strVeri, "<", "<") strVeri = Replace(strVeri, "/", "-") strVeri = Replace(strVeri, "\", "-") strVeri = Replace(strVeri, ">", ">") strVeri = Replace(strVeri, "[", "[") strVeri = Replace(strVeri, "]", "]") strVeri = Replace(strVeri, """", "") strVeri = Replace(strVeri, "=", "=") strVeri = Replace(strVeri, "'", "`") strVeri = Replace(strVeri, "select", "") strVeri = Replace(strVeri, "join", "") strVeri = Replace(strVeri, "union", "") strVeri = Replace(strVeri, "where", "") strVeri = Replace(strVeri, "insert", "") strVeri = Replace(strVeri, "delete", "") strVeri = Replace(strVeri, "update", "") strVeri = Replace(strVeri, "like", "") strVeri = Replace(strVeri, "drop", "") strVeri = Replace(strVeri, "create", "") strVeri = Replace(strVeri, "modify", "") strVeri = Replace(strVeri, "rename", "") strVeri = Replace(strVeri, "alter", "") strVeri = Replace(strVeri, "cast", "") Temizle = strVeri End Function adsoyad = Temizle(request.form("adsoyad")) telefon = Temizle(request.form("telefon")) mesaj = Temizle(request.form("mesaj")) eposta = Temizle(request.form("eposta")) fff = fff & "Doldurulma Tarihi :" & date()&"-"&time() &"
" fff = fff & "IP Adresi :" & Request.ServerVariables("REMOTE_ADDR") &"
" fff = fff & "Ad soyad :" & adsoyad &"
" fff = fff & "E-Posta :" & eposta &"
" fff = fff & "Telefon :" & telefon &"
" fff = fff & "Mesaj :" & mesaj &"
" sorgu="insert into iletisim(adsoyad,eposta,telefon,baslik,mesaj,tarih) values ('"&request.form("adsoyad")&"','"&request.form("eposta")&"','"&request.form("telefon")&"','"&request.form("baslik")&"','"&request.form("mesaj")&"','"&date()&"')" set rs=conn.execute(sorgu) set NesneMail = server.createobject("CDO.Message") NesneMail.From = "info@kelepircicek.com" NesneMail.To = "info@kelepircicek.com" NesneMail.Subject= "Iletisim formu dolduruldu" NesneMail.HTMLBody = fff NesneMail.TextBodyPart.Charset = "utf-8" with NesneMail.Configuration .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.kelepircicek.com" .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@kelepircicek.com" .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "rRjo70%7" .Fields.Update end with On Error Resume Next NesneMail.Send If err Then ' hata mesajını alalım. Mail gönderilmemişse.. Response.Write err.Description & "
Gonderilemedi.." end if set NesneMail = Nothing msgx1 ="" msgx1 =msgx1 & "

" msgx1 =msgx1 & "Dear customer;

Your mail has reached us and our customer service will reach you as soon as possible." msgx1 = msgx1 & "

Thank you for choosing www.kelepircicek.com in your orders.

kelepircicek.com" set NesneMail = server.createobject("CDO.Message") NesneMail.From = "info@kelepircicek.com" NesneMail.To = eposta NesneMail.Subject= "Your form has been successfully retrieved." NesneMail.HTMLBody = msgx1 NesneMail.TextBodyPart.Charset = "utf-8" with NesneMail.Configuration .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.kelepircicek.com" .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@kelepircicek.com" .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Emv7g0#3" .Fields.Update end with On Error Resume Next NesneMail.Send If err Then ' hata mesajını alalım. Mail gönderilmemişse.. Response.Write err.Description & "
Mesajınız Gönderilmedi.." end if set NesneMail = Nothing response.write "Formu doldurduğunuz için teşekkürler. En kısa sürede bilgi vereceğiz." end if %> <%else%>

Gönder

<%end if%>