<%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@dogancicek.com"
NesneMail.To = "info@dogancicek.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.dogancicek.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@dogancicek.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.dogancicek.com in your orders.
dogancicek.com"
set NesneMail = server.createobject("CDO.Message")
NesneMail.From = "info@dogancicek.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.dogancicek.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@dogancicek.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%>
<%end if%>