shower enclosures

<% if rsCollection.EOF then %>

Coming soon

<% else %>

Click on an image below to view products within the range.

<% end if %> <% num_colDisplayed = 0 num_tableColumns = 3 ' manage how many colours the prevCollectionID = -1 currCollectionID = -1 while not rsCollection.EOF 'change the item in the loop IsMoveToNext = True currCollectionID = rsCollection.Fields.Item("CollectionID").value if currCollectionID <> prevCollectionID then prevCollectionID = currCollectionID end if if (num_colDisplayed mod num_tableColumns) = 0 then 'new row in table %> <% num_rowDisplayed = num_rowDisplayed + 1 'New row ($num_colDisplayed %$num_tableColumns)"; end if num_colDisplayed = num_colDisplayed + 1 'next Colour in row %> <% 'close column if (num_colDisplayed mod num_tableColumns) = 0 then 'end of row num_colDisplayed = 0 %> <% 'close row end if if IsMoveToNext = True and (Not rsCollection.EOF) then rsCollection.MoveNext() end if wend 'complete table columns in that row if not completed if (num_colDisplayed mod num_tableColumns) <> 0 then 'completed columns 'New row ($num_colDisplayed %$num_tableColumns)"; for i=num_colDisplayed to num_tableColumns - 1 'completed columns %> <% next %> <%'close row that wasn't completed end if 'close table rsCollection.Close() set rsCollection = nothing %>

<% CollectionID = rsCollection.Fields.Item("CollectionID").Value %> " border="0" /> <%=(rsCollection.Fields.Item("Collection").Value)%>