| <%if request("dr")<> "ins" then
if request.querystring("chk")="hata" then%>
*** Tüm Alanların Doldurulması Zorunludur. ***
<%end if
%>
<%else%>
<%
ad=request("ad")
sad=request("sad")
mail=request("mail")
msg=request("msg")
tel=request("tel")
if (ad="") or (sad="") or (mail="") or (tel="") or (msg="") then
Response.Redirect("iletisim.php?dr=ilk&chk=hata")
end if
gun=day(date)
ay=month(date)
yil=year(date)
if gun<10 then sgun="0"&gun else sgun=gun end if
if ay<10 then say="0"&ay else say=ay end if
tarih=sgun&"/"&say&"/"&yil
cnn.execute("insert into iletisim(ad,soyad,email,isteksorun,tarih,telefon) values('"&ad&"','"&sad&"','"&mail&"','"&msg&"','"&tarih&"','"&tel&"')")
konu = chr(13) & chr(10) & " Ad-Soyad : " &ad & " " & sad & chr(13) & chr(10)
konu = konu & " Mesaj : " & msg & chr(13) & chr(10) & " Tarih : " &tarih & chr(13) & chr(10)
konu = konu & " Telefon : " & tel & chr(13) & chr(10) & " E-posta : " & mail & chr(13) & chr(10)
kimden=mail
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.efescadir.com.tr"
Mail.From = "info@efescadir.com.tr"
Mail.FromName = kimden
Mail.AddAddress mail.from
Mail.AddReplyTo kimden
Mail.Subject = "iletisim Formu"
Mail.Body = konu
Mail.Username = "info@efescadir.com.tr"
Mail.Password = "adam4053"
Mail.Send
If Err <> 0 Then
Response.Write "Hata Var: " & Err.Description
Else
%>
İlginiz İçin Teşekkürler.
Mesajınız Veri Tabanımıza Eklendi. En Kısa Zamanda Sizinle İletişime Geçilecektir.
<% end if
%>
<%end if%> |
