. İletişim formu ************************************************ ---------------- ileti------------------------- Adınız : Soyisim : Firmanızın Adı : Telefon : E-Posta : Adres : Öneri / İstek / Şikayet : ------------- yolla.asp ----------------------- <% 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 = "alex_1952004@hotmail.com" Set Mail=Server.CreateObject("CDONTS.NewMail") Mail.To=" "&gidecekmail&" " Mail.From=" "&eposta&" " 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 %>