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 ' xxxxxxxxxxxxxxx GİDECEK MAİL ADRESİMİZ BURADA gidecekmail = "ontedi@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 %>

E-mail adresin:
İsmin:
Başlık:
Mesajın: