<%
Email = Request.form("Email")
ToComments = Request.form("ToComments")

strEmail = "lau_jeff@yahoo.com"

strSubject = "MAILING LIST"

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "smtp.rennenauto.com"
Mailer.FromAddress = Email
Mailer.Subject = (strSubject)


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
%>