<% ' enquiries.php Option Explicit Dim iIterator, arrCountry, strCountry Dim strOrganisation, strEmail, strName, strAddress, strPhone, mess Dim strSubmit, strSubject, strEnquiry, strPostUser, strCompany, strArea 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" ) strArea = Request.Form ( "area" ) strPhone = Request.Form ( "phone" ) strSubject = Request.Form ( "subject" ) strEmail = Request.Form ( "email" ) strEnquiry = Request.Form ( "enquiry" ) On Error Resume Next Dim objMailer Set objMailer = Server.CreateObject("Dundas.Mailer") objMailer.FromAddress = strEmail objMailer.Subject = "Ray-O-Lite Brochure Request" objMailer.TOs.Add "gapetty@bigpond.com" Dim strBody strBody = "Ray-O-Lite Brochure form from: " & vbCrLf & vbCrLf & "Company Name: " &strCompany & vbCrLf & vbCrLf & "Name: " &strName & vbCrLf & vbCrLf & "Address: " & strAddress & vbCrLf & vbCrLf & "Phone: " & strArea & " " & strPhone & vbCrLf & vbCrLf & "Email: " & strEmail & vbCrLf & vbCrLf & strEnquiry objMailer.Body = strBody objMailer.SendMail Set objMailer = nothing mess="Your Message has been sent, Thank You" End If %> Wollongong Small Business Complex


• About Us
• Brochure
• Product Range
• Place an Order
• Contact Us

Brochure & Sample

To receive a FREE Ray-O-Lite brochure, please fill out the form below.

Company Name:
Name:
Address:
Phone:   
Email:
Subject:
Enquiry:


Email Us