FORMU DOLDURUN EVİNİZDE ÜCRETSİZ
KEŞİF YAPALIM
Alıntı Cevapla Konu: İletişim Formu Kodu siteden mail yollar
Gönderim Zamanı: 29.Şubat.2008 Saat 18:39
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
<%
If Request.querystring("Send") <> "" Then
msg_txt = "Yeni Servis Formu"
msg_txt = msg_txt & "
İsim: " & Request.form("FromName")
msg_txt = msg_txt & "
Email: " & Request.form("From")
msg_txt = msg_txt & "
Adres: " & Request.form("Adres")
msg_txt = msg_txt & "
Telefon: " & Request.form("Phone")
msg_txt = msg_txt & "
Mesajınız:
" & Request.form("mesaj")
msg_txt = msg_txt & ""
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.comdakal.com"
Mail.From = Request.form("From")
Mail.FromName = Request.form("FromName")
Mail.AddAddress "farfas66@hotmail.com"
Mail.Subject = "Servis Formu"
Mail.IsHTML = True
Mail.Body = msg_txt
On Error Resume Next
Mail.Send
If Err <> 0 Then
msg = "Mesajınız Gönderilemedi.
" & Err.Description
else
msg = "Mesajınız Gönderildi."
End If
End If
%>
