<% dim rs, rsList, rsImage set rs = server.createobject("ADODB.Recordset") set rsList = server.createobject("ADODB.Recordset") set rsImage = server.createobject("ADODB.Recordset") sqlString = "SELECT Segment.*, SegmentsCountImages.ImageCount, SegmentsCountExpenses.ExpenseSum, SegmentsCountExpenses.ExpenseCount, Users.FolderKey " & _ "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 " & _ "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));" rs.open sqlString, Application("RTW_DSN"), 0 if not rs.eof then if rs("ExpenseCount") > 0 then segmentHasExpenses = cbool(setUserCookieValue("segmentHasExpenses", "true", "logs", false, false)) end if end if sqlString = "SELECT Segment.ID " & _ "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 CountPacking ON SegmentsCountExpenses.TripID = CountPacking.ID " & _ "WHERE (((Users.ID)=" & userid & ") AND ((Trip.ID)=" & tripid & ") AND ((Users.AccountActive)=True) AND ((Trip.Active)=Trip.Active) AND ((Segment.Active)=Segment.Active) AND ((Segment.ShowRight)=False)) " & _ "ORDER BY Segment.Sort, Segment.FromDate, Segment.Description;" rsList.open sqlString, Application("RTW_DSN"), 0 sqlString = "SELECT TOP 6 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 %>

<%= segmentname %>

<% if not rs.eof then dim counter, prevLink, prevLinkFound, nextLink, nextLinkFound anything = incrementImpressions("Segment", segmentid) anything = incrementLastViewed(userid, username, tripid, tripname, segmentid, segmentname) response.write "" & segmentname & "
" response.write rs("City") if len(rs("City")) > 0 and len(rs("Country")) > 0 then response.write ", " end if response.write rs("Country") if len(rs("City")) > 0 or len(rs("Country")) > 0 then response.write "
" end if if len(rs("FromDate")) > 0 then response.write formatDateNicely(rs("FromDate"),2) end if if rs("FromDate") <> rs("ToDate") and len(rs("ToDate")) > 0 then response.write " - " & formatDateNicely(rs("ToDate"),2) end if if not rs("ShowRight") then response.write "
Entry " do while not rsList.eof counter = counter + 1 if prevLinkFound and not nextLinkFound then nextLinkFound = true nextLink = rsList("ID") end if if segmentid = rsList("ID") then prevLinkFound = true response.write counter end if if not prevLinkFound then prevLink = rsList("ID") rsList.movenext loop response.write " of " & counter & " " if prevLink > 0 then response.write " << Previous" if nextLink > 0 then response.write " | Next >>" end if if len(rs("description")) > 0 then response.write "

" & rs("description") & "" end if if len(rs("story")) > 0 then response.write "

" & rs("story") end if end if %>

<% if tripHasPacking then %> <%= drawSpacer(1,3) %>

Packing List for this Journey

<% end if %> <% if segmentHasExpenses then %> <%= drawSpacer(1,3) %>

Expenses for this Entry

<% end if %> <% if rs("ImageCount") > 0 then %> <%= drawSpacer(1,3) %>

<% dim imageLink if rs("ImageCount") > 6 then response.write "View all " & rs("ImageCount") & " Thumbnails

" end if if not rsImage.eof then dim filePathFiles filePathFiles = Application("dataRoot") & "\rtw\images_trip\" & rs("FolderKey") & "\files\" 'make image array for gallery do while not rsImage.eof imageLink = "" response.write imageLink & "
" rsImage.movenext loop end if rsImage.close set rsImage = nothing %>

<% end if rs.close set rs = nothing rsList.close set rsList = nothing %> <%= drawSpacer(1,3) %>

Want to get email updates from <%= username %>?
Subscribe to their email list.

<%= drawSpacer(1,3) %>

Click here to send <%= username %> a private message

<%= drawSpacer(517,1) %>

<%= drawSpacer(123,1) %>