Mesajınız: " & Request.form("mesaj")
msg_txt = msg_txt & ""
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.optisu.com"
Mail.From = Request.form("Mail")
Mail.FromName = Request.form("isim")
Mail.AddAddress "info@optisu.com"
Mail.Subject = "*****COMMUNICATION FORM*****"
Mail.IsHTML = True
Mail.Body = msg_txt
On Error Resume Next
Mail.Send
If Err <> 0 Then
msg = "Your message couldn't send..Please try again..You must fill the whole form.! " & Err.Description
else
msg = "Thanks for your message..."
End If
End If
%> Contact Us .::Optimum Water Technologies::.
