ÜYELİK FORMU

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

TAM İSİM

e-mail

<% else Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = request.form("T2") Mailer.FromAddress= request.form("T1") Mailer.RemoteHost = "mail.chicagowebs.com" Mailer.AddRecipient "1de1", "mail@1de1.com" Mailer.Subject = "ÜYELİK" Mailer.BodyText = "isim : "+request.form("T2")+chr(13)+chr(10)+"e-mail : "+request.form("T1") if not Mailer.SendMail then Response.Write "Hata oluştu lütfen tekrar deneyiniz" end if end if %>