<% FirstName = Request.form("FirstName") Email = Request.form("Email") Company = Request.form("Company") ToComments = Request.form("ToComments") HearAbout = Request.form("HearAbout") strName = "Your Name" strEmail = "lau_jeff@yahoo.com" strSubject = "Tutorial Request Example Email" strBody = ToComments & HearAbout & Company Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "mail.rennenauto.com" Mailer.FromName = FirstName Mailer.FromAddress = Email Mailer.AddRecipient strName, strEmail Mailer.Subject = (strSubject) Mailer.BodyText = strBody if Mailer.SendMail then Response.Write "_root.Mail.EmailStatus=Complete - Your mail has been sent" else Response.Write "_root.Mail.EmailStatus=Failure - Your mail was not sent - errors" Response.Write Mailer.Response end if %>