%@ 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 & " "
if i*columns+j < imgCnt Then
tableHTML = tableHTML & "![]() | "
End If
Next
tableHTML = tableHTML & " " & VbCrLf
Next
Response.Write tableHTML
%>
|
<% Else %>
|
<%
Dim prevLink
Dim prevIndex
prevIndex = index - 1
If prevIndex < 0 Then
prevIndex = imgCnt - 1
End If
prevLink = "<Prev | "
Response.Write prevLink
%>
<%
Dim thumbsLink
thumbsLink = " Thumbs View "
Response.Write thumbsLink
%>
|
<%
Response.Write imgText(index) & " | "
%>
<%
Dim imgSrc
imgSrc = "![]() | "
Response.Write imgSrc
%>
|
<%
Dim nextLink
Dim nextIndex
nextIndex = index + 1
If nextIndex >= imgCnt Then
nextIndex = 0
End If
nextLink = "Next> | "
Response.Write nextLink
%>
<% End If %>