<%
If Request.form("Status") = "Submit" then
errStr = ""
FirstName = Request.Form("FirstName")
LastName = Request.Form("LastName")
Email=Request.Form("Email")
Phone=request.form("Phone")
Comments=request.form("Comments")
Today=Now()
If FirstName = "" Then
errStr = errStr & "Missing First Name "
End If
If LastName = "" Then
errStr = errStr & "Missing Last Name "
End If
If Email = "" Then
If Phone = "" Then
errStr = errStr & "Please enter an Email Address or Phone Number "
End If
End If
If (Phone <> "") Then
phonenumber = validate_phone(Phone)
If Not (phonenumber) Then
errStr = errStr & "Invalid Phone Number "
End If
End If
If (Email <> "") Then
If chkEmail(Email) = 1 Then
errStr = errStr & "Invalid E-mail Address "
End If
End If
If Comments="" Then
errStr = errStr & "Please fill in the Comment box "
End If
If errStr = "" Then
'Send notification to administrator
Set Mailer = Server.CreateObject("CDONTS.NewMail")
Mailer.From = Email
Mailer.to = "hcs1@hawaii.rr.com"
Mailer.cc = "earth1@earthcenter.com"
Mailer.Subject = "HCS Customer Comments Submitted"
Message = "Customer Comments from HCS Web Site" & vbCrLf
Message = Message & "Customer Name: " & FirstName & " " & LastName & vbCrLf
Message = Message & "Date Submitted: " & Today & vbCrLf
Message = Message & "Phone : " & Phone & vbCrLf
Message = Message & "Email : " & Email & vbCrLf & vbCrLf
Message = Message & "Comments: " & vbCrLf
Message = Message & Comments & vbCrLf & vbCrLf
Mailer.MailFormat=0
Mailer.Body = Message
Mailer.Send
Set Mailer = Nothing
Response.Redirect "thankyou.htm"
End If
End if
%>
