<%@ LANGUAGE = "VBScript" %> <% Dim thisFilename thisFilename = "TrailWork_2007_09_15_Photos.asp" Dim rows, columns, index, imgCnt index = -1 rows = 4 columns = 5 imgCnt = 20 Dim imgFilename() Dim imgDirectory imgDirectory = "photos/2007_09_15_TrailWork/" ReDim imgFilename(imgCnt) imgFilename(0) = "img1_CIMG0386.jpg" imgFilename(1) = "img2_CIMG0387.jpg" imgFilename(2) = "img3_CIMG0391.jpg" imgFilename(3) = "img4_CIMG0228.jpg" imgFilename(4) = "img5_CIMG0229.jpg" imgFilename(5) = "img6_DSCN3475.jpg" imgFilename(6) = "img7_DSCN3478.jpg" imgFilename(7) = "img8_DSCN3480.jpg" imgFilename(8) = "img9_DSCN3481.jpg" imgFilename(9) = "imgA_CIMG0230.jpg" imgFilename(10) = "imgB_CIMG0231.jpg" imgFilename(11) = "imgC_CIMG0233.jpg" imgFilename(12) = "imgD_CIMG0235.jpg" imgFilename(13) = "imgE_CIMG0236.jpg" imgFilename(14) = "imgF_CIMG0238.jpg" imgFilename(15) = "imgG_CIMG0242.jpg" imgFilename(16) = "imgH_DSCN3487.jpg" imgFilename(17) = "imgI_DSCN3486.jpg" imgFilename(18) = "imgJ_CIMG0240.jpg" imgFilename(19) = "imgK_DSCN3490.jpg" Dim imgText() ReDim imgText(imgCnt) imgText(0) = "Just getting started on the Bear Pond boardwalk. String used to indicate height of the boardwalk. Flags used to indicate location of the supports. Photo by Kirk Goldsworthy." imgText(1) = "Dan starting to layout the boardwalk supports. Photo by Kirk Goldsworthy." imgText(2) = "Joe, Dan, & Dave. Photo by Kirk Goldsworthy" imgText(3) = "Everyone working on getting the boardwalk supports in place. Photo by Reenie Greene." imgText(4) = "Some supports that have been laid out but not dug in and leveled yet. Photo by Reenie Greene." imgText(5) = "Volunteers planting and leveling some of the supports. Photo by Tom Greene." imgText(6) = "Yes, we actually used a level when planting the supports. Photo by Tom Greene." imgText(7) = "The mud that trail users can now avoid by crossing the Bear Pond boardwalk. Photo by Tom Greene." imgText(8) = "Volunteers continuing to plant and level the supports. Photo by Tom Greene." imgText(9) = "Everyone helping to install the planks. Photo by Reenie Greene." imgText(10) = "James driving in some nails. Photo by Reenie Greene." imgText(11) = "Progressing down the Bear Pond boardwalk with construction. Photo by Reenie Greene." imgText(12) = "Wet volunteers almost done constructing the boardwalk. Photo by Reenie Greene." imgText(13) = "A few more planks and the boardwalk will be done. Photo by Reenie Greene." imgText(14) = "Joe, finishing the end of the boardwalk. Photo by Reenie Greene." imgText(15) = "Joe, Tom, James, & Dave. Photo by Reenie Greene." imgText(16) = "The new boardwalk will avoid this. Photo by Tom Greene." imgText(17) = "An ants view of the new boardwalk. Photo by Tom Greene." imgText(18) = "Frank & Tom holding pick mattocks. Behind them, left to right: Lee, Steve, Joe, James, Dave, and Kirk. Photo by Reenie Greene." imgText(19) = "The completed Bear Pond boardwalk. Photo by Tom Greene." If Request.QueryString("index").Count = 1 Then index = Request.QueryString("index") End If %> North Shore NEMBA Photos
<% If index = -1 Then %>
New Boardwalks at Harold Parker - September 15, 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 %>