<%@ LANGUAGE = "VBScript" %> <% Dim thisFilename thisFilename = "TrailWork_2007_04_22_Photos.asp" Dim rows, columns, index, imgCnt index = -1 rows = 3 columns = 5 imgCnt = 13 Dim imgFilename() Dim imgDirectory imgDirectory = "photos/2007_04_22_TrailWork/" ReDim imgFilename(imgCnt) imgFilename(0) = "IMG_0034.jpg" imgFilename(1) = "IMG_0036.jpg" imgFilename(2) = "IMG_0040.jpg" imgFilename(3) = "IMG_0045.jpg" imgFilename(4) = "IMG_0049.jpg" imgFilename(5) = "IMG_0050.jpg" imgFilename(6) = "IMG_0051.jpg" imgFilename(7) = "IMG_0053.jpg" imgFilename(8) = "IMG_0054.jpg" imgFilename(9) = "IMG_0055.jpg" imgFilename(10) = "IMG_0056.jpg" imgFilename(11) = "IMG_0058.jpg" imgFilename(12) = "IMG_0059.jpg" Dim imgText() ReDim imgText(imgCnt) imgText(0) = "James & Bob working on the new entrance." imgText(1) = "Jim & Bob working on drainage." imgText(2) = "Sany & Fred working on the large drainage feature. Joe in the background." imgText(3) = "The orginal entrance all covered up with debris and organic matter." imgText(4) = "Bob working on the entrance were it splits into a 'Y'." imgText(5) = "James finishing up the new entrance." imgText(6) = "The original, covered up entrance viewed from the fire road." imgText(7) = "The large drainage feature added to the trail. Rock work used to divert the water." imgText(8) = "Another view of the drainage rock work." imgText(9) = "Joe standing in the large drainage feature that was built." imgText(10) = "William, Miguel, & Sandy working on the large drainage feature just beyond where it intersects with the trail." imgText(11) = "Miguel, William, & Sandy working on the large drainage feature." imgText(12) = "Trail care volunteers that stuck around for the ride, Left to Right: Dan, Bob, Joe, William, & Ron. Photo by Kirk." If Request.QueryString("index").Count = 1 Then index = Request.QueryString("index") End If %> North Shore NEMBA Photos
<% If index = -1 Then %>
Harold Parker Trail Work - April 22, 2007
<% 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 & "" End If Next tableHTML = tableHTML & "" & VbCrLf Next Response.Write tableHTML %>
" if i*columns+j < imgCnt Then 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 %>