asp iletişim formu

Bu script ile firmanıza ait web sitenizin iletişim formunda size mail yollayabilirler...açıklamayı aşşağıda yazdım

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

Kod:

Adınız :





Soyisim :





Firmanızın Adı :





Telefon :





E-Posta :





Adres :





Öneri / İstek / Şikayet :

------------- yolla.asp -----------------------

Kod:

<%
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 "alert('Tüm alanları doldurunuz...');"
Response.Write ""
Response.End
end if

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

Response.Write "alert('Geçerli email adresi yazınız...');"
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 "alert('Mesajınız İletilmiştir..');"
Response.Write ""
Set Mail=Nothing
%>