<%@ LANGUAGE = "VBScript" %> <% Dim thisFilename thisFilename = "TrailWork_2007_06_02_Photos.asp" Dim rows, columns, index, imgCnt index = -1 rows = 11 columns = 5 imgCnt = 52 Dim imgFilename() Dim imgDirectory imgDirectory = "photos/2007_06_02_TrailWork/" ReDim imgFilename(imgCnt) imgFilename(0) = "01IMG_0020.jpg" imgFilename(1) = "02IMG_0023.jpg" imgFilename(2) = "03IMG_0024.jpg" imgFilename(3) = "03IMG_0036.jpg" imgFilename(4) = "04BG_IMG_0018.jpg" imgFilename(5) = "05BG_IMG_0019.jpg" imgFilename(6) = "06BG_IMG_0021.jpg" imgFilename(7) = "07BG_IMG_0023.jpg" imgFilename(8) = "08BG_IMG_0027.jpg" imgFilename(9) = "09BG_IMG_0028.jpg" imgFilename(10) = "10BG_IMG_0033.jpg" imgFilename(11) = "11BG_IMG_0035.jpg" imgFilename(12) = "11IMG_0106.jpg" imgFilename(13) = "12BG_IMG_0037.jpg" imgFilename(14) = "13IMG_0039.jpg" imgFilename(15) = "14IMG_0033.jpg" imgFilename(16) = "15IMG_0034.jpg" imgFilename(17) = "16IMG_0035.jpg" imgFilename(18) = "17IMG_0037.jpg" imgFilename(19) = "18IMG_0046.jpg" imgFilename(20) = "19IMG_0102.jpg" imgFilename(21) = "20BG_IMG_0039.jpg" imgFilename(22) = "21IMG_0025.jpg" imgFilename(23) = "22IMG_0026.jpg" imgFilename(24) = "23IMG_0027.jpg" imgFilename(25) = "24IMG_0028.jpg" imgFilename(26) = "25IMG_0030.jpg" imgFilename(27) = "26IMG_0031.jpg" imgFilename(28) = "27IMG_0032.jpg" imgFilename(29) = "28IMG_0042.jpg" imgFilename(30) = "29IMG_0043.jpg" imgFilename(31) = "30IMG_0044.jpg" imgFilename(32) = "31IMG_0103.jpg" imgFilename(33) = "32IMG_0104.jpg" imgFilename(34) = "33IMG_0105.jpg" imgFilename(35) = "34IMG_0107.jpg" imgFilename(36) = "35IMG_0108.jpg" imgFilename(37) = "36IMG_0109.jpg" imgFilename(38) = "37IMG_0112.jpg" imgFilename(39) = "38IMG_0113.jpg" imgFilename(40) = "39IMG_0114.jpg" imgFilename(41) = "40IMG_0115.jpg" imgFilename(42) = "41BG_IMG_0042.jpg" imgFilename(43) = "42BG_IMG_0054.jpg" imgFilename(44) = "43BG_IMG_0045.jpg" imgFilename(45) = "44BG_IMG_0046.jpg" imgFilename(46) = "45BG_IMG_0048.jpg" imgFilename(47) = "46BG_IMG_0049.jpg" imgFilename(48) = "47BG_IMG_0053.jpg" imgFilename(49) = "48IMG_0119.jpg" imgFilename(50) = "49IMG_0116.jpg" imgFilename(51) = "50BG_IMG_0040.jpg" Dim imgText() ReDim imgText(imgCnt) imgText(0) = "Volunteers gathering at the beginning of the event. Photo by Kirk Goldsworthy." imgText(1) = "Kate Walton of ECGA gives the volunteers an overview of the projects planned for the day. Photo by Kirk Goldsworthy." imgText(2) = "Volunteers carrying tools and part of the pre-fabricated boardwalk to the work sites. Photo by Kate Walton." imgText(3) = "Kirk and Bob clearing debris for the first trail reroute. Photo by Kate Walton." imgText(4) = "Kirk raking the tread on the first trail reroute. Photo by Bob Giunta." imgText(5) = "Joe's infamous tool backpack. Photo by Bob Giunta." imgText(6) = "Joe clearing debris for the first trail reroute. Photo by Bob Giunta." imgText(7) = "Ron clearing debris for the first trail reroute. Photo by Bob Giunta." imgText(8) = "Bob doing some benching for the trail tread. Photo by Kirk Goldsworthy." imgText(9) = "Ron getting ready to do rock work. Photo by Kirk Goldsworthy." imgText(10) = "Bob's excellent tread work. Photo by Kirk Goldsworthy." imgText(11) = "Joe & Ron. Photo by Bob Giunta." imgText(12) = "Kirk and Ron getting ready to do some rock work. Photo by Kate Walton." imgText(13) = "Kirk doing some rock work. Photo by Bob Giunta." imgText(14) = "The guys getting started on the boardwalk project. Photo by Kate Walton." imgText(15) = "Setting the supports in the ground for the boardwalk. Photo by Kate Walton." imgText(16) = "Student volunteers from the Waring School. Photo by Kate Walton." imgText(17) = "Dan Streeter, North Shore NEMBA Trails Coordinator, working with some of the Waring students on getting the end support in place. Photo by Kate Walton." imgText(18) = "Still working on the boardwalk supports. Photo by Kate Walton." imgText(19) = "The two pre-fabricated sections now in place. Photo by Kate Walton." imgText(20) = "Almost done, just need to fill in the tread boards between the two sections. Photo by Kate Walton." imgText(21) = "Kirk, Joe, & James testing out the finished boardwalk. Photo by Bob Giunta." imgText(22) = "The guys scoping out the area of the second reroute. Photo by Kate Walton." imgText(23) = "Volunteers for the second reroute project. Photo by Kate Walton." imgText(24) = "Volunteers clearing debris and limbs for the second reroute. Photo by Kate Walton." imgText(25) = "More clearing for the second reroute. Photo by Kate Walton." imgText(26) = "Cutting up a tree that will be used to build a crib wall. Photo by Kate Walton." imgText(27) = "Cutting up a tree that will be used to build a crib wall. Photo by Kate Walton." imgText(28) = "Cutting up a tree that will be used to build a crib wall. Photo by Kate Walton." imgText(29) = "Entrance of the second reroute. Photo by Kate Walton." imgText(30) = "Frank Diesel. Photo by Kate Walton." imgText(31) = "Rock armoring the entrance of the second reroute. Photo by Kate Walton." imgText(32) = "The entrance of the second reroute is starting to take shape. Photo by Kate Walton." imgText(33) = "Entrance of the second reroute, looking good. Photo by Kate Walton." imgText(34) = "Log crib wall and rock work on the second reroute. Photo by Kate Walton." imgText(35) = "The entrance of the second reroute. Photo by Kate Walton." imgText(36) = "The entrance of the second reroute. Photo by Kate Walton." imgText(37) = "Volunteers working hard on the second reroute. Photo by Kate Walton." imgText(38) = "Finished crib wall & rock work looking great. Photo by Kate Walton." imgText(39) = "James and Bruce. Photo by Kate Walton." imgText(40) = "The entrance of the second reroute. Photo by Kate Walton." imgText(41) = "The entrance of the second reroute. Photo by Kate Walton." imgText(42) = "The entrance of the second reroute. Photo by Bob Giunta." imgText(43) = "James checking out the finished entrance of the second reroute. Photo by Bob Giunta." imgText(44) = "Finished tread on the second reroute. Photo by Bob Giunta." imgText(45) = "Finished tread on the second reroute. Photo by Bob Giunta." imgText(46) = "Finished tread on the second reroute. Photo by Bob Giunta." imgText(47) = "Joe, Kirk, & James checking out the second reroute at the end of the day. Photo by Bob Giunta." imgText(48) = "Finished tread on the second reroute. Photo by Bob Giunta." imgText(49) = "Finished tread on the second reroute. Photo by Kate Walton." imgText(50) = "Volunteers heading out at the end of the day. Photo by Kate Walton." imgText(51) = "James Vogh, as dirty as ever at the end of a trail day. Photo by Bob Giunta." If Request.QueryString("index").Count = 1 Then index = Request.QueryString("index") End If %> North Shore NEMBA Photos
<% If index = -1 Then %>
Tompson Reservation - June 2, 2007 - National Trails Day
<% 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 %>