%
icerik = "İletişim Formu:
"
icerik = icerik & " Ad Soyad: " & request.form("adsoyad") & "
"
icerik = icerik & " E-Posta : " & request.form("email") & "
"
icerik = icerik & " Firma Adı : " & request.form("firma") & "
"
icerik = icerik & " Şehir: " & request.form("sehir") & "
"
icerik = icerik & " İlçe : " & request.form("ilce") & "
"
icerik = icerik & " Adres : " & request.form("adres") & "
"
icerik = icerik & " Telefon : " & request.form("telefon") & "
"
icerik = icerik & " Mesaj : " & request.form("mesaj") & "
"
mserv = "mail.ekremozcan.com" ' Kendi Hostunuza Ait Mail Server Adresini Giriniz
posta = " info@ekremozcan.com" ' Kendi Hostunuzda Site Ait Olan Mail Adresiniz Giriniz.
Set obj = Server.CreateObject("Persits.MailSender")
obj.Host = mserv
obj.From = eposta
obj.AddAddress posta
obj.Subject = "İletişim Formu"
obj.Body = icerik
obj.IsHTML = True
on error resume next
obj.Send
response.redirect("tesekkur.asp")
set obj = Nothing
%>