<% drawLayerJS = true dim rs, rsLatest, hasProfileImage, profileImagePath, profileImagePathSM set rs = server.createobject("ADODB.Recordset") sqlString = "SELECT Trip.*, CountImages.ImageCount, CountSegments.SegmentCount, CountPacking.PackingCount, Users.Profile, Users.ProfileImage, Users.FolderKey " & _ "FROM Users LEFT JOIN (CountPacking RIGHT JOIN ((CountImages RIGHT JOIN Trip ON CountImages.ID = Trip.ID) LEFT JOIN CountSegments ON Trip.ID = CountSegments.ID) ON CountPacking.ID = Trip.ID) ON Users.ID = Trip.UserID " & _ "WHERE (((Users.ID)=" & userid & ") AND ((Users.AccountActive)=True)) " & _ "ORDER BY Trip.StartDate;" rs.open sqlString, Application("RTW_DSN"), 0 hasProfileImage = rs("ProfileImage") profileImagePath = "images_trip/" & rs("FolderKey") & "/profile.jpg" profileImagePathSM = "images_trip/" & rs("FolderKey") & "/profile_sm.jpg" %> " %> <% response.write "

Journeys  /  <%= username %>
" ' response.write "" if len(rs("Profile")) > 0 then response.write " " & rs("Profile") & " " end if response.write " " else if len(rs("Profile")) > 0 then response.write " class=""entryCopy"">" & rs("Profile") else response.write ">" end if end if 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
" entryLink = "" imageLink = "" response.write entryLink & "" & rsLatest("name") response.write "" if len(rsLatest("City")) > 0 or len(rsLatest("Country")) > 0 then response.write " " end if response.write rsLatest("City") if len(rsLatest("City")) > 0 and len(rsLatest("Country")) > 0 then response.write ", " end if response.write rsLatest("Country") if len(rsLatest("FromDate")) > 0 then response.write " " & formatDateNicely(rsLatest("FromDate"),2) end if if rsLatest("FromDate") <> rsLatest("ToDate") and len(rsLatest("ToDate")) > 0 then response.write " - " & formatDateNicely(rsLatest("ToDate"),2) & " " elseif len(rsLatest("FromDate")) > 0 then response.write " " end if if rsLatest("ImageCount") > 0 then response.write "(" & imageLink & rsLatest("ImageCount") & " Images) " end if if rsLatest("ExpenseSum") > 0 then response.write "(" & formatcurrency(cdbl(null2Zero(Null2Zero(rsLatest("ExpenseSum"))))) & " Spent) " end if response.write "(" & rsLatest("Impressions") & " Views) " end if rsLatest.close set rsLatest = nothing %> <% dim entriesLink, packingLink, colour, counter do while not rs.eof if rs("Active") then counter = counter + 1 if colour = 1 then colour = 2 else colour = 1 entriesLink = "" response.write "" end if rs.movenext loop rs.close set rs = nothing %> <%= username %><% if right(username,1) = "s" then response.write "'" else response.write "'s" end if %> Journeys: " & counter & " " & entriesLink & "" & rs("name") & " " if len(rs("description")) > 0 then response.write rs("description") & " " end if if rs("SegmentCount") > 0 then response.write "(" & rs("SegmentCount") & entriesLink & ") " end if if rs("PackingCount") > 0 then response.write "() " end if if rs("ImageCount") > 0 then response.write "(" & rs("ImageCount") & " ) " end if response.write "(" & rs("Impressions") & " Views) " response.write "
<%= drawSpacer(517,1) %>	<%= drawSpacer(123,1) %>

<% if hasProfileImage then %> <% end if %>