<% If index = -1 Then %>

New Trail at Bradley Palmer / Willowdale Mill - June 3rd, 2006

<% Dim tableHTML Dim cellWidth cellWidth = CInt(100 / columns) tableHTML = "" For i = 0 to (rows - 1) tableHTML = tableHTML & "" & VbCrLf For j = 0 to (columns - 1) tableHTML = tableHTML & "" Next tableHTML = tableHTML & "" & VbCrLf Next Response.Write tableHTML %> " tableHTML = tableHTML & "

<% Else %> " Response.Write prevLink %> " Response.Write nextLink %>

<% Dim prevLink Dim prevIndex prevIndex = index - 1 If prevIndex < 0 Then prevIndex = imgCnt - 1 End If prevLink = "<Prev

<% Dim thumbsLink thumbsLink = " Thumbs View " Response.Write thumbsLink %> " %> " Response.Write imgSrc %> <% Response.Write imgText(index) & " <% Dim imgSrc imgSrc = "

<% Dim nextLink Dim nextIndex nextIndex = index + 1 If nextIndex >= imgCnt Then nextIndex = 0 End If nextLink = "Next>

<% End If %>