<%@ LANGUAGE = "VBScript" %> <% Dim thisFilename thisFilename = "TrailWork_2006_05_21_Photos.asp" Dim rows, columns, index, imgCnt index = -1 rows = 6 columns = 5 imgCnt = 30 Dim imgFilename() Dim imgDirectory imgDirectory = "photos/2006_05_21_TrailWork/" ReDim imgFilename(imgCnt) imgFilename(0) = "5-20-06-06.jpg" imgFilename(1) = "5-20-06-10.jpg" imgFilename(2) = "5-20-06-15.jpg" imgFilename(3) = "5-20-06-16.jpg" imgFilename(4) = "5-20-06-17.jpg" imgFilename(5) = "5-20-06-20.jpg" imgFilename(6) = "5-20-06-26.jpg" imgFilename(7) = "5-20-06-27.jpg" imgFilename(8) = "5-20-06-31.jpg" imgFilename(9) = "5-20-06-52.jpg" imgFilename(10) = "5-20-06-55.jpg" imgFilename(11) = "5-20-06-56.jpg" imgFilename(12) = "5-20-06-58.jpg" imgFilename(13) = "5-20-06-64.jpg" imgFilename(14) = "5-20-06-68.jpg" imgFilename(15) = "5-20-06-78.jpg" imgFilename(16) = "5-20-06-79.jpg" imgFilename(17) = "IMG_0027.jpg" imgFilename(18) = "IMG_0030.jpg" imgFilename(19) = "IMG_0043.jpg" imgFilename(20) = "IMG_0048.jpg" imgFilename(21) = "IMG_0050.jpg" imgFilename(22) = "IMG_0054.jpg" imgFilename(23) = "IMG_0062.jpg" imgFilename(24) = "IMG_0065.jpg" imgFilename(25) = "IMG_0066.jpg" imgFilename(26) = "IMG_1997.jpg" imgFilename(27) = "IMG_2000.jpg" imgFilename(28) = "IMG_2002.jpg" imgFilename(29) = "IMG_2009.jpg" Dim imgText() ReDim imgText(imgCnt) For i = 0 to (imgCnt - 1) imgText(i) = "" Next imgText(0) = "Joe Re, Greater Boston VP, looking over his copy of 'Trail Solutions' that each student received. Photo by Lee Hollenbeck." imgText(1) = "Students at Saturday's trail school in Harold Parker State Forest. Photo by Lee Hollenbeck." imgText(2) = "Students at Saturday's trail school in Harold Parker State Forest. Photo by Lee Hollenbeck." imgText(3) = "Students at Saturday's trail school in Harold Parker State Forest. Photo by Lee Hollenbeck." imgText(4) = "Students at Saturday's trail school in Harold Parker State Forest. Photo by Lee Hollenbeck." imgText(5) = "Philip Keyes, NEMBA Executive Director, speaking at Saturday's trail school. Photo by Lee Hollenbeck." imgText(6) = "Scott Linnenburger and Aaryn Kay from IMBA's Trail Solutions Consulting program. Photo by Lee Hollenbeck." imgText(7) = "Frank Lane, North Shore NEMBA President, during the 'classroom' portion of Saturday's trail school. Photo by Lee Hollenbeck." imgText(8) = "Aaryn Kay, IMBA Trail Care Crew Coordinator, speaking during the 'classroom' portion of the trail school. Photo by Lee Hollenbeck." imgText(9) = "Scott Linnenburger, IMBA Field Programs Manager, discussing proper use of a McLeod. Photo by Lee Hollenbeck." imgText(10) = "Tatyana, Bruce, and Frank working during Saturday's trail school. Photo by Lee Hollenbeck." imgText(11) = "Volunteers clearing the tread of the eastern trail section during Saturday's trail school. Photo by Lee Hollenbeck." imgText(12) = "Scott during one of his 'water damage' discussions. Photo by Lee Hollenbeck." imgText(13) = "Scott discussing drainage solutions at the top of the Terry Trail. Photo by Lee Hollenbeck." imgText(14) = "A little rock work during Saturday's trail school. Photo by Lee Hollenbeck." imgText(15) = "Bruce & Joe helped with some very nice rock work that is on an alternative technical line. Photo by Lee Hollenbeck." imgText(16) = "Volunteers cutting a bench during Saturday's trail school. Photo by Lee Hollenbeck." imgText(17) = "Joe Dizazzo during Sunday's trail care event. Joe worked on the trail layout and scratching of the tread prior to the weekend's events. He then spent three days finishing up the trail the following week." imgText(18) = "Fred, North Shore VP, digging a bleeder for drainage during Sunday's trail care event." imgText(19) = "Dan and Frank preparing to install the boardwalk during Sunday's trail care event." imgText(20) = "Andy working on the tread during Sunday's trail care event." imgText(21) = "Bob, Merrimack Valley NEMBA VP, working on the tread during Sunday's trail care event." imgText(22) = "Ron and Dave during Sunday's trail care event." imgText(23) = "Bob clearing the approach to a rock in the trail." imgText(24) = "Sunday's volunteers: Dan, Bob, Fred, Andy, RJ, Frank, Ron, Joe, & Kirk." imgText(25) = "Frank riding the new trail during the post trail work group ride." imgText(26) = "Kirk and RJ smoothing out a rocky section of the trail during Sunday's trail care event." imgText(27) = "Kirk tamping down some fill." imgText(28) = "Bob digging a bleeder for drainage." imgText(29) = "The last task for Sunday was to take the obligatory group photo." If Request.QueryString("index").Count = 1 Then index = Request.QueryString("index") End If %> North Shore NEMBA Photos
<% If index = -1 Then %>
Trail School (May 20th) & Trail Building at Harold Parker (May 21, 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 %>