%@LANGUAGE="VBSCRIPT"%> <% if (cStr(Request("Submit")) <> "") Then Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "admin@iwda.org" objCDO.To = "Tom_Leary@ci.long-beach.ca.us" objCDO.CC = "" objCDO.Subject = "Storm Drain Dumping Report" objCDO.Body = "The following information was reported via the Long Beach Clean Water Division Online Reporting Tool:" & chr(10) & chr(13) & "Type of Materials Dumped: " & Request.Form("TypeMaterials") & chr(10) & chr(13) & "Time/Date Dumping Occurred: " & Request.Form("Time") & " " & Request.Form("Month") & " " & Request.Form("Day") & chr(10) & chr(13) & "Address/Cross-Street of Dumping: " & Request.Form("Address") & chr(10) & chr(13) & "Vehicle Plate Number: " & Request.Form("VehiclePlate") & chr(10) & chr(13) & "Business Name: " & Request.Form("BizName") & chr(10) & chr(13) & "Additional Comments: " & Request.Form("AddlComments") & chr(10) & chr(13) & "Full Name: " & Request.Form("FullName") & chr(10) & chr(13) & "Daytime Phone: " & Request.Form("DaytimePhone") & chr(10) & chr(13) & "E-Mail Address: " & Request.Form("Email") & chr(10) & chr(13) objCDO.Send() Set objCDO = Nothing Response.Redirect("thankyou.asp") End If %>
|
|