%
If Request.querystring("Send") <> "" Then
msg_txt = "Web Sitesinden Gelen Anket Formu"
msg_txt = msg_txt & "
Adı Soyadı: " & Request.form("isim")
msg_txt = msg_txt & "
E-Mail Adresi: " & Request.form("mail")
msg_txt = msg_txt & "
Telefon: " & Request.form("tel")
msg_txt = msg_txt & "
1-Cinsiyetiniz?: " & Request.form("soru1")
msg_txt = msg_txt & "
2-Yaş Aralığınız?: " & Request.form("soru2")
msg_txt = msg_txt & "
3-Mağazamızı hangi sıklıkta ziyaret ediyorsunuz?: " & Request.form("soru3")
msg_txt = msg_txt & "
4-Dostça mıydık, sizi memnun edebildik mi?: " & Request.form("soru4")
msg_txt = msg_txt & "
5-Size rahat sıcak bir ortam sunabildik mi?: " & Request.form("soru5")
msg_txt = msg_txt & "
6-Personelimizin ilgisinden memnun kaldınız mı?: " & Request.form("soru6")
msg_txt = msg_txt & "
7-Ürünlerimizin kalitesi nasıldı?: " & Request.form("soru7")
msg_txt = msg_txt & "
8-Firmamızın ürünleri nasıl değerlendirirsiniz?: " & Request.form("soru8")
msg_txt = msg_txt & "
9-Mağazalarımızda her aradığınız ürünü buldunuz mu?: " & Request.form("soru9")
msg_txt = msg_txt & "
Size Nasıl Ulaşalım: " & Request.form("ulasim")
msg_txt = msg_txt & "
Tavsiye edilen kişi Adı Soyadı: " & Request.form("tavsiyeisim")
msg_txt = msg_txt & "
Tavsiye edilen kişi Telefonu: " & Request.form("tavsiyetel")
msg_txt = msg_txt & "
Mesajınız: " & Request.form("mesaj")
msg_txt = msg_txt & ""
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.baylassininsaat.com.tr"
Mail.From = Request.form("From")
Mail.FromName = Request.form("FromName")
Mail.AddAddress "info@baylassininsaat.com.tr"
Mail.Subject = "İletişim Formu"
Mail.IsHTML = True
Mail.Body = msg_txt
On Error Resume Next
Mail.Send
If Err <> 0 Then
msg = "Formunuz Gönderilemedi.
" & Err.Description
else
msg = "Anket Formunuz Alınmıştır. İlginiz için Teşekkürler"
End If
End If
%>