%@language=vbscript%>
<%
if Request.Form("action") = "submit" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "bongo.outtech.com"
Mail.From = Request.Form("email")
Mail.FromName = Request.Form("name")
Mail.AddAddress "info@basshardscapes.com"
Mail.Subject = "Web Inquiry"
messBody = "Submitted information is below" & vbCrLf & "--------------------------------------------------------------" & vbCrLf
messBody = messBody & "Name: " & Request.Form("name") & vbCrLf
messBody = messBody & "Address: " & Request.Form("address") & vbCrLf
messBody = messBody & "City: " & Request.Form("city") & vbCrLf
messBody = messBody & "State: " & Request.Form("state") & vbCrLf
messBody = messBody & "Zip: " & Request.Form("zip") & vbCrLf
messBody = messBody & "Phone: " & Request.Form("phone") & vbCrLf
messBody = messBody & "Fax: " & Request.Form("fax") & vbCrLf
messBody = messBody & "Email: " & Request.Form("email") & vbCrLf
messBody = messBody & "Contact Method: " & Request.Form("contact") & vbCrLf
messBody = messBody & "Interest: " & Request.Form("interest") & vbCrLf
messBody = messBody & vbCrLf & "Comments:" & vbCrLf
messBody = messBody & Request.Form("comments") & vbCrLf & vbCrLf
Mail.Body = messBody
if Mail.Send then
Set Mail = Nothing
Response.Redirect "Thanks.html"
else
Response.Write "Mail send failure. Error was " & Mail.Response
end if
end if
%>
B.A.S.S. Hardscapes, LLC