% 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 ClientName = Request.Form("Name") Email = Request.Form("Email") '*** send email notice Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "mail.usagaragecondo.com" Mailer.FromName = "USA Garage Condo" Mailer.FromAddress = "dean@usagaragecondo.com" Mailer.AddRecipient "Website", "dean@usagaragecondo.com" Mailer.Subject = "USA GARAGE CONDO INQUIRY FROM SITE" Mailer.BodyText = Body Mailer.SendMail Set Mailer = Nothing Response.Redirect "thanks.html" End If %>
USA Garage Condo : Phoenix, Arizona |
||||||||
|
||||||||
|
||||||||
|