 |
|||||||||||||||||
 |
|||||||||||||||||
 |
|||||||||||||||||
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
|||||
 |
 |
 |
 |
 |
 |
||||||||||||
 |
|||||||||||||||||
| <% isim = request.form("isim") soyisim = request.form("soyisim") firmaismi = request.form("firmaismi") telefon = request.form("telefon") eposta = request.form("eposta") adres = request.form("adres") istek = request.form("istek") if isim="" or soyisim="" or firmaismi="" or telefon="" or eposta="" or adres="" or istek="" then Response.Write "" Response.Write "" Response.End end if kontrol1= InStr(eposta,"@") kontrol2= InStr(eposta,".") if kontrol1="0" or kontrol2="0" then Response.Write "" Response.Write "" Response.End end if gidecekmail = "aysetemurtas@hotmail.com" Set Mail=Server.CreateObject("CDONTS.NewMail") Mail.To="aysetemurtas@hotmail.com" Mail.From="pazarlama@zirveismakine.com" Mail.Subject= "Size Gönderilen İletişim Bilgileri" mesajimiz = "Ad Soyad : " & isim & " " & soyisim & " " mesajimiz = mesajimiz & " ||| " mesajimiz = mesajimiz & " Firma İsmi : "&firmaismi&" " mesajimiz = mesajimiz & " ||| " mesajimiz = mesajimiz & " Adres : "&adres&" " mesajimiz = mesajimiz & " ||| " mesajimiz = mesajimiz & " | Gönderen E-Mail : "&eposta&" " mesajimiz = mesajimiz & " ||| " mesajimiz = mesajimiz & " Telefon : "&telefon&" " mesajimiz = mesajimiz & " ||| " mesajimiz = mesajimiz & " İstek / Öneri / Görüş : "&istek&" " Mail.Body=mesajimiz Mail.Send Response.Write "" Response.Write "" Set Mail=Nothing %> Telefon : +90 - 216 - 414 21 82 / 414 21 83 Faks : +90 - 216 - 414 13 97 E posta : iletisim@zirveismakina.com Adres : Rıhtım Caddesi Nemlizade Sokak No :21 Kadıköy / İSTANBUL
|
|||||||||||||||||
 |
|||||||||||||||||
 |
|||||||||||||||||