<% if request.form("name")<>"" then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = Request.form("name") 'Response.Write(Request.form("Contact") ) Mailer.FromAddress= "root@gauminc.com" 'Response.Write(Request.form ("EmailFrom")) Mailer.RemoteHost = "mail35.safesecureweb.com" 'Mailer.AddRecipient "bob g", "mgrassroots@comcast.net" Mailer.AddRecipient "Sales", "bgraham@nextstep4u.com" 'Mailer.AddRecipient "Sales", "kira@nextstep4u.com" 'Mailer.AddRecipient "Test", "hostmysite@gmail.com" Mailer.Subject = "Web Site Feedback" dim strMsgInfo for each qryItem in Request.Form strMsgInfo = strMsgInfo & qryItem & " - " & request.Form(qryItem) & vbCrLf next 'Response.Write(strMsgInfo) Mailer.BodyText = strMsgInfo if Mailer.SendMail then 'Response.Write "Mail sent..." Response.Redirect("Gaum_Incorporated_Contact_Us.html") else Response.Write "Mail send failure. Error was " & Mailer.Response end if end if %> GAUM Incorporated