<% Response.Charset = "iso-8859-9" %> <% blnHaberVar = True '// Formdan Veriler Alınıyor strKimden = Temizle(Request.Form("ad")) strKimlere = Temizle(Request.Form("kime")) strMesaj = Temizle(Request.Form("mesaj")) intHaberID = Temizle(Request.Form("hid")) If intHaberID = "" Or IsNumeric(intHaberID) = False Then blnHaberVar = False Else '// Veri, sayıysa veritabanı kontrolü yapılıyor kdGenel.Open "SELECT haberID, durum, onay, baslik, kategori FROM tblHaberler WHERE durum=True AND onay=True AND haberID = "& CInt(intHaberID) &"", adoCon, 1, 3 If kdGenel.EOF Then blnHaberVar = False Else strHaberBaslik = kdGenel("baslik") intHaberKategorisi = kdGenel("kategori") End If kdGenel.Close End If strKonu = strSiteAdi & " Haber Tavsiyesi" strMailGovde = "

"& strKimden &" size "& strHaberBaslik &" başlıklı haberi gönderdi.

" strMailGovde = strMailGovde & "

Okumak için tıklayın: " strMailGovde = strMailGovde & strSiteAdresi & LinkVer("haber",strHaber, strHaberBaslik, KategoriBul(intHaberKategorisi)) &"

" strMailGovde = strMailGovde & "

Arkadaşınızın mesajı:
" & strMesaj &"

" strMailGovde = strMailGovde & "

"& strSiteAdresi &"

" strMailGovde = strMailGovde & "

----------------------------------------

" strMailGovde = strMailGovde & "

MyDesign Haber Sistemi

" If strKimlere <> "" AND blnhaberVar Then arrKimlere = Split(strKimlere, vbCrLf) intLooper = 0 Do While intLooper <= UBound(arrKimlere) If IsMail(Adres) AND intLooper <= 10 Then Call SendMail(strSiteMail, arrKimlere(intLooper), strKonu, strMailGovde) intLooper = intLooper + 1 End If Loop If intLooper > 0 Then Response.Write "Teşekkürler. Mesajınız Gönderildi." Else Response.Write "Mesajınız gönderilemedi. Lütfen formu kontrol ediniz." End If Else Response.Write "Mesajınız gönderilemedi. Lütfen formu kontrol ediniz." End If %>