<% dim rsImage, imageArray, imageID, zoom, descString dim filePathFiles dim printImagePath set rsImage = server.createobject("ADODB.Recordset") zoom = false filePathFiles = Application("dataRoot") & "\rtw\images_trip\" & fkey & "\files\" if len(gStringID) > 0 then imageID = cint(gStringID) zoom = true end if sqlString = "SELECT Image.* " & _ "FROM (Users INNER JOIN (Trip INNER JOIN ((SegmentsCountExpenses INNER JOIN Segment ON SegmentsCountExpenses.ID = Segment.ID) INNER JOIN SegmentsCountImages ON Segment.ID = SegmentsCountImages.ID) ON Trip.ID = Segment.TripID) ON Users.ID = Trip.UserID) INNER JOIN [Image] ON Segment.ID = Image.SegmentID " & _ "WHERE (((Users.ID)=" & userid & ") AND ((Trip.ID)=" & tripid & ") AND ((Segment.ID)=" & segmentid & ") AND ((Users.AccountActive)=True) AND ((Trip.Active)=Trip.Active) AND ((Segment.Active)=Segment.Active) AND ((Image.Active)=True)) " & _ "ORDER BY Image.Sort, Image.DateTimeStamp;" rsImage.open sqlString, Application("RTW_DSN"), 0 %> <% if zoom then %> <% end if %>

<% if zoom then %> <% else %> <% end if %> Home  /  <%= username %>  /  <%= tripname %>  /  <%= segmentname %>  /  Thumbnails  /  Zoom Thumbnails

<%= drawSpacer(1,3) %> <% if not rsImage.eof then anything = incrementLastViewed(userid, username, tripid, tripname, segmentid, segmentname) dim counter if zoom then response.write "<< " response.write ">> " end if do while not rsImage.eof counter = counter + 1 if zoom and imageID = rsImage("ID") then response.write "" else response.write "" end if if zoom then imageArray = imageArray & rsImage("ID") & "," response.write zeropad(counter,2) else response.write "" end if if zoom and imageID = rsImage("ID") then response.write "" else response.write "" end if if zoom then response.write " " end if rsImage.movenext loop rsImage.movefirst end if %>

<%= drawSpacer(1,3) %> <% if not rsImage.eof then 'make image array for gallery do while not rsImage.eof if rsImage("ID") = imageID then session("Path_md") = rsImage("Path_md") session("Path_lg") = rsImage("Path_lg") session("Path_orig") = rsImage("Path_orig") anything = incrementImpressions("Image", imageID) printImagePath = mapURL(filePathFiles) & rsImage("Path_md") response.write "" if len(rsImage("DateTimeStamp")) > 0 then dim imageDate descString = formatDateNicely(rsImage("DateTimeStamp"),1) & "  " end if descString = descString & "(" & rsImage("Impressions") & " views) " & segmentname & " " descString = descString & "" & rsImage("Caption") & " " descString = descString & rsImage("Description") if len(session("Path_lg")) > 0 then response.write " [ZOOM]" end if exit do end if rsImage.movenext loop end if rsImage.close set rsImage = nothing %>

<%= descString %><% if session("userLevel") > 5 then response.write " " & printImagePath end if %>

<%= drawSpacer(638,1) %>

<% if zoom then %> <% end if %>