<%@ Language=VBScript %> <% Function BuildNavBar %>

<% End Function %> <% Const MAX_COLUMNS = 4 Dim lngPictureIndex Dim lngColumn %> <% Initialize "ZacAndLockiesCabin", 0 %>

<%=GetTitle%>

<% BuildNavBar %>

<% lngColumn = 1 For lngPictureIndex = LBound(aryPictures) To UBound(aryPictures) If lngColumn = 1 Then %> <% End If %> <% lngColumn = lngColumn + 1 If lngColumn = MAX_COLUMNS + 1 Then %> <% lngColumn = 1 End If Next %>

<% If HasThumbnail(aryPictures(lngPictureIndex)) Then %>

<% Else %> No Index Print <% End If %>

<% BuildNavBar %>