<% ' enquiries.php Option Explicit Dim iIterator, arrCountry, strCountry Dim strOrganisation, strEmail, strName,strAddress, mess, strPhone Dim strSubmit, strSubject, strComments, strPostUser, strProduct, strQuantity, strPrice, strArea, strCompany, strShipping mess="" strPostUser= Request.Form ( "submit" ) If strPostUser="submit" Then 'checking for update of text areas strCompany = Request.Form ( "company" ) strName = Request.Form ( "name" ) strAddress = Request.Form ( "address1" ) & " " & Request.Form ( "address2" ) strPhone = Request.Form ( "phone" ) strProduct = Request.Form ( "product" ) strQuantity = Request.Form ( "quantity" ) strPrice = Request.Form ( "price" ) strArea = Request.Form ( "area" ) strEmail = Request.Form ( "email" ) strComments = Request.Form ( "enquiry" ) strShipping = Request.Form ( "shipping" ) strSubject = "Line-O-Dot Online Order for" & strName On Error Resume Next Dim objMailer Set objMailer = Server.CreateObject("Dundas.Mailer") objMailer.FromAddress = strEmail objMailer.Subject = "Popular Rapid Lawn Aerator Order from " & strName objMailer.TOs.Add "gapetty@bigpond.com" Dim strBody strBody = "Lawn Aerator Order" & vbCrLf & vbCrLf &"Name: " & strName & vbCrLf &"Address: " & strAddress & vbCrLf & "Phone: " & strArea & " " & strPhone & vbCrLf &"Email: " & strEmail & vbCrLf & "Quantity: " & strQuantity & vbCrLf & "Product: " & strProduct & vbCrLf & "Price: " & strPrice & vbCrLf &"Comments: "& vbCrLf & strComments objMailer.Body = strBody objMailer.SendMail Set objMailer = nothing mess="Your Message has been sent, Thank You" End If %> Rapid Lawn Aerator


• About Rapid Lawn Aerator
• Product Range
• Aerator Gallery
• Pricelist
• Place an Order
• Contact Us

Order Your Compost Tumbler from RotoplasDirect.com.au

Place an Order

<%=mess%>

To Place and order for Lawn Aerators please visit us at Goshoppingdirect.com.au
Thank You.