<% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' MyDesign Haber ' http://www.mydesign.gen.tr ' Tavsiye Yollama Sayfası Kodları ' Son Düzenleme: 10 Kasım 2007 (v0.5) '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ blnHaberVar = True '// Formdan Veriler Alınıyor strKimden = Temizle(Request.Form("ad")) strKimlere = Temizle(Request.Form("tomail")) 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, editor 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") If intHaberKategorisi = intKoseYazilari Then Link = LinkVer("yazar",intHaberID, strHaberBaslik, YazarBulBul(kdGenel("editor"))) Else Link = LinkVer("haber",intHaberID, strHaberBaslik, KategoriBul(intHaberKategorisi)) End If strKonu = strSiteAdi & " Haber Tavsiyesi" strMailGovde = "
" strMailGovde = strMailGovde & "

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

" strMailGovde = strMailGovde & "

Okumak için tıklayın: "& strSiteAdresi & Link &"

" strMailGovde = strMailGovde & "

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

" strMailGovde = strMailGovde & "

Mesaj Tarihi:
" & tarihFormatla(Now(),1) &"

" strMailGovde = strMailGovde & "

"& strSiteAdresi &"

" strMailGovde = strMailGovde & "

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

" strMailGovde = strMailGovde & "

MyDesign Haber Sistemi

" End If kdGenel.Close End If %> <%=strSiteAdi%> - Yorum Yaz <% If strKimlere <> "" AND blnhaberVar Then arrKimlere = Split(strKimlere, vbCrLf) intLooper = 0 Adresler = "" Do While intLooper <= UBound(arrKimlere) If IsMail(arrKimlere(intLooper)) AND intLooper <= 10 Then Call SendMail(strSiteMail, arrKimlere(intLooper), strKonu, strMailGovde) Adresler = Adresler & arrKimlere(intLooper) &"
" intLooper = intLooper + 1 End If Loop If intLooper > 0 Then Response.Write "

Teşekkürler "& strKimden &".
"& Adresler &" adreslerine mesajınız gönderildi.

Mesajınız:
"& strMailGovde &"

Pencereyi Kapat

" Else Response.Write "

Mesajınız gönderilemedi. Lütfen formu kontrol ediniz.

Geri Dön

" End If Else Response.Write "

Mesajınız gönderilemedi. Lütfen formu kontrol ediniz.

Geri Dön

" End If %>