<% drawFlashJS = true dim rs, rsTrip set rsTrip = server.createobject("ADODB.Recordset") sqlString = "SELECT Trip.Name, Trip.Description, Trip.Story, Trip.StartDate, Trip.EndDate, Trip.UseModis " & _ "FROM Users INNER JOIN Trip ON Users.ID = Trip.UserID " & _ "WHERE (((Users.ID)=" & userid & ") AND ((Trip.ID)=" & tripid & ") AND ((Users.AccountActive)=True) AND ((Trip.Active)=True));" rsTrip.open sqlString, Application("RTW_DSN"), 0 set rs = server.createobject("ADODB.Recordset") sqlString = "SELECT Segment.*, CountPacking.PackingCount, SegmentsCountImages.ImageCount, SegmentsCountExpenses.ExpenseSum, 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) INNER JOIN CountPacking ON SegmentsCountExpenses.TripID = CountPacking.ID " & _ "WHERE (((Users.ID)=" & userid & ") AND ((Trip.ID)=" & tripid & ") AND ((Users.AccountActive)=True) AND ((Trip.Active)=True) AND ((Segment.Active)=True) AND ((Segment.ShowRight)=False)) " & _ "ORDER BY Segment.Sort, Segment.FromDate, Segment.Description;" rs.open sqlString, Application("RTW_DSN"), 0 if not rs.eof then if rs("PackingCount") > 0 then tripHasPacking = cbool(setUserCookieValue("tripHasPacking", "true", "logs", false, false)) end if end if %>
Journeys  /  <%= username %>  /  <%= tripname %>
<% if not rsTrip.eof then %> <% if rsTrip("UseModis") then %> <% end if %>
<% anything = incrementImpressions("Trip", tripid) if len(rsTrip("StartDate")) > 0 then response.write "" & formatDateNicely(rsTrip("StartDate"),2) & "" end if if rsTrip("StartDate") <> rsTrip("EndDate") and len(rsTrip("EndDate")) > 0 then response.write " to " & formatDateNicely(rsTrip("EndDate"),2) & "" end if if len(rsTrip("Description")) > 0 then response.write "

" & rsTrip("Description") & "" end if if len(rsTrip("Story")) > 0 then response.write "

" & rsTrip("Story") end if %>



<% end if rsTrip.close set rsTrip = nothing %> <% dim entryLink, entryLinked, imageLink, colour, counter do while not rs.eof entryLinked = false counter = counter + 1 if colour = 1 then colour = 2 else colour = 1 response.write "" loop rs.close set rs = nothing %>
Entries for <%= tripname %>:
" entryLink = "" imageLink = "" if len(rs("FromDate")) > 0 then response.write counter & "" & entryLink response.write "" & formatDateNicely(rs("FromDate"),1) & "" if rs("FromDate") <> rs("ToDate") and len(rs("ToDate")) > 0 then response.write "
" & formatDateNicely(rs("ToDate"),1) & "" elseif len(rs("Description")) > 0 then response.write "

" end if response.write "" entryLinked = true end if if not entryLinked then response.write counter & "		" & entryLink else response.write "" end if response.write "" & left(rs("name"),60) if len(rs("name")) > 60 then response.write "..." end if response.write "
" if len(rs("Description")) > 0 then response.write rs("Description") & "
" end if response.write rs("City") if len(rs("City")) > 0 and len(rs("Country")) > 0 then response.write ", " end if response.write rs("Country") & " " if rs("ImageCount") > 0 then response.write "(" & rs("ImageCount") & imageLink & ") " end if if rs("ExpenseSum") > 0 then response.write "(" & formatcurrency(cdbl(null2Zero(Null2Zero(rs("ExpenseSum"))))) & " Spent) " end if response.write "(" & rs("Impressions") & " Views)" rs.movenext response.write "
 <%= 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) %>