<%@ LANGUAGE = "VBScript" %> <% Dim thisFilename thisFilename = "TrailWork_2007_06_16_Photos.asp" Dim rows, columns, index, imgCnt index = -1 rows = 4 columns = 5 imgCnt = 18 Dim imgFilename() Dim imgDirectory imgDirectory = "photos/2007_06_16_TrailWork/" ReDim imgFilename(imgCnt) imgFilename(0) = "CIMG0257.jpg" imgFilename(1) = "IMG_0101.jpg" imgFilename(2) = "IMG_0103.jpg" imgFilename(3) = "CIMG0262.jpg" imgFilename(4) = "CIMG0265.jpg" imgFilename(5) = "IMG_0105.jpg" imgFilename(6) = "IMG_0112.jpg" imgFilename(7) = "CIMG0259.jpg" imgFilename(8) = "CIMG0260.jpg" imgFilename(9) = "CIMG0261.jpg" imgFilename(10) = "CIMG0264.jpg" imgFilename(11) = "IMG_011.jpg" imgFilename(12) = "CIMG250.jpg" imgFilename(13) = "CIMG0267.jpg" imgFilename(14) = "CIMG0268.jpg" imgFilename(15) = "IMG_0114.jpg" imgFilename(16) = "IMG_0115.jpg" imgFilename(17) = "IMG_0118.JPG" Dim imgText() ReDim imgText(imgCnt) imgText(0) = "It was a group effort getting this rock into the barrel. Photo by Dan Streeter." imgText(1) = "Before shot of an intermittent stream before we rock hardened the crossing. Photo by Kirk Goldsworthy." imgText(2) = "Joe moving a rock into place. Photo by Kirk Goldsworthy" imgText(3) = "Noah, Joe, & Steve working on the rock hardened stream crossing. Kirk & James in the background. Photo by Dan Streeter.." imgText(4) = "James & Steve working on the crossing while Joe & Kirk take a break. Photo by Dan Streeter." imgText(5) = "Trevor testing out the almost complete crossing. Photo by Kirk Goldsworthy." imgText(6) = "Steve, Hank (background), James & Joe checking out the completed project. Photo by Kirk Goldsworthy." imgText(7) = "Ron & Trevor working on the long boardwalk project. Photo by Dan Streeter." imgText(8) = "Trevor digging in some supports for the boardwalk. Photo by Dan Streeter." imgText(9) = "Bill & the guys making some progress on the long boardwalk. Photo by Dan Streeter." imgText(10) = "Long boardwalk is almost done. Bill & Hank installing a couple of final boards. Photo by Dan Streeter." imgText(11) = "Joe, James, Steve, & Hank checking out the completed boardwalk. Photo by Kirk Goldsworthy." imgText(12) = "Bill at the sight of the shorter boardwalk. Photo by Dan Streeter." imgText(13) = "The completed short boardwalk. Photo by Dan Streeter." imgText(14) = "Another view of the completed short boardwalk. Photo by Dan Streeter." imgText(15) = "Ron, Steve, Noah (front), & Dan consuming some energy before our ride. Photo by Kirk Goldsworthy." imgText(16) = "The guys enjoying some lunch before heading out for a ride. Photo by Kirk Goldsworthy." imgText(17) = "Post trail work group ride, left to right: Joe, Dan, James, Trevor, Steve, Ron, Bill, & Noah. Missing from photo are Hank and Matt. Photo by Kirk Goldsworthy." If Request.QueryString("index").Count = 1 Then index = Request.QueryString("index") End If %> North Shore NEMBA Photos
<% If index = -1 Then %>
Ward Reservation Trail Work - June 16, 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 %>