Welcome to Eurolux Pty Limited importer and distributor of light fittings and light sources in southern africa. We offer outstanding quality, choice, and an extensive range of lighting solutions. Our unique lighting experience showrooms offer your company or home energy saving lighting throughout the southern tip of africa.

Products

Catalogue 08

Store Locator

News & updates

Our Profile

Contacts

	PRODUCTS

	Family Ranges
	Fans
	Ceiling Lights
	Chandeliers
	Pendants
	Downlights
	Spotlights
	Wall lights
	Floor Lamps
	Table & Desk
	African Lamps
	Kiddies/Novelty
	Bulkheads
	Outdoor Lights
	Security & floodlights
	Project Lights
	Components
	SEARCH FOR PRODUCTS

NEWS & UPDATES

NEW PRODUCTS

<% strSQL = "SELECT tbl2.CategoryID, tbl2.Category, " & _ "tbl1.ProductID, tbl1.StockCode, " & _ "tbl1.Length, tbl1.Width_Diameter, " & _ "tbl1.Height, tbl1.Depth, " & _ "tbl1.Fitting_Colour, tbl1.Glass_Colour " & _ "FROM Product tbl1, ProductCategory tbl2 " & _ "WHERE tbl1.PublicAccess = 1 AND " & _ "tbl1.NewProduct = 1 AND " & _ "tbl1.CategoryID = tbl2.CategoryID " & _ "ORDER BY tbl2.Category, tbl2.CategoryID, " & _ "tbl1.StockCode" Set rsNewProducts = con.execute(strSQL) if Not rsNewProducts.EOF then Set objFileSys = Server.CreateObject("Scripting.FileSystemObject") %> <% Do While Not rsNewProducts.EOF i_CategoryID = rsNewProducts("CategoryID") s_Category = rsNewProducts("Category") i_ProductID = rsNewProducts("ProductID") s_StockCode = Trim(rsNewProducts("StockCode")) s_Image = Left(s_StockCode, 3) & ".jpg" s_Length = Trim(rsNewProducts("Length")) s_Width_Diameter = Trim(rsNewProducts("Width_Diameter")) s_Height = Trim(rsNewProducts("Height")) s_Depth = Trim(rsNewProducts("Depth")) s_Fitting_Colour = Trim(rsNewProducts("Fitting_Colour")) s_Glass_Colour = Trim(rsNewProducts("Glass_Colour")) %> <% rsNewProducts.MoveNext Loop Set objFileSys = Nothing %>

	<%=Server.HTMLEncode(s_StockCode)%> :: <%=Server.HTMLEncode(s_Category)%> info here ::	<% if objFileSys.FileExists(Server.MapPath("images/products/" & s_Image)) then %> <% else Response.Write " " end if %>

<% end if Set rsNewProducts = Nothing %>

NEW PRODUCTS
<% strTodayDate = Date() strTodayDate = Day(strTodayDate) & " " & MonthName(Month(strTodayDate)) & " " & Year(strTodayDate) strSQL = "SELECT NewsID, Title, " & _ "ShortArticle, Photo1 " & _ "FROM News " & _ "WHERE '" & strTodayDate & "' BETWEEN StartDate AND EndDate" set rsNews = con.execute(strSQL) if Not rsNews.EOF then %>
<% do while not rsNews.EOF i_NewsID = rsNews("NewsID") s_Title = rsNews("Title") s_ShortArticle = rsNews("ShortArticle") s_Photo1 = rsNews("Photo1") %> <% rsNews.MoveNext Loop %>

	<%=Server.HTMLEncode(s_Title)%> <%=Replace(Server.HTMLEncode(s_ShortArticle), chr(10), " ")%>	<% if Not IsNull(s_Photo1) then %> <% else Response.Redirect " " end if %>

<% end if Set rsNews = Nothing %>