This old established company has been providing décor for the people and companies of Cape Town for over 20 Years.

Not only do we provide custom made décor; but also hire standard stock items, any of which can be viewed at our warehouse.

Winter Special
25% Off
On all goods ordered, taken and returned from 10th May, 2010 to 27th August, 2010
This applies to all hired goods as well as the sale of candles and serviettes

Soccer World Cup
We can custom design your function.
Here are only a few of our suggested center pieces:

<% Dim ImagePath, ShortPath, FullImagePath, ThumbPath ShortPath = "gallery/frontpage/" ImagePath = ShortPath & "thumbs/" %><% ThumbPath = UrlPath & ImagePath FullImagePath = UrlPath & ShortPath & "/full/" ListFolderContents(Server.MapPath(ImagePath)) %> <% sub ListFolderContents(path) dim fs, folder, file, item, url set fs = CreateObject("Scripting.FileSystemObject") set folder = fs.GetFolder(path) 'Get the list of sub folders. for each item in folder.SubFolders ListFolderContents(item.Path) next 'Display a list of files. Response.Write("") Dim ThumbName, ImageCount, Extension ImageCount = 0 for each item in folder.Files ThumbName = MapUrl(item.path) Extension = Right(UCASE(ThumbName), 3) If Extension = "JPG" THEN ImageCount = ImageCount + 1 IF Imagecount = 4 Then ThumbUrl = ThumbPath & ThumbName FullUrl = FullImagePath & ThumbName Response.Write("") ImageCount = 0 ELSE ThumbUrl = ThumbPath & ThumbName FullUrl = FullImagePath & ThumbName Response.Write("") END If End If next end sub function MapURL(path) dim rootPath, url 'Convert a physical file path to a URL for hypertext links. rootPath = Server.MapPath(ImagePath) url = Right(path, Len(path) - Len(rootPath) - 1) MapURL = Replace(url, "\", "/") end function %>