Thank you for your interest.
We look forward to meeting you.

'; } ?> <%@Language=VBScript%> <% rem ------------------------------------ rem - Instantiate the SMTP mailer object rem - This is ASPMail from www.serverobjects.com rem ------------------------------------ Set Mailer = Server.CreateObject("SMTPsvg.Mailer") rem ------------------------------------ rem - Set the FromName and FromAddress rem - WARNING: These are REQUIRED FIELDS rem ------------------------------------ rem - use TRIM(request item) to remove extra spaces Mailer.FromName = Request.Form("first_name") & " " & Request.Form("last_name") Mailer.FromAddress = Request.Form("email") rem ------------------------------------ rem - Set the Remote Host (SMTP) Host rem - that we'll send this mail thru rem ------------------------------------ strMailHost = "mail.robotarmy.com" Mailer.RemoteHost = strMailHost rem ------------------------------------ rem - Set the recipient's address rem - that this message will go to rem ------------------------------------ Mailer.AddRecipient Request.Form("recipient"), Request.Form("email") Mailer.Subject = Request.Form("subject") For each strItem in Request.Form strBody = strBody & strItem & ": " & Request.Form(strItem) & chr(10) & chr(13) & "
" Next Mailer.BodyText = strBody if Mailer.SendMail then Response.Redirect(Request.Form("redirectSuccess")) else Response.Redirect(Request.Form("redirectError")) end if %>