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