Mesajınız: " & Request.form("Sebep")
msg_txt = msg_txt & ""
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mailscriptserver"
Mail.From = Request.form("Email")
Mail.FromName = Request.form("Adsoyad")
Mail.AddAddress "harman@harmanfolk.com"
Mail.Subject = "Kursiyer Kayır Formu"
Mail.Password = "dostluk"
Mail.IsHTML = True
Mail.Body = msg_txt
On Error Resume Next
Mail.Send
If Err <> 0 Then
msg = "Your message has not been sent... Please try it again... Please fill in Application Form completely...! " & Err.Description
else
msg = "We have received your message succesfully thanks a lot..."
End If
End If
%>
Örnek İletişim Formu // <%=date%> //