<%
' who the servey e-mail gets sent to...
EmailTo = "info@fleetstreet.net"
EmailSubject = "[FLEETSTREET] Contact Form"
' get the current request flag
Flag = Request("flag")
if Flag = "" then Flag = 0
errorMessage = ""
if Flag = 1 then
' get form varibles
Name = getAlphaNumeric(trim(Request.Form("Name")))
Address = getAlphaNumeric(trim(Request.Form("Address")))
Phone = getNumeric(trim(Request.Form("Phone")))
Email = trim(Request.Form("Email"))
Comments = getAlphaNumeric(trim(Request.Form("Comments")))
' verify values
if Name = "" then
errorMessage = errorMessage & " Please enter your Name."
end if
if Email = "" then
errorMessage = errorMessage & " Please enter your Email."
end if
if Comments = "" then
errorMessage = errorMessage & " Please enter your Comments."
end if
if errorMessage = "" then
' no errors... go ahead and send emails here
Body = "Contact Form:
"
Body = Body & "Name: " & Server.HTMLEncode(Name) & " "
Body = Body & "Email: " & Server.HTMLEncode(Email) & " "
if Address <> "" then
Body = Body & "Address: " & Server.HTMLEncode(Address) & " "
end if
if Phone <> "" then
Body = Body & "Phone: " & Phone & " "
end if
Body = Body & "Comments: " & Server.HTMLEncode(Comments) & " "
Body = Body & ""
SendHTMLEmail Name,Email,EmailTo,EmailSubject, body
' now redirect to thank you page
Response.Redirect("/contact-success.asp#form")
end if
end if
%>
FleetStreet - Integrated Branding
