Western Chandelier

<% Const IMGS_DIR = "/images/buyconsultants/" Dim objFSO, objFolderObject, objFileCollection, objFile Dim intFileNumberToUse, intFileLooper Dim objImageFileToUse Dim strImageSrcText Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR)) Set objFSO = Nothing Set objFileCollection = objFolderObject.Files Set objFolderObject = Nothing Randomize() intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1 intFileLooper = 1 For Each objFile in objFileCollection If intFileLooper = intFileNumberToUse Then Set objImageFileToUse = objFile Exit For End If intFileLooper = intFileLooper + 1 Next Set objFileCollection = Nothing strImageSrcText = IMGS_DIR & objImageFileToUse.Name Set objImageFileToUse = Nothing %>

Lighting Consultants

Contractor's Discount

Professional Lighting Assistance

Selections

Free Delivery

Locations / Hours

Accessories & Accents

Why stop at lighting? Many of our manufacturers have designed accents and accessories to help compliment lighting styles. Check our showroom often for that perfect accent that completes your décor!

And don’t forget ceiling fans – you’ll find just the right look and function in our huge selection of ceiling fans from some of the world’s premier manufacturers.

• Fans

• Chimes

• Furniture

• Mirrors

• Lamps

View Intro

lighting@westernchandelier.com