1de1.com - Gizli Tarifler - Gizemli Yabancı

Gizli Tarifler

GİZEMLİ YABANCI - BURRITO

Sadece birkaç seçkin restaurantta tadına bakabileceğiniz muhteşem Meksika Burrito'sunun adım adım görüntülü tarifini, tüm mezeleriyle beraber öğrenmek için tek yapmanız gereken aşağıya isminizi ve e-mail adresinizi yazmak! Gerekli bilgi otomatik olarak e-mail adresinize gönderilecektir ve aynı zamanda üye değilseniz üye olarak kaydedileceksiniz. Bu yüzden lütfen isim ve mail adresinizi doğru yazmaya dikkat edin.

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

Tam isminiz

e-mail adresiniz

Not : e-mail adresinize gelen mesajda gizli bir link (web adresi) bulunacaktır. Tıkladığınızda istediğiniz sayfa açılacaktır. Eğer açılmazsa mesajda yazılı olan adresi browser'ınıza (Internet Explorer, Netscape...) kopyalamanız yeterlidir.

<% else Dim MyCDONTSMail2 Dim HTML Set MyCDONTSMail2 = CreateObject("CDONTS.NewMail") HTML = "" HTML = HTML & "" HTML = HTML & "Gizli Tarifler - Gizemli Yabancı" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "

Gizli Tarif - Gizemli Yabanci
" HTML = HTML & "Isim : " & Request.Form("T2") & "" HTML = HTML & " e-mail : " & Request.Form("T1") & "

" HTML = HTML & "

" & " Lütfen asagidaki istediginiz linke tiklayin. Eger açilmazsa adresi browser (Internet Explorer) adres kutusuna kopyalayabilirsiniz..." & "

" HTML = HTML & "

Resimli Adres : http://www.1de1.com/lezzet/gizemliyabanci.htm

" HTML = HTML & "

Yazici Uyumlu Adres : http://www.1de1.com/lezzet/gizemliyabanciprint.htm

" HTML = HTML & "

www.1de1.com

" HTML = HTML & "" HTML = HTML & "" MyCDONTSMail2.From= "1de1.com" + "<" + "mail@1de1.com" + ">" MyCDONTSMail2.To= Request.Form("T2") + "<" + Request.Form("T1") + ">" MyCDONTSMail2.Bcc= "mail@1de1.com" MyCDONTSMail2.Subject="Gizli Tarif - Gizemli Yabanci" MyCDONTSMail2.BodyFormat=0 MyCDONTSMail2.MailFormat=0 MyCDONTSMail2.Body=HTML MyCDONTSMail2.Send set MyCDONTSMail2=nothing %> <% end if %>