<%
if (Request.QueryString("go"))="iletisim" Then

isim=Request.Form("NAME")
email=Request.Form("MAIL")
mesaj=Request.Form("MESSAGE")
kime="gidecekmail@mail.com" ' Formda oluşturulan mailin kime gideceğini belirten mail adresi
konu="Online İletişim Formu" ' Gönderilen mailde Subject kısmında yazacak metin
Set mektup = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
' konfigürasyon satırlarımız
objCDOSYSCon.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update
Set mektup.Configuration = objCDOSYSCon
mektup.From = email
mektup.To = kime
mektup.Subject = konu ' formdan aldığımız konu değişkeni
mektup.HtmlBody = mesaj
On Error Resume Next
mektup.Send
If Err <> 0 Then ' Eğer bir hata varsa hatayı yazdırıyoruz
 Response.Write "Sistem Hatası: " & Err.Description
 Response.Write "<br><a href=""iletisim.asp"">Geri Dön</a>"
Else ' sorun yok ve mail gönderildi ise kullanıcıya ilgili mesajı yazdırıyoruz
 Response.Write "<br><br><br><font color=#000099>Mesajınız Alınmıştır.</font><br>"
 Response.Write "<font color=#000099>En Kısa Zamanda Cevap Verilecektir.</font>"
 Response.Write "<br><a href=""iletisim.asp"">Geri Dön</a>"
End If
Set mektup = Nothing
Set objCDOSYSCon = Nothing
Else
%>
<title>İletişim</title>
<table><tr><td colspan="2"></head><h2>İletişim Formu</h2></td></tr>
<tr><td>
<form action="?go=iletisim" method="post">
İsminiz:</td><td><input type="text" name="isim" /></td></tr>
<tr><td>Mail Adresiniz:</td><td><input type="text" name="mail" /><br /></td></tr>
<tr><td>Mesajınız:</td><td><textarea name="message"></textarea><br /></td></tr>

<tr><td colspan="2"><input type="submit" value="Gönder" /></td></tr>
</form></table>
<%End if%>