<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
dim vError
vError=""
Function Validate()
vError=""
Dim vMail,vtxtEmail,vtxtAreaCode
Validate = true
if Request("txtValidate")="frmContact" then
if instr(Request("txtEmail"),"@")=0 or instr(Request("txtEmail"),".")=0 OR Request("txtEmail")="" then
Validate = false
vError = vError & "Invalid email address
"
end if
if Request("txtAreaCode")="" or len (Request("txtAreaCode"))<>3 then
Validate = false
vError = vError & "Invalid area Code
"
end if
if Request("txtPhoneA")="" or len(Request("txtPhoneA"))<>3 then
Validate = false
vError = vError & "Invalid phone number
"
end if
if Request("txtPhoneB")="" or len(Request("txtPhoneB"))<>4 then
Validate = false
vError = vError & "Invalid phone number
"
end if
if Request("txtName")="" or Isnull(Request("txtName")) then
Validate = false
vError = vError & "Name required
"
end if
if Request("txtMessage")="" or Isnull(Request("txtMessage")) then
Validate = false
vError = vError & "Message required
"
end if
if Request("cboTopic")="" then
Validate = false
vError = vError & "Invalid Topic
"
end if
end if
End Function
Dim vMail,vName
Dim vMessage
if Request("txtValidate")="frmContact" and Validate then
Dim vSendTo
vSendTo="admin@millerplacecivic.org"
vName=request.form("txtName")
vMessage= vMessage & "Contact Name: " & request("txtName") & chr(13)
vMessage= vMessage & "Contact Email: " & request("txtEmail") & chr(13)
vMessage= vMessage & "Contact Phone: " & "(" & request("txtAreaCode") & ") " & request("txtPhoneA") & "-" & request("txtPhoneB") & chr(13)
vMessage= vMessage & request("txtMessage")
Set vMail = Server.CreateObject("CDONTS.NewMail")
vMail.From = request("txtEmail")
vMail.To = vSendTo
vMail.Cc = "apctravel@aol.com,jgtech@optonline.net,joe_civic@millerplacecivic.org"
vMail.Bcc = "apctravel@aol.com"
vMail.Subject = request("cboTopic")
vMail.BodyFormat = 1
vMail.MailFormat = 0
vMail.Importance = 1
vMail.Body = vMessage
vMail.Send
Set vMail = Nothing
Response.Redirect("default.asp")
end if
%>
Civic Application
Dear Neighbors,
The Miller Place Civic Association has been serving our community since 1972.
Our mission is to continue to maintain and improve the quality of life in this
historic hamlet and we request your support and member ship.
We currently need help with community issues such as:
Zoning, Environment, School Affairs, Beautification, Architectural Integrity,
Traffic
We welcome your help!
Kathy Rousseau ~ President
