<% Response.Expires = -1 Dim ErrorMsgs() Dim ErrorCnt %> Whispering Heights & Collingwood Community Association Website
           

Neighbor to Neighbor Mailing List

<% If Request.ServerVariables("CONTENT_LENGTH") > 0 Then cEMail = "" ParseForm End If If Request.ServerVariables("CONTENT_LENGTH") > 0 And ErrorCnt = 0 Then %>Thank you. You should receive confirmation mail shortly. If you do not receive any mail within 15 minutes, please send private mail to the Postmaster and we will fix any problems that may have caused the submission to fail. <% Else If ErrorCnt > 0 Then %>

   The following errors occurred:
<% For nLoop = 0 To ErrorCnt - 1 Response.Write "   " & ErrorMsgs(nLoop) & "
" Next %>


<% End If %> Welcome to the Neighbor To Neighbor mailing list. This list is dedicated to communications that are local to the Whispering Heights and Collingwood Community area. If you would like to subscribe to this list, please enter your e-mail name below and click the submit button. You will be sent a confirmation and an introductory mail that explains the rules of the list and how to change your preferences.

Please note, E-mail names are held in strict confidence and are not available to any other outside source.
E-Mail Name:

Please Ensure Your E-Mail Address Is Correct Before Submitting
<% End If %>
<% Sub AddError(ErrorMsg) ErrorCnt = ErrorCnt + 1 If ErrorCnt = 1 Then ReDim ErrorMsgs(ErrorCnt) Else ReDim Preserve ErrorMsgs(ErrorCnt) End If ErrorMsgs(ErrorCnt - 1) = ErrorMsg End Sub Sub ParseForm cEMail = Request.Form("EMail") If Len(Request.Form("EMail")) = 0 Then AddError("You must enter an E-Mail name!") Exit Sub End If If Instr(1, cEMail, "@") = 0 Or Instr(1, cEMail, ".") = 0 Then AddError("The E-Mail name is invalid.") Exit Sub End If Set oMail = CreateObject("IPWorksASP.SMTP") oMail.MailServer = "mail.sact.com" oMail.From = cEMail oMail.SendTo = "listserv@whcca.com" oMail.Subject = "Neighbor To Neighbor Subscription" oMail.MessageText = cBody & "subscribe n2n " & cEMail & vbCRLF oMail.Send End Sub %>