ASİL ÜYELİK FORMU |
||
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 %> <% 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