ASİL ÜYELİK FORMU

Bu formu doldurduğunuz takdirde 1de1.com sitesinin ücretsiz hizmetlerinden faydalanabilecek ve önemli gelişmelerden haberdar olacaksınız. Kayıtlarınız özenle kontrol edilmekte ve kesinlikle gizli tutulmaktadır.

 

Daha önceden bu formu doldurduysanız bilgilerinizde değişiklik olmadığı müddetçe tekrar doldurmanıza gerek yoktur.

 

* ile işaretli alanların doldurulması zorunludur.

Tüm alanları eksiksiz doldurmanız sizin faydanıza olacaktır.  

<% if (request.form("ok")<>1)then %>
Tam İsim *
e-mail 1 *
e-mail 2
Doğum Tarihi *
Cinsiyet * Bayan      Bay
Çalıştığınız Firma
Mesleğiniz
Eğitim Durumu *
Yaşadığınız İl *
Medeni Durum Evli     Bekar

* Telefonlardan en az bir tanesinin kayıt güvenliğiniz açısından yazılması zorunludur. İş saatlerinde bulunabileceğiniz bir numara yazmanız en idealidir.

 

Kod - Numara - Dahili

Ev Telefonu -
İş Telefonu --
GSM Cep Telefonu -

Ek Bilgiler

(Hobiler , ilgiler, sosyal aktiviteler)

 

Lütfen yazmış olduğunuz bilgileri bir kez daha gözden geçirin.

 

<% 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 = "mail@1de1.com" objCDOSYSMail.Subject = "asil üyelik 2008" objCDOSYSMail.HTMLBody = "Isim : " & request.form("T2") & "
" objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody & "e-mail : " & request.form("T1") & "
" objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody & "e-mail-2 : " & request.form("T3") & "
" objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody & "Dogum Tar : " & request.form("gun") & "." & request.form("ay") & "." & request.form("yil") & "
" objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody & "Cinsiyet : " & request.form("R1") & "
" objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody & "Firma : " & request.form("T10") & "
" objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody & "Meslek : " & request.form("T4") & "
" objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody & "Egitim : " & request.form("egitim") & "
" objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody & "Sehir : " & request.form("il") & "
" objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody & "Medeni : " & request.form("R2") & "
" objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody & "Ev Tel : " & request.form("T5") & "-" & request.form("T6") & "
" objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody & "Is Tel : " & request.form("T7") & "-" & request.form("T8") & "-" & request.form("T9") & "
" objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody & "Cep Tel : " & request.form("T11") & "-" & request.form("T12") & "
" objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody & "Ek Bilgi : " & request.form("S1") ' 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 %>

 

© 2003

www.1de1.com