North Shore NEMBA Photos

<%@ LANGUAGE = "VBScript" %> <% Dim thisFilename thisFilename = "ThursdayRide_2008_Photos.asp" Dim rows, columns, index, imgCnt index = -1 rows = 3 columns = 4 imgCnt = 11 Dim imgFilename() Dim imgDirectory imgDirectory = "photos/2008_ThursdayRide/" ReDim imgFilename(imgCnt) imgFilename(0) = "IMG_0100.jpg" imgFilename(1) = "IMG_0101.jpg" imgFilename(2) = "IMG_0102.jpg" imgFilename(3) = "IMG_0105.jpg" imgFilename(4) = "IMG_0108.jpg" imgFilename(5) = "IMG_0109.jpg" imgFilename(6) = "IMG_0110.jpg" imgFilename(7) = "IMG_0112.jpg" imgFilename(8) = "IMG_0113.jpg" imgFilename(9) = "IMG_0114.jpg" imgFilename(10) = "IMG_0115.jpg" Dim imgText() ReDim imgText(imgCnt) imgText(0) = "Frank, Harold Parker, May 8, 2008, Photo by Kirk Goldsworthy." imgText(1) = "Steve, Harold Parker, May 8, 2008, Photo by Kirk Goldsworthy." imgText(2) = "Dan, Harold Parker, May 8, 2008, Photo by Kirk Goldsworthy." imgText(3) = "Steve, Harold Parker, May 8, 2008, Photo by Kirk Goldsworthy." imgText(4) = "Frank, Harold Parker, May 8, 2008, Photo by Kirk Goldsworthy." imgText(5) = "Scott, Harold Parker, May 8, 2008, Photo by Kirk Goldsworthy." imgText(6) = "Nathaniel, Harold Parker, May 8, 2008, Photo by Kirk Goldsworthy." imgText(7) = "Kerry, Harold Parker, May 8, 2008, Photo by Kirk Goldsworthy." imgText(8) = "Frank, Harold Parker, May 8, 2008, Photo by Kirk Goldsworthy." imgText(9) = "Nathaniel, Harold Parker, May 8, 2008, Photo by Kirk Goldsworthy." imgText(10) = "Dan, Harold Parker, May 8, 2008, 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 %>

Thursday Ride - 2008

<% 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 = "

" 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 %>