<% If Request.querystring("Send") <> "" Thenmsg_txt = "Yeni İletişim Formu"msg_txt = msg_txt & "
İsim: " & Request.form("FromName")msg_txt = msg_txt & "
Email: " & Request.form("From")msg_txt = msg_txt & "
Firma: " & Request.form("Firma")msg_txt = msg_txt & "
Telefon: " & Request.form("Phone")msg_txt = msg_txt & "
Mesajınız:
" & Request.form("mesaj")msg_txt = msg_txt & ""Set Mail = Server.CreateObject("Persits.MailSender")Mail.Host = "mail.site_adi.com" Mail.From = "site_email_adresi"Mail.FromName = Request.form("FromName")Mail.AddAddress ="Gidecek_mail"Mail.Subject = "Siteden Mesaj Geldi"Mail.IsHTML = True Mail.Body = msg_txtOn Error Resume NextMail.SendIf Err <> 0 Thenmsg = "Mesajiniz Gonderilememistir..Lutfen Tekrar Deneyiniz..Formu Eksiksiz Doldurunuz.!.
" & Err.Descriptionelsemsg = "Teşekkürler Mesajınız Başarıyla İletildi..."End IfEnd If%>
Asp KodBank
2 yıl önce
Melek Kentmen
355