|
|
<%
ElseIf Request("Pg") = "mail" Then
ad = Request.Form("ad")
soyad = Request.Form("soyad")
adres = Request.Form("adres")
tel = Request.Form("tel")
posta = Request.Form("posta")
detay = Request.Form("detay")
msg = "Sayın Psiko Akademi Yetkilisi;"
msg = msg + "Site üzerinden tarafınıza gönderilen bir mail vardır. Gönderilen mesaj detayları aşağıdadır.
"
msg = msg + "Adı: " & ad & " " & soyad & "
"
msg = msg + "Adres: " & adres & "
"
msg = msg + "Telefon: " & tel & "
"
msg = msg + "E-Posta: " & posta & "
"
msg = msg + "Detay: " & detay & ""
msg = "Adı: " & ad & "
Soyadı: " & soyad & "
Adres: " & adres & "
Telefon: " & tel & "
E-Posta: " & posta & "
Soru/Bilgi/Yorum: " & detay & ""
sbj = "Siteden Form Mail"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.psikoakademi.com.tr"
Mail.From = posta
Mail.FromName = ad
Mail.AddAddress "info@psikoakademi.com.tr"
Mail.Subject = sbj
Mail.IsHTML = True
Mail.Body = msg
Mail.Send
%>
<%
If Err <> 0 Then
msg = "Mesajınız Gönderilemedi.
" & Err.Description
Else
msg = ""
End If
Response.Write "Sayın " & ad & ";
Mesajınız tarafımıza başarıyla ulaşmıştır.
Mesajınız en kısa sürede cevaplandırılacaktır."
%> |
<% End If %>
