<% if request("a") = "" then %>
" onsubmit="return validate();">

Water Waste Report Form
Date of Observation: (mm/dd/yy) Required
Time of Observation: (hh:mm) Required
Observed Frequency of Waste: Required
Address / Location of Observation: Required
Type of Location: Required
Possible Cause of Waste: Required
Comments: Required
Name (Optional)
Phone (Optional)
Email (Optional):
 
<% elseif request("a") = "submit" then 'SEND EMAIL TO ADMIN bodyMsg = "A Wasted Water Report was submitted:

"&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ "" 'Create an instance of the NewMail object. Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = "WVWD Wasted Water " objCDOMail.To = "jmartinez@wvwd.com" 'objCDOMail.To = "caseym@computergrafixco.com" objCDOMail.BCC = "caseym@computergrafixco.com" objCDOMail.Subject = "Wasted Water Report" objCDOMail.Body = bodyMsg objCDOMail.BodyFormat = 0 ' CdoBodyFormatHTML objCDOMail.MailFormat = 0 ' CdoMailFormatMime objCDOMail.Send Set objCDOMail = Nothing response.redirect Request.ServerVariables("SCRIPT_NAME")&"?a=complete" elseif request("a") = "complete" then response.write "Thank you for your submittal and concern for our water resources." end if %>
Date of Observation:"&request("observation_date")&"
Time of Observation:"&request("observation_time")&request("ampm")&"
Observed Frequency of Waste:"&request("frequency")&"
Address/Location of Observation:"&request("location")&"
Type of Location:"&request("location_type")&"
Possible Casue of Waste:"&request("cause")&"
Comments:"&request("comments")&"
Name:"&request("name")&"
Phone:"&request("phone")&"
Email:"&request("email_address")&"
Date Submitted:"&date()&" "&time()&"