% If Request.Form.Count > 0 Then For I = 1 to Request.Form.Count Body = Body & Request.Form.Key(I) & " " _ & Request.Form.Item(I) & vbCRLF Next '*** send email notice Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "mail.galbc.org" Mailer.FromName = Request.QueryString("email") Mailer.FromAddress = "register@galbc.org" Mailer.AddRecipient "register@galbc.org", "register@galbc.org" Mailer.Subject = "2010 Soul Food Registration" Mailer.BodyText = Body Mailer.SendMail Set Mailer = Nothing Response.Redirect "2010_individual_registration2.html" End If %>
![]() |
||||||||||||
|
|
||||||||||||
|
||||||||||||
|
||||||||||||
|
||||||||||||