ASP ile İletişim Formu Oluşturma

Arkadaşım aşağıdaki kodda örnek bir asp script mevcut işini görebileceğini düşünüyorum....
Yolla.asp deki gidecekmail adresine kendi mail adresinizi yazın. ve aşağıdaki asp dosyalarını oluşturun. Kolay gelsin.

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

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