%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% 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.FromName = "America's Bride Magazine Website" Mailer.FromAddress = "info@americasbride.com" Mailer.RemoteHost = "localhost" Mailer.AddRecipient "Sarah", "sarah@americasbride.com" Mailer.AddBcc "Front Desk", "john@americasbride.com" Mailer.Subject = "Website Inquiry" Mailer.BodyText = Body Mailer.SendMail Set Mailer = Nothing Response.Redirect "index.asp" End If %>
![]() |
|||||||||||||||
![]() |
![]() |
||||||||||||||
![]() |
![]() |
![]() |
|||||||||||||