<% If Request.querystring("Send") <> "" Then msg_txt = "İletisim TR" msg_txt = msg_txt & "

Ad Soyad: " & Request.form("Sirket_ismi") msg_txt = msg_txt & "

Firma Adı: " & Request.form("Firma_Yetkilisi") msg_txt = msg_txt & "

Telefon No: " & Request.form("TelefonNo") msg_txt = msg_txt & "

E-mail: " & Request.form("From") msg_txt = msg_txt & "

Mesaj: " & Request.form("Mesaj") msg_txt = msg_txt & "
" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.nurcanarslan.com.tr" Mail.From = Request.form("From") Mail.FromName = Request.form("Sirket_ismi") Mail.AddAddress "bilgi@nurcanarslan.com.tr" Mail.Subject = "Iletisim Formu" Mail.IsHTML = True Mail.Body = msg_txt On Error Resume Next Mail.Send If Err <> 0 Then msg = "Posta gönderirken bir sorun oluştu.Lütfen daha sonra tekrar deneyin." & Err.Description else msg = "Mesajınız gönderilmiştir!" End If End If %> İletişim Formu
İletişim Formu
   
Ad Soyad: Lütfen doldurunuz.
Firma Adı: Lütfen doldurunuz.
Telefon No: Lütfen doldurunuz.
E-mail: Lütfen doldurunuz.
   
 
 


   
<%If Request.querystring("Send") <> "" Then%> <%=msg%> <%End If%>