BİZİ ÖNERİN

Sitemizi aşağıdaki basit formu kullanarak tanıdığınız kişilere önerebilirsiniz.

Ücretsiz hizmetlerimizden faydalanmak istiyorsanız Asil Üyelik formunu doldurabilirsiniz TIKLAYIN

Yazdığınız bilgiler kesinlikle kaydedilmemektedir !

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

Tam İsminiz

e-mail 1 

Sizin e-mail adresiniz

e-mail 2

Önerdiğiniz kişinin e-mail adresi

 

 

© 2002

www.1de1.com
<% else ' Email Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") ' SMTP Ayarları objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.1and1.com" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objCDOSYSCon.Fields.Update ' CDOSYS Ayarları Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = Request.Form("T2") + "<" + Request.Form("T1") + ">" objCDOSYSMail.To = request.form("T3") objCDOSYSMail.Subject = "tavsiye ederim" objCDOSYSMail.HTMLBody = "Merhaba ben " & request.form("T2") & "
" & "
" objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody & "Mutlaka su siteyi incelemelisin ben cok begendim" & "
" & "
" objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody & "www.1de1.com" & "
" & "
" objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody & "Gorusmek uzere" & "
" & "
" ' Gönder objCDOSYSMail.Send ' Herşeyi Kapat Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing If err Then ' hata mesajını alalım Mail Gönderilmemişse.. Response.Write err.Description & "
Mesajınız Gönderilmedi.." Else ' Mail Gönderilmiş ise Response.Write("" ) End If %> <% end if %>