Form verilerini db ye kayıttan sonra mail atmak?

Merhaba arkadaşlar.

benim bir iletişim form um var. bu form direkt db ye kayıt yapıyor (mysql)

ben form verileri db ye kayıt olduktan sonra belirlenmiş bir mail adresine otomatik olarak formu olduğu gibi mail atmasını istiyorum.

kullandığım kodu vereyim.

<%
Sub mesaj_gonder
isim = Request.Form ("isim")
yazi = Request.Form ("yazi")
telefon = Request.Form ("telefon")
mail = Request.Form ("mail")
onay = Request.Form ("onay")
tarih = Request.Form ("tarih")
kodu = Request.Form ("kodu")

if isim = "" or yazi = "" or telefon = "" or onay = "" or mail = "" then
	Response.Write "<center><font color=#457CA5 face=Verdana size=1>Lütfen Bütün Form Alanlarını Doldurunuz ! ! !</font></center>"
ElseIf request("kodu")<>request.cookies("elmakobi")("gvn") Then

	Response.Write "<center><font color=#457CA5 face=Verdana size=1>Hatalı Kod ! ! !</font></center>"

Else  


Set ObjMesaj = Server.CreateObject ("ADODB.RecordSet")
StrSql = ("Select * from iletisim")
ObjMesaj.Open StrSql, bag, 1, 3
ObjMesaj.AddNew
ObjMesaj("isim") = isim
ObjMesaj("yazi") = yazi
ObjMesaj("telefon") = telefon
ObjMesaj("mail") = mail
ObjMesaj("onay") = onay
ObjMesaj("tarih") = tarih
ObjMesaj.Update
Response.Write "<br><center>Mesajınız Alındı. En kısa zamanda yetkililer size geri dönecektir.</center>"
End if
End Sub
%>

şimdiden herkese teşekkür ederim. kolay gelsin.

http://www.aspemail.com/manual_02.html bu siteyi inceleyebilirsiniz.31.satırdan itibaren kodları yazarsanız mail atacaktır.ancak bunun için hostinginizde persits aspmail eklenitisinin kurulu olması gerekir.üçretli hostsa muhtemelen vardır.localda deneyecekseniz verdiğim siteden uygulamayı inidiriniz.

aspmail yazarak googlede aratırsanız zaten ayarların nasıl yapılacağını gösteren bir sürü yazı var.takıldığınız yerde yardımcı oluruz

Bu şekilde düzenledim ama mail göndermiyor hata da vermiyor :S

<%
Sub mesaj_gonder
isim = Request.Form ("isim")
yazi = Request.Form ("yazi")
telefon = Request.Form ("telefon")
mail = Request.Form ("mail")
onay = Request.Form ("onay")
tarih = Request.Form ("tarih")
kodu = Request.Form ("kodu")

if isim = "" or yazi = "" or telefon = "" or onay = "" or mail = "" then
	Response.Write "<center><font color=#457CA5 face=Verdana size=1>Lütfen Bütün Form Alanlarını Doldurunuz ! ! !</font></center>"
ElseIf request("kodu")<>request.cookies("elmakobi")("gvn") Then

	Response.Write "<center><font color=#457CA5 face=Verdana size=1>Hatalı Kod ! ! !</font></center>"

Else  


Set ObjMesaj = Server.CreateObject ("ADODB.RecordSet")
StrSql = ("Select * from iletisim")
ObjMesaj.Open StrSql, bag, 1, 3
ObjMesaj.AddNew
ObjMesaj("isim") = isim
ObjMesaj("yazi") = yazi
ObjMesaj("telefon") = telefon
ObjMesaj("mail") = mail
ObjMesaj("onay") = onay
ObjMesaj("tarih") = tarih
ObjMesaj.Update
Response.Write "<br><center>Mesajınız Alındı. En kısa zamanda yetkililer size geri dönecektir.</center>"

' change to address of your own SMTP server
strHost = "mail.domain_im.net"

If Request("Send") <> "" Then
   Set Mail = Server.CreateObject("Persits.MailSender")
   ' enter valid SMTP host
   Mail.Host = strHost

   Mail.From = "sunucuya ait gönderen mail adresim" ' From address
   Mail.FromName = "İletişim Formu Örneği" ' optional
   Mail.AddAddress "mail adresimi yazdım"

   ' message subject
   Mail.Subject = "İletişim Formundan Mesajınız Var."
   ' message body
   Mail.Body = StrBody
   strErr = ""
   bSuccess = False
   On Error Resume Next ' catch errors
   Mail.Send ' send message
   If Err <> 0 Then ' error occurred
      strErr = Err.Description
   else
      bSuccess = True
   End If
End If
' change to address of your own SMTP server

End if

End Sub
%>

34.satırı kendinize göre yapılandırmanız lazım

ayrıca 39.satırı silip bu üç satır kodu denermisiniz.bunlar yandexin ayarlarıdır.tabi yandexten bir mail adresi almanız lazım.bunun için kendi domaininiz içinde ayarlar buna benzerdir.host adresi mail.domain.com gibidir

Mail.Host = "smtp.yandex.com.tr"
Mail.Port = 465
Mail.Username = "kullaniciadiniz"
Mail.Password = "sifreniz"

edit:

If Request("Send") <> "" Then

bu if den geçiyor dimi

oktayman kardeş çok teşekkür ederim ben sorunu persits değlide jmail ile hallettim en son önderdiğin yandex ayarları için ayrıca teşekkür ederim oda tam aradığım şeydi. güzel oldu.

şimdi işin özeti. sitemiz için kurum.yandex.com dan mail yönlendirme aldık mail adresimizi ordan kullanıyoruz. ayrıca sitemizin iletişim bölümüne yazdığımız kodla artık siteye mesaj gelince aynı zamanda emial e de geliyor. çok iyi oldu. süpersiniz.


yani jmail ile çözdüm ama sayenizde ama bunu ben diğer sitelerimde oldu ama bir sitemde olmamıştı onda domains.live.com dan mail yönlendirme alıyorduk outlooktan kullanıyorduk mail adresini sitenin. o sitede yapaamamıştım ayarlarını sanki sizinde içinize doğduda yandex ayaarları attınız

yandex e geçmiştim sizden yardım istediğim sıra. çünki microsoft ücretli yapmıştı domains.live.com u.


çok teşekkür ederim.