<%@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

About UsGalleryUnique ConceptsFrequently Asked Questions

 

Contact B.A.S.S. Hardscapes, LLC:

Telephone: 262-843-9377
Fax: 262-843-1654
E-Mail: info@basshardscapes.com
Mail:

B.A.S.S. Hardscapes, LLC.
18224 – 116th Street
Bristol, WI 53104

* Required Field
*Name: ">
Address: ">
City: ">
State:

Zip: ">
*Phone: ">
FAX: ">
*E-mail: ">
Contact me by: E-mail:   Phone:   Mail :
Interested in:
Additional Comments:
   
 

HomeAbout UsGalleryUnique ConceptsTerms and AgreementsSite Map