İletişim formu

kime mail gelecek ise yolla.asp deki gidecekmail yerinin karşısındakini kendinize göre uyarlayın.
cdonts mail bileşeni ile mail yollamaktadır.
.hadi kolay gelsin.

---------------- ileti.asp -------------------------

<form method="post" action="yolla.asp">
Adınız :
<br>
<input type="text" size="20" name="isim">
<br>
Soyisim :
<br>
<input type="text" size="20" name="soyisim">
<br>
Firmanızın Adı :
<br>
<input type="text" size="20" name="firmaismi">
<br>
Telefon :
<br>
<input type="text" size="20" name="telefon">
<br>
E-Posta :
<br>
<input type="text" size="20" name="eposta">
<br>
Adres :
<br>
<input type="text" size="20" name="adres">
<br>
Öneri / İstek / Şikayet :
<br>
<textarea name="istek"></textarea>
<br>
<input name="submit" type="submit" value=" Gönder ">
</form>



------------- 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 "<script language='JavaScript'>alert('Tüm alanları doldurunuz...');</script>"
Response.Write "<meta http-equiv='Refresh' content='1; URL=ileti.asp'>"
Response.End
end if

kontrol1= InStr(eposta,"@")
kontrol2= InStr(eposta,".")
if kontrol1="0" or kontrol2="0" then

Response.Write "<script language='JavaScript'>alert('Geçerli email adresi yazınız...');</script>"
Response.Write "<meta http-equiv='Refresh' content='1; URL=ileti.asp'>"
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 "<script language='JavaScript'>alert('Mesajınız İletilmiştir..');</script>"
Response.Write "<meta http-equiv='Refresh' content='1; URL=ileti.asp'>"
Set Mail=Nothing
%>

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

� letişim formu