İletişim

<% If Request.querystring("Send") <> "" Then msg_txt = "Medium İletişim Formu" msg_txt = msg_txt & "

Ad Soyad: " & 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 & "
Adres: " & Request.form("Adres") msg_txt = msg_txt & "
Katalog istiyorum: " & Request.form("checkbox") msg_txt = msg_txt & "
Mesaj: " & Request.form("Mesaj") msg_txt = msg_txt & "" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.ddsiletisim.com.tr" Mail.From = Request.form("From") Mail.FromName = Request.form("FromName") Mail.AddAddress "info@ddsiletisim.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 = "Mesajınız Gönderilemedi.
" & Err.Description else msg = "Mesajınız Alınmıştır." End If End If %> İletişim <%If Request.querystring("Send") <> "" Then%> <%End If%>


Ad Soyad
e-mail
Firma
Telefon
Adres
Katalog istiyorum
İlgilendiğiniz Ürünler Mesaj


<%=msg%>