| |
|
<%
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 = "cinthia@earthcenter.com;ffujimura@earthcenter.com;ltaki@earthcenter.com;awong@earthcenter.com" Mailer.Subject = "DHSB Customer Comments Submitted" Message = "Customer Comments from DHSB Web Site" & vbCrLf Message = Message & "Date Submitted: " & Today & vbCrLf & vbCrLf Message = Message & "Customer Name: " & FirstName & " " & LastName & vbCrLf & vbCrLf Message = Message & "Phone : " & Phone & vbTab & vbTab 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.asp?action=contact&name=" & FirstName End If End if %> |
