İletişim formuna yazılanlar hem DB'ye hem Maile

Merhaba arkadaşlar, elimdeki asp sistemde iletişim formuna yazılan mesajlar veritabanına kayıt oluyor ve admin panelinden okunuyor.Bunu yine veritabanına kayıt ettirsek ve aynı zamanda maile göndersek olurmu ?

Kod:

		<%
		strIsim = Temizle(Request.Form("ad"))
		strEPosta = Temizle(Request.Form("mail"))
		strKonu = Temizle(Request.Form("konu"))
		strMesaj = Temizle(Request.Form("mesaj"))
	
		If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then
	
			strHata = "<ul>"
			blnHata = False
		
			If strIsim = "" Then 
				strHata = strHata & "<li>Lütfen adınızı yazınız.</li>"
				blnHata = True
			End If
			
			If strMesaj = "" Then 
				strHata = strHata & "<li>Lütfen mesajınızı yazınız.</li>"
				blnHata = True
			End If
		
			strHata = strHata & "</ul>"
		
			If blnHata Then
			
				Response.Write strHata

				Call Form()
			
			Else
	
				SQL = "SELECT * FROM tbliletisim"
				With kdGenel
					.Open SQL, adoCon, 1, 3
					.Addnew
					.Fields("ad") = strIsim
					.Fields("mail") = strEPosta
					.Fields("mesaj") = strMesaj
					.Fields("konu") = strKonu
					.Fields("tarih") = Now()
					.Fields("ip") = Request.ServerVariables("REMOTE_ADDR")
					.Update
					.Close
				End With
							
				Response.Write "<p>Mesajınız iletilmiştir. İlgili yetkililerimiz en kısa zamanda tarafınıza ulaşacaktır.</p>"
			
			End If
		
		Else
	
			Call Form()
		
		End If
		%>

verdiğin kodla aynı değişkenlerle bide mail gönderim yapabilirsin. şu an vaktim yok yazmayı isterdim.

Evet sizin dediğinizi anladım ben. İletişim formlarındaki maile gönderme fonksiyonunu bu koda uygun hale getirmek lazım.Ama benim kodun içerisinde nereye koyacagımı bilemedim.

SQL = "SELECT * FROM tbliletisim"

satırından önce yazabilirsiniz.

teşekkür ederim öneriniz için.

Örneğin şu kodu buldum ben. Sadece AspEmail bileşenini kullanmak istiyorum.Aşağıdaki koddaki fazlalıkları temizleyerek tam olarak nasıl bir kod çıkarabilirim

<%

Sub  SendMail(SendTo,From,ReplyTo,Subject,Body,Attachments)

MailComponent=”cdo”
MailServer=”localhost”

SenderIp=Request.ServerVariables(”HTTP_X_FORWARDED_FOR”)’Sender ip

If  LCase(MailComponent=”jmail”)  Then 
     Set  Msg = Server.CreateObject( “JMail.Message” )
    Msg.ISOEncodeHeaders =  false
    Msg.AddRecipient SendTo
     If  ReplyTo<>”"  Then  Msg.ReplyTo = ReplyTo
    Msg.From = From
    Msg.Subject = Subject
    Msg.Body = Body
    If  IsArray(Attachments)  Then
         For  i = 0 To  Ubound(Attachments)
            Msg.AddAttachment Attachments(i)
         Next
     End  If
    Msg.AddHeader “Originating-IP”, SenderIp
    Msg.send(MailServer)
    Msg.close
     Set  Msg=Nothing

ElseIf  LCase(MailComponent=”aspmail”)  Then
     Set  Mailer = Server.CreateObject(”SMTPsvg.Mailer”)
    Mailer.FromAddress = From
    Mailer.AddRecipient SendTo,SendTo
     If  ReplyTo<>”"  Then  Mailer.ReplyTo = ReplyTo
    Mailer.Subject = Subject
    Mailer.BodyText = Body
    If  IsArray(Attachments)  Then
         For  i = 0 To  Ubound(Attachments)
            Mailer.AddAttachment Attachments(i)
         Next
     End  If
    Mailer.AddExtraHeader “Originating-IP: ” & SenderIp
    Mailer.RemoteHost = MailServer
    SentOK=Mailer.SendMail
     Set  Mailer=Nothing

‘ ### Send mail  with  Cdonts
ElseIf  LCase(MailComponent=”cdonts”)  Then
     Set  objNewMail = Server.CreateObject(”CDONTS.NewMail”)
    objNewMail.From = From
     If  ReplyTo<>”"  Then  objNewMail.Value(”Reply-To”) = ReplyTo
    objNewMail.Value(”Originating-IP”) = SenderIp
    objNewMail.To = SendTo
    objNewMail.Subject =Subject
    objNewMail.Body = Body
    objNewMail.BodyFormat=1
    objNewMail.MailFormat=0
    If  IsArray(Attachments)  Then
         For  i = 0 To  Ubound(Attachments)
            objNewMail.AttachFile Attachments(i)
         Next
     End  If
    objNewMail.Send
     Set  objNewMail =  Nothing

‘ ### Send mail  with  Cdo
ElseIf  LCase(MailComponent=”cdo”)  Then
     Set  cdoConfig = Server.CreateObject(”CDO.Configuration”)
    sch = “http://schemas.microsoft.com/cdo/configuration/”
    cdoConfig.Fields.Item(sch & “sendusing”) = 2
    cdoConfig.Fields.Item(sch & “smtpserver”) = MailServer
    ‘cdoConfig.Fields.Item(sch & “authenticate”) = 2
    ‘cdoConfig.Fields.Item(sch & “sendusername”) = “kullanıcı adı”
    ‘cdoConfig.Fields.Item(sch & “sendpassword”) = “şifre”
    cdoConfig.Fields.Item(sch & “smtpserverport”) = 25
    ‘cdoConfig.Fields.Item(sch & “smtpusessl”) =  False
    cdoConfig.fields.update
      Set  objNewMail = Server.CreateObject(”CDO.Message”)
     Set  objNewMail.Configuration = cdoConfig
    objNewMail.From= From
    objNewMail.To= SendTo
    objNewMail.ReplyTo= ReplyTo
    ‘objNewMail.Cc= SendTo
    ‘objNewMail.Bcc= SendTo
    objNewMail.Subject=Subject
    objNewMail.TextBody=Body
    ‘objNewMail.HtmBody = “<h1>Thtml</h1>”
    ‘objNewMail.HtmBody = “file://c|/temp/test.htm”
    ‘objNewMail.HtmBody = “http://www.bilgisayar24.com”

    If  IsArray(Attachments)  Then
         For  i = 0 To  Ubound(Attachments)
            objNewMail.AddAttachment Attachments(i)
         Next
     End  If
    objNewMail.Send
     Set  objNewMail =  Nothing 
End  If
End  Sub

SendTo=”a@bilgisayar24.com”
From=”noreply@bilgisayar24.com”
ReplyTo=”sss@bilgisayar24.com”
Subject=”konu”
Body=”Test”
SendMail SendTo,From,ReplyTo,Subject,Body,Attachments

%>

Scriptin kendi içinde mail yollama fonksiyonu var zaten. Aşağıdaki satırı o kısıma yazabilirsiniz.

Call SendMail("kimden@site.com", "mail@gidecekadres.com", strKonu, strMesaj)

Teşekkür ederim yardımınız için.Sizin verdiginiz kodu

Call SendMail(strSiteMail, strEPosta, strKonu, strMesaj)

şu şekilde değiştirdim.Hata vermedi ama maile yazılan emsaj gelmedi.Neyse ben biraz daha kurcalıyayım belki yaparım.teşekkür ederim tekrardan

Call SendMail(strSiteMail, strEPosta, strKonu, strMesaj)

kime alanına gönderen kişinin e-posta adresini yazmışsınız.

Call SendMail(strEPosta, strSiteMail, strKonu, strMesaj)

şeklinde kullanabilirsiniz.

Çok teşekkür ederim.Söylediğiniz şekilde yapınca oldu.

Rep nasıl veriliyor bilemedim ama teşekkür ederim yardımlarınız için.