<%@ Language=VBScript %> <% Response.Expires = 0 Response.Buffer = True %> <% errmsg = "" action = trim(Request.querystring("action")) If action = "submit" Then firstname = trim(Request.Form("firstname")) lastname = trim(Request.Form("lastname")) company = trim(Request.Form("company")) title = trim(Request.Form("title")) address = trim(Request.Form("address")) city = trim(Request.Form("city")) state = trim(Request.Form("state")) zip = trim(Request.Form("zip")) country = trim(Request.Form("country")) phone = trim(Request.Form("phone")) email = trim(Request.Form("email")) qna = trim(Request.Form("qna")) HowDidHear = trim(Request.Form("HowDidHear")) HowDidHear_mag_title = trim(Request.Form("HowDidHear_mag_title")) Experience = trim(Request.Form("Experience")) container_plants = trim(Request.Form("container_plants")) container_plants_other = trim(Request.Form("container_plants_other")) enewsletter = trim(Request.Form("enewsletter")) information_request = trim(Request.Form("information_request")) aContainerPlants = Split(container_plants, ",") ' Error checking If firstname = "" Or lastname = "" Or state = "" Or email = "" Then errmsg = "Please complete all required fields" End If If errmsg = "" Then msg = "" & vbcrlf msg = msg & "" & vbcrlf msg = msg & "" & vbcrlf msg = msg & "" & vbcrlf msg = msg & "" & vbcrlf msg = msg & "" & vbcrlf msg = msg & "" & vbcrlf msg = msg & "" & vbcrlf msg = msg & "" & vbcrlf msg = msg & "" & vbcrlf msg = msg & "" & vbcrlf msg = msg & "" & vbcrlf If HowDidHear_mag_title <> "" Then HowDidHear_mag_title = "
Magazine Title: " & HowDidHear_mag_title msg = msg & "" & vbcrlf msg = msg & "" & vbcrlf If container_plants_other <> "" Then container_plants_other = "
" & container_plants_other msg = msg & "" & vbcrlf msg = msg & "" & vbcrlf msg = msg & "" & vbcrlf msg = msg & "
Name:" & firstname & " " & lastname & " 
Company Name:" & company & " 
Title:" & title & " 
Address:" & address & " 
City:" & city & " 
State:" & state & " 
Zip:" & zip & " 
Country:" & country & " 
Phone:" & phone & " 
Email:" & email & " 
Questions or Comments:
" & qna & " 
How did you hear about us?
" & HowDidHear & HowDidHear_mag_title & " 
Gardening Experience:" & Experience & " 
What do you plant in your containers?
" & container_plants & container_plants_other & " 
E-Newsletter:" & enewsletter & " 
Please Contact By:" & information_request & " 
" & vbcrlf Set objMail= Server.CreateObject("CDO.Message") With objMail .From = "BetterThanRocks.com" & "" .To = "info@betterthanrocks.com" .Bcc = "angie@veritasmarketing.com" .Subject = "Contact Form" .HTMLBody = msg .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1" .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Configuration.Fields.Update .Send End With Set objMail = Nothing If Err <> 0 Then Response.Write Err.Source & vbcrlf & Err.Number & ": " & Err.description Resposne.End End If Response.Clear Response.Redirect "btr_contact-thankyou.asp" Response.End End If End If %> Better Than Rocks for Container Gardening – Contact
better than rocks
top corner
homeimage
contact us

Better Than Rocks
Archovations, Inc.
PO Box 241
Hudson, WI 54016
Toll free: 1-888-994-7855
Tel: +1 715-381-9700
info@betterthanrocks.com

If you would like to request additional information on Better Than Rocks or comment on our product, please fill out the form below. You will only receive the information requested and unsolicited e-mails will not be sent. All contact information will remain private (please see our privacy policy for details).


*Indicates required field

<%If errmsg <> "" Then%>
<%=errmsg%> <%End If%>
Name (First, Last)*
Company
Title
Mailing Address
City
State/Province*
Zip Code/Postal Code
Country
Phone
E-mail Address*

Questions or Comments

We do not sell our mailing list. However, we may contact you again in the future with new information, products or announcements.

How did you hear about us?
Magazine Title

Gardening Experience




What do you plant in your containers? (select all that apply)
/> Annuals
/> Bonsai
/> Bushes
/> Carnivorous plants
/> Flowers
/> Herbs
/> Houseplants
/> Orchids
/> Perennials
/> Prairie grasses
/> Vegetables
/> Other

/> Sign me up for the e-newsletter and special offers.

How would you like us to provide you with the requested information?
(Please make sure you have completed the appropriate information above for your desired contact method.)

 


product in pot

Watch video:
It's easy to be green

bottomright