<%@ LANGUAGE = "VBScript" %> <% Dim thisFilename thisFilename = "TrailWork_2006_09_17_Photos.asp" Dim rows, columns, index, imgCnt index = -1 rows = 3 columns = 5 imgCnt = 15 Dim imgFilename() Dim imgDirectory imgDirectory = "photos/2006_09_17_TrailWork/" ReDim imgFilename(imgCnt) imgFilename(0) = "IMG_0114.jpg" imgFilename(1) = "IMG_0117.jpg" imgFilename(2) = "IMG_2215.jpg" imgFilename(3) = "IMG_2218.jpg" imgFilename(4) = "IMG_2221.jpg" imgFilename(5) = "IMG_2223.jpg" imgFilename(6) = "IMG_2225.jpg" imgFilename(7) = "IMG_2226.jpg" imgFilename(8) = "IMG_2229.jpg" imgFilename(9) = "IMG_2231.jpg" imgFilename(10) = "IMG_2232.jpg" imgFilename(11) = "IMG_2236.jpg" imgFilename(12) = "IMG_2239.jpg" imgFilename(13) = "IMG_2242.jpg" imgFilename(14) = "IMG_2243.jpg" Dim imgText() ReDim imgText(imgCnt) imgText(0) = "Just getting started, trying to figure out exactly where the baordwalk will be located." imgText(1) = "The guys are hard at work installing the prebuilt sections of the boardwalk." imgText(2) = "Hmmm...how many volunteers does it take to install this board?" imgText(3) = "Dan, Bob, & Brian installing some boards to hold two of the prebuilt sections together." imgText(4) = "Starting to look like a boardwalk." imgText(5) = "Joe, wearing his REI Get Dirty shirt, working on one of the boardwalk entrances." imgText(6) = "Brian and Lee working on one of the supports." imgText(7) = "The guys are figuring out what to do with the entrance." imgText(8) = "All of the prebuilt sections installed, just need to fill in the holes." imgText(9) = "Dan Streeter, North Shore NEMBA's 'Trails Coordinator', filling in the holes between the prebuilt sections." imgText(10) = "More filling in of the holes between the prebuilt sections." imgText(11) = "The completed boardwalk." imgText(12) = "Not quite done, Joe finishing up the entrance." imgText(13) = "Now its all done.. the finished boardwalk is located on the Boston Hill side of Ward Reservation." imgText(14) = "Partial group shot...Standing: Joe, Steve, Brian, Pete, & Lee; Sitting: Frank, Tom, Jeff, Bob, & Dan." If Request.QueryString("index").Count = 1 Then index = Request.QueryString("index") End If %> North Shore NEMBA Photos
<% If index = -1 Then %>
Ward Reservation Boardwalk Construction - September 17th, 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 & "" Next tableHTML = tableHTML & "" & VbCrLf Next Response.Write tableHTML %>
" 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 %>