<%@ LANGUAGE = "VBScript" %> <% Dim thisFilename thisFilename = "TrailWork_2007_05_12_Photos.asp" Dim rows, columns, index, imgCnt index = -1 rows = 6 columns = 5 imgCnt = 29 Dim imgFilename() Dim imgDirectory imgDirectory = "photos/2007_05_12_TrailWork/" ReDim imgFilename(imgCnt) imgFilename(0) = "IMG_0001.jpg" imgFilename(1) = "IMG_0005.jpg" imgFilename(2) = "IMG_0006.jpg" imgFilename(3) = "IMG_0007.jpg" imgFilename(4) = "IMG_0008.jpg" imgFilename(5) = "IMG_2305.jpg" imgFilename(6) = "IMG_2306.jpg" imgFilename(7) = "IMG_2308.jpg" imgFilename(8) = "IMG_2309.jpg" imgFilename(9) = "IMG_2310.jpg" imgFilename(10) = "IMG_2313.jpg" imgFilename(11) = "IMG_2314.jpg" imgFilename(12) = "IMG_2315.jpg" imgFilename(13) = "IMG_2316.jpg" imgFilename(14) = "IMG_2318.jpg" imgFilename(15) = "IMG_2319.jpg" imgFilename(16) = "IMG_2320.jpg" imgFilename(17) = "IMG_0011.jpg" imgFilename(18) = "IMG_0012.jpg" imgFilename(19) = "DSCN3206p.jpg" imgFilename(20) = "DSCN3207p.jpg" imgFilename(21) = "IMG_0013.jpg" imgFilename(22) = "DSCN3202p.jpg" imgFilename(23) = "DSCN3204p.jpg" imgFilename(24) = "DSCN3209p.jpg" imgFilename(25) = "DSCN3210p.jpg" imgFilename(26) = "DSCN3211p.jpg" imgFilename(27) = "DSCN3213p.jpg" imgFilename(28) = "DSCN3216p.jpg" Dim imgText() ReDim imgText(imgCnt) imgText(0) = "Lionel and James doing some fantastic tread work. Photo by Kirk Goldsworthy." imgText(1) = "Lee & Reenie. Photo by Kirk Goldsworthy." imgText(2) = "Tom working on drainage. Photo by Kirk Goldsworthy." imgText(3) = "Left to right: Dan, Jean, Dennis, & Tom. Photo by Kirk Goldsworthy." imgText(4) = "Left to right: Joe, Dan, Jean, Dennis, & Tom. Photo by Kirk Goldsworthy." imgText(5) = "Joe getting started on a pretty rough looking trail entrance. Photo by Dan Streeter." imgText(6) = "Tom Powers from the Friends of North Andover Trails, Kirk in background. Photo by Dan Streeter." imgText(7) = "Dick & Joe working on the trail entrance. Photo by Dan Streeter." imgText(8) = "Dennis hauling some rock for a crib wall, Kirk giving him some space to come through. Photo by Dan Streeter." imgText(9) = "Dennis & Joe building the crib wall. Photo by Dan Streeter." imgText(10) = "Dennis O'Sullivan & Tom, both from Friends of North Andover Trails. Photo by Dan Streeter." imgText(11) = "Dennis getting some water while Lee rakes the new trail. Photo by Dan Streeter." imgText(12) = "Reenie walking the new trail. Photo by Dan Streeter." imgText(13) = "Jean clearing the trail tread. Photo by Dan Streeter." imgText(14) = "Joe moving rocks at the entrance. Photo by Dan Streeter." imgText(15) = "Kirk & Jean. Photo by Dan Streeter." imgText(16) = "Dennis building the crib wall. Photo by Dan Streeter." imgText(17) = "James tamping soil at the trail entrance, Sandy & Jean in the background. Photo by Kirk Goldsworthy." imgText(18) = "The trail entrance is nearly complete. Photo by Kirk Goldsworthy." imgText(19) = "The completed entrance. Trail users will come to an intersection where they can choose between this inviting trail or the mud pit in the next picture. Photo by Tom Greene." imgText(20) = "Original mud pit trail. Photo by Tom Greene." imgText(21) = "Partial group shot, left to right: James, Reenie, Joe, Sandy, Lee, Kirk, Jean, Lionel, Dan, & Tom. Missing from photo: Dennis O'Sullivan, Tom Powers, & Dick Howe. Photo by Kirk Goldsworthy." imgText(22) = "Lionel enjoying the new trail. Photo by Tom Greene." imgText(23) = "Sandy also appears to be enjoying the new trail. Photo by Tom Greene." imgText(24) = "NS Trail Guru Joe enjoying the fruits of his labor. Photo by Tom Greene." imgText(25) = "NS Trail Coordinator Dan Streeter riding on the new trail. Photo by Tom Greene." imgText(26) = "Reenie riding down one of the many technical features in The Ledges area. Photo by Tom Greene." imgText(27) = "Kirk riding on the short section of single track that is off of Stearns Pond Rd. Photo by Tom Greene." imgText(28) = "Reenie on the single track heading from The Ledges towards Berry Pond. 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 Trail at Harold Parker - May 12, 2007 - Park Serve 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 %>