%@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 = "Request for More Info" objCDO.Body = "The following individual has requested more information about the Long Beach Clean Water Division:" & chr(10) & chr(13) & "Full Name: " & Request.Form("LastName") & ", " & Request.Form("FirstName") & chr(10) & chr(13) & "Mailing Address: " & Request.Form("StreetAddress") & ", " & Request.Form("City") & ", " & Request.Form("State") & " " & Request.Form("ZIP") & chr(10) & chr(13) & "E-Mail Address: " & Request.Form("Email") & chr(10) & chr(13) & "Description of Request: " & Request.Form("Request") objCDO.Send() Set objCDO = Nothing Response.Redirect("thankyou.asp") End If %>
|
|
|