% reqDo=request("do") if reqDo="send" then Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.biolandaritma.com.tr" ' Required 'Mail.Port = 25 ' Optional. Port is 25 by default Mail.From = "onderyigit@biolandaritma.com.tr" ' Required Mail.FromName = "Web Sitesi" ' Optional Mail.AddAddress "onderyigit@biolandaritma.com.tr", "Bilgi" 'Mail.AddCC "bjohnson@company2.com" ' Name is optional Mail.Subject = "internet Bilgi Mesajı" mailicerik="" mailicerik="
| KİŞİSEL BİLGİLER | " mailicerik = mailicerik &"|
| Ad: | " mailicerik = mailicerik &""&request("ad")&" |
| Firma Adı: | " mailicerik = mailicerik &""&request("soyad")&" |
| Açıklama | " mailicerik = mailicerik &""&request("adres")&" |
| Telefon: | " mailicerik = mailicerik &""&request("kod1")&" "&request("tel1")&" |
| Cep Telefonu: | " mailicerik = mailicerik &""&request("kod2")&" "&request("tel2")&" |
| Mail adresi: | " mailicerik = mailicerik &""&request("email")&" | "&request("sskno")&" | " mailicerik = mailicerik &"
| Bilgi :" mailicerik = mailicerik &" | "&request("bilgi")&" |
İstenilen Teklif Türü
" mailicerik = mailicerik &"| Kasko-Trafik Sigortası | " mailicerik = mailicerik &""&request("anneyukumlu")&" |
| Konut Sigortası | " mailicerik = mailicerik &""&request("babayukumlu")&" |
| İş Yeri Sigortası | " mailicerik = mailicerik &""&request("esyukumlu")&" |
| Diğer | " mailicerik = mailicerik &""&request("cocuk1yukumlu")&" |
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|