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

İsim: " & Request.form("isim") msg_txt = msg_txt & "
Email: " & Request.form("email") msg_txt = msg_txt & "
Firma: " & Request.form("Firma") msg_txt = msg_txt & "
Telefon: " & Request.form("telefon") msg_txt = msg_txt & "
konu " & Request.form("konu") msg_txt = msg_txt & "

Mesajınız:
" & Request.form("mesaj") msg_txt = msg_txt & "
" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "vatan-et.com" Mail.From = Request.form("From") Mail.FromName = Request.form("isim") Mail.AddAddress "vatanet@vatan-et.com" Mail.Subject = "Siteden Mesaj Geldi" Mail.IsHTML = True Mail.Body = msg_txt On Error Resume Next Mail.Send If Err <> 0 Then msg = "Mesajiniz Gonderilememistir..Lutfen Tekrar Deneyiniz..Formu Eksiksiz Doldurunuz.!.
" & Err.Description else msg = "Teşekkürler Mesajınız Başarıyla İletildi..." End If End If %>