Line-O-Dot

<% ' 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 = "Line-O-Dot Online Order for" & strName 'objMailer.TOs.Add "komradkroutski@hotmail.com" objMailer.TOs.Add "gapetty@bigpond.com" Dim strBody strBody = "Line-O-Dot Order from: " & vbCrLf & vbCrLf & "Name: " &strName & vbCrLf & "Address: " & strAddress & vbCrLf & "Phone: " & strArea & " " & strPhone & vbCrLf & "Email: " & strEmail & vbCrLf & "Quantity (no. of Boxes): " & 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 %> Line-O-Dot

• About Us
• Brochure & Sample
• Colour Range
• Installation Instructions
• Layout Patterns
• Place an Order
• Supply & Install
• Typical Applications
• Where to See Line-O-Dot
• Contact Us

Order Your Line-O-Dot order from GoShoppingDirect.com.au

Place an Order

<%=mess%>

To Place and order for Line-O-Dot please visit us at GoShoppingDirect.com.au
Thank You.