Colorado River Canoe Trip - April 2003

Click on any photo to see a larger version
<% ' The number of rows and columns on each index page ' Don't forget to change this in fullsize_template.asp if you change it here numColumns = 4 numRows = 3 numImages = 48 imagesPerPage = numColumns * numRows ' calculate the number of pages numPages = int(numImages/imagesPerPage) if (numImages MOD imagesPerPage) > 0 then numPages = numPages + 1 ' determine which index page we are on i = Request.QueryString page = 1 if i = "" then page = 1 else page = i end if ' work out start and end images for this index page startImage = (page - 1) * imagesPerPage + 1 endImage = startImage + imagesPerPage - 1 Response.Write "
" & vbCrLf if page > 1 then prevPage = page - 1 Response.Write " First" & vbCrLf Response.Write " Previous" & vbCrLf else Response.Write " First" & vbCrLf Response.Write " Previous" & vbCrLf end if ButtonLen = int(len("Back to the Gallery Index") * 6.2 + 10) Response.Write " Back to the Gallery Index" & vbCrLf if page < numPages then nextPage = page nextPage = nextPage + 1 Response.Write " Next" & vbCrLf Response.Write " Last
" & vbCrLf else Response.Write " Next" & vbCrLf Response.Write " Last
" & vbCrLf end if Response.Write "
" & vbCrLf Response.Write "Page " & page & " of " & numPages & "" Response.Write "" & vbCrLf if (startImage <= 1 and endImage >= 1) then if ((1 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 2 and endImage >= 2) then if ((2 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 3 and endImage >= 3) then if ((3 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 4 and endImage >= 4) then if ((4 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 5 and endImage >= 5) then if ((5 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 6 and endImage >= 6) then if ((6 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 7 and endImage >= 7) then if ((7 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 8 and endImage >= 8) then if ((8 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 9 and endImage >= 9) then if ((9 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 10 and endImage >= 10) then if ((10 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 11 and endImage >= 11) then if ((11 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 12 and endImage >= 12) then if ((12 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 13 and endImage >= 13) then if ((13 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 14 and endImage >= 14) then if ((14 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 15 and endImage >= 15) then if ((15 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 16 and endImage >= 16) then if ((16 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 17 and endImage >= 17) then if ((17 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 18 and endImage >= 18) then if ((18 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 19 and endImage >= 19) then if ((19 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 20 and endImage >= 20) then if ((20 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 21 and endImage >= 21) then if ((21 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 22 and endImage >= 22) then if ((22 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 23 and endImage >= 23) then if ((23 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 24 and endImage >= 24) then if ((24 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 25 and endImage >= 25) then if ((25 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 26 and endImage >= 26) then if ((26 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 27 and endImage >= 27) then if ((27 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 28 and endImage >= 28) then if ((28 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 29 and endImage >= 29) then if ((29 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 30 and endImage >= 30) then if ((30 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 31 and endImage >= 31) then if ((31 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 32 and endImage >= 32) then if ((32 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 33 and endImage >= 33) then if ((33 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 34 and endImage >= 34) then if ((34 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 35 and endImage >= 35) then if ((35 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 36 and endImage >= 36) then if ((36 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 37 and endImage >= 37) then if ((37 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 38 and endImage >= 38) then if ((38 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 39 and endImage >= 39) then if ((39 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 40 and endImage >= 40) then if ((40 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 41 and endImage >= 41) then if ((41 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 42 and endImage >= 42) then if ((42 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 43 and endImage >= 43) then if ((43 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 44 and endImage >= 44) then if ((44 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 45 and endImage >= 45) then if ((45 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 46 and endImage >= 46) then if ((46 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 47 and endImage >= 47) then if ((47 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 48 and endImage >= 48) then if ((48 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if %>
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
Click for full size picture
<% if page = 1 then Response.Write "
You can advance the full size images with your keyboard. The right arrow, down arrow, and spacebar advance. " Response.Write "The left arrow goes back. The up arrow returns to the index.
" end if %>