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

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

E-mail: " & Request.form("From") 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 = "E-posta adresi giriniz" & Err.Description else msg = "Bilgileriniz gönderilmiştir." End If End If %> İletişim Formu
 
<%If Request.querystring("Send") <> "" Then%> <%=msg%> <%End If%>