<%@ LANGUAGE = "VBScript" %> <% Dim thisFilename thisFilename = "TrailWork_2006_10_14_Photos.asp" Dim rows, columns, index, imgCnt index = -1 rows = 3 columns = 4 imgCnt = 11 Dim imgFilename() Dim imgDirectory imgDirectory = "photos/2006_10_14_TrailWork/" ReDim imgFilename(imgCnt) imgFilename(0) = "IMG_0001.jpg" imgFilename(1) = "IMG_0002.jpg" imgFilename(2) = "IMG_0008.jpg" imgFilename(3) = "IMG_0009.jpg" imgFilename(4) = "IMG_0014.jpg" imgFilename(5) = "IMG_0021.jpg" imgFilename(6) = "IMG_0023.jpg" imgFilename(7) = "IMG_0024.jpg" imgFilename(8) = "IMG_0027.jpg" imgFilename(9) = "IMG_0030.jpg" imgFilename(10) = "IMG_0033.jpg" Dim imgText() ReDim imgText(imgCnt) imgText(0) = "Intermittent wet area before rock armoring." imgText(1) = "Fred, Ron, & Bob are starting to gather some rocks." imgText(2) = "Bob, Frank, Joe, & James are starting to remove the organic duff." imgText(3) = "James crushing some stone." imgText(4) = "Frank and Joe positioning a couple of the tread rocks." imgText(5) = "Bob and Kirk positioning some tread rocks on the other end of the causeway." imgText(6) = "James still crushing stone." imgText(7) = "Almost done." imgText(8) = "Kirk and Joe finishing things up by working some crushed stone into the cracks." imgText(9) = "Frank admiring the finished causeway." imgText(10) = "Crouching, left to right: Frank, Joe, & Kirk. Standing, left to right: Bob, Fred, & James. Hiding in back: Ron. Photo by Dan Streeter." If Request.QueryString("index").Count = 1 Then index = Request.QueryString("index") End If %> North Shore NEMBA Photos
<% If index = -1 Then %>
Harold Parker Trail Work - October 14th, 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 & "" 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 %>