<%@Language=VBScript %> Contact Us - P & L Landscaping
 

Contact Us

There are 5 easy ways to contact us...

In Person

Please visit our showroom and material center at: 79 D.W. Highway, Merrimack, NH 03054 (just 1 mile north of Nashua on Old Rt. 3)

Note: The office is open Monday - Friday (hours change seasonally)

Phone/Fax

Call us at: (603)595-2802 / (603)579-0511 (fax)

Email

Send us an email to: info@pllandscaping.com

Order Online

You can now order materials directly from our Online Store

Form

...or simply complete the form below then click on the Submit icon:
<% Dim strName, strCompany, strAddress, strAddress2, strCity, strState, strZip, strPhone, strEmail, strMarketingMethod, strOtherMarketingMethod, strComments, blnError, strBody Dim strIrrigation, strLawnInstallation , strHardscapes, strLandscapeDesign, strPonds, strSnow, strMaintenance, strMaterials, strMulch Dim strResidential, strCommercial, strCondominium blnError = False If CleanStr(Request.QueryString("op")) = "s" Then strName = CleanStr(Request.Form("Name")) strCompany = CleanStr(Request.Form("Company")) strAddress = CleanStr(Request.Form("Address")) strAddress2 = CleanStr(Request.Form("Address2")) strCity = CleanStr(Request.Form("City")) strState = Request.Form("State") strZip = CleanStr(Request.Form("Zip")) strPhone = CleanStr(Request.Form("Phone")) strEmail = CleanStr(Request.Form("Email")) strMarketingMethod = CleanStr(Request.Form("marketingMethod")) strOtherMarketingMethod = CleanStr(Request.Form("otherMarketingMethod")) strComments = CleanStr(Request.Form("Comments")) strIrrigation = CleanStr(Request.Form("irrigation")) strLawnInstallation = CleanStr(Request.Form("lawnInstallation")) strHardscapes = CleanStr(Request.Form("hardscapes")) strLandscapeDesign = CleanStr(Request.Form("landscapeDesign")) strPonds = CleanStr(Request.Form("ponds")) strSnow = CleanStr(Request.Form("snow")) strMaintenance = CleanStr(Request.Form("maintenance")) strMaterials = CleanStr(Request.Form("materials")) strMulch = CleanStr(Request.Form("mulch")) strResidential = CleanStr(Request.Form("residential")) strCommercial = CleanStr(Request.Form("commercial")) strCondominium = CleanStr(Request.Form("condominium")) ' check if all required fields entered If Len(strName) < minNameLen Then Response.Write("Please enter Name
") blnError = True End If If Len(strAddress) < minAddressLen Then Response.Write("Please enter Address
") blnError = True End If If Len(strCity) < minCityLen Then Response.Write("Please enter City
") blnError = True End If If strState = "00" Then Response.Write("Please select State
") blnError = True End If If Not IsZip(strZip) Then Response.Write("Please enter Zip code
") blnError = True End If If Not IsPhoneNA(strPhone) Then Response.Write("Please enter Phone with area code
") blnError = True End If If Not IsEmail(strEmail) Then Response.Write("Please enter a valid E-mail address
") blnError = True End If If Len(strComments) > 250 Then Response.Write("Please limit Comments to 250 characters
") blnError = True End If ' if no errors send the mail If Not blnError Then strBody = "" &_ "Name: " & strName & vbCrLf &_ "Company: " & strCompany & vbCrLf &_ "Address: " & strAddress & vbCrLf &_ "Address2: " & strAddress2 & vbCrLf &_ "City: " & strCity & vbCrLf &_ "State: " & strState & vbCrLf &_ "Zip: " & strZip & vbCrLf &_ "Phone: " & strPhone & vbCrLf &_ "Marketing Method: " if (strMarketingMethod = "Other") then strBody = StrBody & "Other - " & strOtherMarketingMethod & vbCrLf else strBody = StrBody & strMarketingMethod & vbCrLf end if strBody = strBody & "Contact About: " if (strIrrigation<>"") then strBody = strBody & "Irrigation, " if (strLawnInstallation<>"") then strBody = strBody & "Lawn Installation/Hydroseeding, " if (strHardscapes<>"") then strBody = strBody & "Walls/Walkways/Patios, " if (strLandscapeDesign<>"") then strBody = strBody & "Landscape Design & Plantings, " if (strPonds<>"") then strBody = strBody & "Ponds, " if (strSnow<>"") then strBody = strBody & "Snow Services, " if (strMaintenance<>"") then strBody = strBody & "Summer Maintenance Programs, " if (strMaterials<>"") then strBody = strBody & "Materials Center Sales, " if (strMulch<>"") then strBody = strBody & "Bark Mulch Blowing, " strBody = strBody & vbCrLf strBody = strBody & "Contact For: " if(strResidential<>"") then strBody = strBody & "Residential, " if(strCommercial<>"") then strBody = strBody & "Commercial, " if(strCondominium<>"") then strBody = strBody & "Condominium, " strBody = strBody & vbCrLf strBody = strBody & "Comments: " & strComments & vbCrLf ' Dim sch ' sch = "http://schemas.microsoft.com/cdo/configuration/" ' Set cdoConfig = Server.CreateObject("CDO.Configuration") 'BEGIN TESTING SECTION (COMMENT IN FOR DEV TESTING & OUT for PRODUCTION) ' With cdoConfig.Fields ' .Item(sch & "sendusing") = 2 ' cdoSendUsingPort ' .Item(sch & "smtpserver") = "SLBIBM01" ' .Item(sch & "smtpconnectiontimeout") = 60 ' .update ' End With 'END TESTING SECTION Set objMail = Server.CreateObject("CDO.Message") ' objMail.Configuration = cdoConfig objMail.From = strEmail objMail.To = "info@pllandscaping.com" objMail.Subject = "Contact from Web Site" objMail.TextBody = strBody objMail.Send ' ***** Comment this line out if you want to simply test WITHOUT sending an email Set objMail = Nothing Set cdoConfig = Nothing Response.Clear Response.Redirect("contactus.html") End If Else strState = "00" End If %>
  * Required Information
Name:* 
Company: 
Address:* 
 
City:* 
State:* 
Zip:* 
Phone:* 
E-mail:* 
How did you find out about us: 
 
Specify:  "Other" then Response.write("disabled=""disabled""")%> size="35" maxlength="35" value="<%Response.Write(strOtherMarketingMethod)%>">
Please provide me with additional information on:
(check all that apply)
Please provide me with additional information for:
(check all that apply)
Comments:

Note: Our commitment is to get back to you within 24 hours (not including weekends)