Capitol Reef National Park Trip - May 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 = 195 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 Photo Gallery") * 6.2 + 10) Response.Write " Back to the Photo Gallery" & 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 if (startImage <= 49 and endImage >= 49) then if ((49 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 50 and endImage >= 50) then if ((50 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 51 and endImage >= 51) then if ((51 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 52 and endImage >= 52) then if ((52 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 53 and endImage >= 53) then if ((53 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 54 and endImage >= 54) then if ((54 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 55 and endImage >= 55) then if ((55 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 56 and endImage >= 56) then if ((56 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 57 and endImage >= 57) then if ((57 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 58 and endImage >= 58) then if ((58 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 59 and endImage >= 59) then if ((59 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 60 and endImage >= 60) then if ((60 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 61 and endImage >= 61) then if ((61 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 62 and endImage >= 62) then if ((62 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 63 and endImage >= 63) then if ((63 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 64 and endImage >= 64) then if ((64 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 65 and endImage >= 65) then if ((65 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 66 and endImage >= 66) then if ((66 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 67 and endImage >= 67) then if ((67 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 68 and endImage >= 68) then if ((68 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 69 and endImage >= 69) then if ((69 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 70 and endImage >= 70) then if ((70 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 71 and endImage >= 71) then if ((71 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 72 and endImage >= 72) then if ((72 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 73 and endImage >= 73) then if ((73 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 74 and endImage >= 74) then if ((74 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 75 and endImage >= 75) then if ((75 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 76 and endImage >= 76) then if ((76 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 77 and endImage >= 77) then if ((77 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 78 and endImage >= 78) then if ((78 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 79 and endImage >= 79) then if ((79 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 80 and endImage >= 80) then if ((80 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 81 and endImage >= 81) then if ((81 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 82 and endImage >= 82) then if ((82 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 83 and endImage >= 83) then if ((83 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 84 and endImage >= 84) then if ((84 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 85 and endImage >= 85) then if ((85 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 86 and endImage >= 86) then if ((86 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 87 and endImage >= 87) then if ((87 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 88 and endImage >= 88) then if ((88 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 89 and endImage >= 89) then if ((89 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 90 and endImage >= 90) then if ((90 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 91 and endImage >= 91) then if ((91 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 92 and endImage >= 92) then if ((92 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 93 and endImage >= 93) then if ((93 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 94 and endImage >= 94) then if ((94 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 95 and endImage >= 95) then if ((95 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 96 and endImage >= 96) then if ((96 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 97 and endImage >= 97) then if ((97 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 98 and endImage >= 98) then if ((98 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 99 and endImage >= 99) then if ((99 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 100 and endImage >= 100) then if ((100 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 101 and endImage >= 101) then if ((101 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 102 and endImage >= 102) then if ((102 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 103 and endImage >= 103) then if ((103 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 104 and endImage >= 104) then if ((104 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 105 and endImage >= 105) then if ((105 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 106 and endImage >= 106) then if ((106 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 107 and endImage >= 107) then if ((107 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 108 and endImage >= 108) then if ((108 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 109 and endImage >= 109) then if ((109 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 110 and endImage >= 110) then if ((110 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 111 and endImage >= 111) then if ((111 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 112 and endImage >= 112) then if ((112 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 113 and endImage >= 113) then if ((113 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 114 and endImage >= 114) then if ((114 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 115 and endImage >= 115) then if ((115 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 116 and endImage >= 116) then if ((116 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 117 and endImage >= 117) then if ((117 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 118 and endImage >= 118) then if ((118 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 119 and endImage >= 119) then if ((119 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 120 and endImage >= 120) then if ((120 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 121 and endImage >= 121) then if ((121 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 122 and endImage >= 122) then if ((122 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 123 and endImage >= 123) then if ((123 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 124 and endImage >= 124) then if ((124 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 125 and endImage >= 125) then if ((125 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 126 and endImage >= 126) then if ((126 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 127 and endImage >= 127) then if ((127 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 128 and endImage >= 128) then if ((128 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 129 and endImage >= 129) then if ((129 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 130 and endImage >= 130) then if ((130 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 131 and endImage >= 131) then if ((131 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 132 and endImage >= 132) then if ((132 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 133 and endImage >= 133) then if ((133 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 134 and endImage >= 134) then if ((134 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 135 and endImage >= 135) then if ((135 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 136 and endImage >= 136) then if ((136 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 137 and endImage >= 137) then if ((137 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 138 and endImage >= 138) then if ((138 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 139 and endImage >= 139) then if ((139 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 140 and endImage >= 140) then if ((140 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 141 and endImage >= 141) then if ((141 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 142 and endImage >= 142) then if ((142 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 143 and endImage >= 143) then if ((143 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 144 and endImage >= 144) then if ((144 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 145 and endImage >= 145) then if ((145 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 146 and endImage >= 146) then if ((146 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 147 and endImage >= 147) then if ((147 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 148 and endImage >= 148) then if ((148 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 149 and endImage >= 149) then if ((149 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 150 and endImage >= 150) then if ((150 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 151 and endImage >= 151) then if ((151 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 152 and endImage >= 152) then if ((152 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 153 and endImage >= 153) then if ((153 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 154 and endImage >= 154) then if ((154 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 155 and endImage >= 155) then if ((155 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 156 and endImage >= 156) then if ((156 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 157 and endImage >= 157) then if ((157 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 158 and endImage >= 158) then if ((158 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 159 and endImage >= 159) then if ((159 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 160 and endImage >= 160) then if ((160 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 161 and endImage >= 161) then if ((161 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 162 and endImage >= 162) then if ((162 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 163 and endImage >= 163) then if ((163 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 164 and endImage >= 164) then if ((164 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 165 and endImage >= 165) then if ((165 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 166 and endImage >= 166) then if ((166 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 167 and endImage >= 167) then if ((167 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 168 and endImage >= 168) then if ((168 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 169 and endImage >= 169) then if ((169 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 170 and endImage >= 170) then if ((170 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 171 and endImage >= 171) then if ((171 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 172 and endImage >= 172) then if ((172 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 173 and endImage >= 173) then if ((173 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 174 and endImage >= 174) then if ((174 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 175 and endImage >= 175) then if ((175 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 176 and endImage >= 176) then if ((176 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 177 and endImage >= 177) then if ((177 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 178 and endImage >= 178) then if ((178 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 179 and endImage >= 179) then if ((179 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 180 and endImage >= 180) then if ((180 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 181 and endImage >= 181) then if ((181 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 182 and endImage >= 182) then if ((182 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 183 and endImage >= 183) then if ((183 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 184 and endImage >= 184) then if ((184 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 185 and endImage >= 185) then if ((185 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 186 and endImage >= 186) then if ((186 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 187 and endImage >= 187) then if ((187 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 188 and endImage >= 188) then if ((188 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 189 and endImage >= 189) then if ((189 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 190 and endImage >= 190) then if ((190 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 191 and endImage >= 191) then if ((191 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 192 and endImage >= 192) then if ((192 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 193 and endImage >= 193) then if ((193 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 194 and endImage >= 194) then if ((194 - 1) MOD numColumns) = 0 then Response.Write "" & vbCrLf Response.Write " " & vbCrLf end if if (startImage <= 195 and endImage >= 195) then if ((195 - 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
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
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
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
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 %>