asp ders12,asp form mail hazırlama

<%
' formdan içerik al
isim = Request.form("isim")
mail = Request.form("mail")
konu = Request.form("konu")
mesaj = Request.form("mesaj")

' mektup kime gidecek abisi

kime = "admin@site-adi.com"
' bir CDO Newmail nesne ornegi yarat
Set mektup = Server.CreateObject("CDONTS.NewMail")
' çok açik, geleneksel atamalar
mektup.From = isim & " <" & mail & ">"
mektup.To = kime
mektup.Subject = konu
mektup.Body = mesaj
' hata olursa mizikçilik yapmadan devam et
on error resume next
' ve sadede geldik.
mektup.Send
' hata olusursa

If err <> 0 Then
hata = err.description
Response.Write "hata oldu: " & hata
Else ' is temizse
tebrik = "Mailiniz yolladı"
Response.Write tebrik
End If
' açtigin nesneyi kapa...
Set mektup = Nothing
' bitti
%>