<%session.codepage=1254%>

RAFADAN MESAJ

 

 

Yenilenen Rafadan Mesaj ile artık kendi mesajınızı yazabilir, aynı anda 5 kişiye birden gönderebilirsiniz! Yine ücretsiz, yine sınırsız.

 

<% if (request.form("ok")<>1)then %>

Rafadan Kafanızı Seçin

 

Mesajı gönderen kişi üye değilse üye olarak kaydedilmektedir. Bu yüzden lütfen bilgilerinizi dikkatli giriniz.

Tam isminiz

Sizin e-mail adresiniz

Mesajı göndereceğiniz kişinin/kişilerin e-mail adresleri

(Birbirlerinin adreslerini görmeyeceklerdir)

Mesajınız

 

 

<% else Dim MyCDONTSMail2 Dim MyCDONTSMail3 Dim HTML Dim HTML3 Set MyCDONTSMail2 = CreateObject("CDONTS.NewMail") Set MyCDONTSMail3 = CreateObject("CDONTS.NewMail") HTML = "" HTML = HTML & "" HTML = HTML & "Rafadan Kafalar" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "

Rafadan Mesaj
" HTML = HTML & "Kimden : " & Request.Form("T2") & "" HTML = HTML & " e-mail : " & Request.Form("T1") & "

" HTML3 = HTML & "

e-mail : " & Request.Form("T3") & "
" HTML3 = HTML3 & "e-mail : " & Request.Form("T4") & "
" HTML3 = HTML3 & "e-mail : " & Request.Form("T5") & "
" HTML3 = HTML3 & "e-mail : " & Request.Form("T6") & "
" HTML3 = HTML3 & "e-mail : " & Request.Form("T7") & "

" HTML3 = HTML3 & "" HTML3 = HTML3 & "" HTML = HTML & "

" & " " & Request.Form("S1") & "

" HTML = HTML & "

Yanit vermek için TIKLAYIN

" HTML = HTML & "

www.1de1.com

" HTML = HTML & "" HTML = HTML & "" MyCDONTSMail2.From= Request.Form("T2") + "<" + Request.Form("T1") + ">" MyCDONTSMail2.To= "mail@1de1.com" MyCDONTSMail2.Bcc= request.form("T3") & ";" & request.form("T4") & ";" & request.form("T5") & ";" & request.form("T6") & ";" & request.form("T7") MyCDONTSMail2.Subject="Rafadan Mesajiniz Var..." MyCDONTSMail2.BodyFormat=0 MyCDONTSMail2.MailFormat=0 MyCDONTSMail2.Body=HTML MyCDONTSMail2.Send MyCDONTSMail3.From= Request.Form("T2") + "<" + Request.Form("T1") + ">" MyCDONTSMail3.To= "mail@1de1.com" MyCDONTSMail3.Subject="Rafadan Mesaj Mailler" MyCDONTSMail3.BodyFormat=0 MyCDONTSMail3.MailFormat=0 MyCDONTSMail3.Body=HTML3 MyCDONTSMail3.Send set MyCDONTSMail2=nothing set MyCDONTSMail3=nothing %> <% end if %>

 

© 2003

www.1de1.com