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