Cycling Ethics Foundation

<% Dim strName Dim strPhone Dim strEmail Dim strOccupation Dim strComments Dim strEmailText DIM CRLF Dim dtDate CRLF = Chr(13) & Chr(10) strName = Request.Form("textName") strPhone = Request.Form("textPhone") strEmail = Request.Form("textEmail") strOccupation = Request.Form("textOrganization") strComments = Request.Form("textComments") strEmailText = "Date: " & Now & CRLF & "Name: " & strName & CRLF & "Phone: " & strPhone & CRLF & "Email: " & strEmail & CRLF & "Organization: " & strOrganization & CRLF & "Comments: " & strComments Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "CEF Info Request" Mailer.FromAddress = "info@agencyforcyclingethics.org" Mailer.Subject = "Information Inquiry for CEF" Mailer.BodyText = strEmailText Mailer.RemoteHost = "mail-fwd" Mailer.AddRecipient "Paul Strauss", "pstrauss@agencyforcyclingethics.org" Mailer.SendMail %> Cycling Ethics Foundation