<%@LANGUAGE="VBSCRIPT"%> <% IF Request("submit") <> "" THEN Const Header = "Joined CNU List via online webform" Const Footer = "http://www.cnuflorida.org/_data/mailinglist_dg.asp" ' read all the form elements and place them in the variable mail_body Dim mail_Body mail_Body = Header & vbCrLf & vbCrLf mail_Body = mail_Body & "FORM submitted at " & Now() & vbCrLf & vbCrLf myemail = "john" & "@visplan.com" 'If Request.Form("SortOrder") <> "" Then 'Need to sort output 'Dim arrSortOrder 'arrSortOrder = Split(Request.Form("SortOrder"),"|") 'For each FormElement in arrSortOrder 'mail_body = mail_body & FormElement & ": " & Request.Form(FormElement) & vbCrLf 'Next 'Else 'No sorting required Dim form_element For Each FormElement in Request.Form mail_body = mail_body & FormElement & ": " & Request.Form(FormElement) & vbCrLf Next 'End If mail_Body = mail_Body & vbCrLf & Footer Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "CNU Florida Website" Mailer.FromAddress= "info@visplan.com" Mailer.RemoteHost = "127.0.0.1" Mailer.AddRecipient "John", myemail Mailer.Subject = "Contact Us form on CNU Florida" Mailer.BodyText = mail_Body if Mailer.SendMail then Response.Write "Mail sent..." else Response.Write "Mail send failure. Error was " & Mailer.Response end if END IF %> CNU Florida - the Congress for the New Urbanism

Contact Us

<% IF Request("submit") <> "" THEN %>
Thank You! Your feedback is appreciated.
<% END IF %> Please fill in the form below and let us know how we can make this website a better resource, or report any problems you may be experiencing. All fields are optional

To contact CNU Florida directly:

CNU Florida
c/o Treasure Coast Regional Planning Council
301 East Ocean Boulevard, Suite 300
Phone number – 772-221-4060
Email address – cnuflorida@tcrpc.org