<% AdSoyad = request.form("adsoyad") Email = request.form("email") Telefon = request.form("telefon") Mesaj = request.form("mesaj2") model= request.form("model") marka = request.form("marka") icerik = "Iletisim Formu:

" icerik = icerik & " Ad Soyad: " & request.form("adsoyad") & "
" icerik = icerik & " E-Posta : " & request.form("email") & "
" icerik = icerik & " Telefon : " & request.form("telefon") & "
" icerik = icerik & " Aracin Markasi : " & request.form("marka") & "
" icerik = icerik & " Aracin Modeli : " & request.form("model") & "
" icerik = icerik & " Mesaj : " & request.form("mesaj2") & "
" mserv = "mail.akbasoto.com" ' Kendi Hostunuza Ait Mail Server Adresini Giriniz posta = "tahsinakbas@akbasoto.com" ' Kendi Hostunuzda Site Ait Olan Mail Adresiniz Giriniz. eposta = "tahsinakbas@akbasoto.com" Set obj = Server.CreateObject("Persits.MailSender") obj.Host = mserv obj.From = eposta obj.AddAddress posta obj.Subject = "Siteden Mail Var" obj.Body = icerik obj.IsHTML = True on error resume next obj.Send %> <%'For Each alan in Request.Form 'ileti=ileti & alan & ": " & Request.Form(alan) & "
" 'ileti = ileti & " Ad Soyad: " & request.form("adsoyad") & "
" 'ileti = ileti & " E-Posta : " & request.form("email") & "
" 'ileti = ileti & " Şehir: " & request.form("sehir") & "
" ' ileti = ileti & " Telefon : " & request.form("telefon") & "
" 'ileti = ileti & " Aracin Modeli : " & request.form("model") & "
" 'ileti = ileti & " Markasi : " & request.form("marka") & "
" 'ileti = ileti & " Mesaj : " & request.form("mesaj2") & "
" 'Next 'Set JMail = Server.CreateObject("JMail.SMTPMail") 'E-posta sunucunuzun adresi 'JMail.ServerAddress = "mail.akbasoto.com" 'JMail.ContentType = "text/html" 'JMail.Charset = "ISO-8859-9" 'JMail.Sender = Request.Form("email") 'JMail.Sendername = Request.Form("adsoyad") 'E-posta adresinize gelecek olan iletinin konusu. Bu kismi 'özellestirebilirsiniz. 'JMail.Subject = "Web Sitesinden Gelen Mail..." 'Formun hangi e-posta adresine gidecegi 'JMail.AddRecipient "tahsinakbas@akbasoto.com" 'JMail.AddRecipientBCC "" 'JMail.HTMLBody = ileti 'JMail.Execute Response.Write("") set obj = Nothing %>