%@ Language=VBScript %> <% if trim(Request.Form("Comments")) <> "" then receiverAddress = "krishunt@thomasrepro.com" set objMail=Server.CreateObject("JMail.SMTPMail") if trim(Request.Form("Email")) = "" then sender = "anonymous" else sender = trim(Request.Form("Email")) end if objMail.Sender = sender objMail.ContentType = "text/html" objMail.ServerAddress = "mail.aeproducts.com" objMail.Subject = "Feedback From A&E Website" objMail.AddRecipient(receiverAddress) objMail.Body = "
| Name: " & trim(Request.form("Name")) & " |
| Company: " & trim(Request.Form("Company")) & " |
| Address1: " & trim(Request.Form("Address")) & " |
| Address2: " & trim(Request.Form("Address2")) & " |
| Phone: " & trim(Request.Form("Phone")) & " |
| Email: " & trim(Request.Form("Email")) & " |
| Comments: " & trim(Request.Form("Comments")) & " |
Your comments and opinions are important to us. Please use this form to tell us how we are doing, and how A&E could better serve your needs. All information is optional.