<%@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="william362@excite.com"
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 = "william362@excite.com"
vMail.Bcc = ""
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
%>
Contact Miller Place Civic Association
