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 
%>