<%
If Request.querystring("Send") <> "" Then
msg_txt = "From Contact Form;"
msg_txt = msg_txt & "
Name-Surname: " & Request.form("FromName")
msg_txt = msg_txt & "
E-mail: " & Request.form("From")
msg_txt = msg_txt & "
Message:
" & Request.form("mesaj")
msg_txt = msg_txt & ""
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.tac-alumni.org"
Mail.From = Request.form("From")
Mail.FromName = Request.form("FromName")
Mail.AddAddress "tugla@tac-alumni.org"
Mail.Subject = "birtugladasenkoy.com contact"
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 check if you filled all blank spaces.
" & Err.Description
else
msg = "Your message has been sent. Thank you for your interest."
End If
End If
%>
BirTuglaDaSenKoy.Com Contact Form // <%=date%> //