Active Topics Filter broken?

Could it be a cookie problem? As far as I understand (I may be wrong ), the database stores time of last login and time of last post, but is there a cookie which is read to indicate also the time you logged in?

 If something is wrong with this cookie, then is it possible that whilst the database records are correct for last login and last user post, if the cookie isnt being read properly or wasnt set properly, then it really wont make a difference what is in the database?

I hope you guys can understand what Im getting at, cos its confusing me!

I hear you -boRg-, I have tried the forum on another site hosted by the same company, and its the same

I have, however found a workaround which restores 90% functionality to active topics, if you could look at it and maybe advise on the last 10%?

active_topics.asp

I have edited the above file and commented out the following lines.

'Initialse the string to display when active topics are shown since
'Select Case intShowTopicsFrom
' Case 1
  'Filter the recorset to leave only active topics since last vists (Filter used for overcome incompatibilty problems between application and database)
'  rsForum.Filter = "Last_entry_date > #" & CDate(Session("dtmLastVisit")) & "#"
' case 2
'  rsForum.Filter = "Last_entry_date > #" & DateAdd("n", -15, Now()) & "#"
' case 3
'  rsForum.Filter = "Last_entry_date > #" & DateAdd("n", -30, Now()) & "#"
' Case 4
'  rsForum.Filter = "Last_entry_date > #" & DateAdd("n", -45, Now()) & "#"
' Case 5
'  rsForum.Filter = "Last_entry_date > #" & DateAdd("h", -1, Now()) & "#"
' Case 6
'  rsForum.Filter = "Last_entry_date > #" & DateAdd("h", -2, Now()) & "#"
' Case 7
'  rsForum.Filter = "Last_entry_date > #" & DateAdd("h", -4, Now()) & "#"
' Case 8
'  rsForum.Filter = "Last_entry_date > #" & DateAdd("h", -6, Now()) & "#"
' Case 9
'  rsForum.Filter = "Last_entry_date > #" & DateAdd("h", -8, Now()) & "#"
' Case 10
'  rsForum.Filter = "Last_entry_date > #" & DateAdd("h", -12, Now()) & "#"
' Case 11
'  rsForum.Filter = "Last_entry_date > #" & DateAdd("h", -16, Now()) & "#"
'End Select

Also I have commented these lines out

' case 2
'  strShowTopicsFrom = strTxtLastFifteenMinutes
'  dblActiveFrom = 1
' case 3
'  strShowTopicsFrom = strTxtLastThirtyMinutes
'  dblActiveFrom = 1
' Case 4
'  strShowTopicsFrom = strTxtLastFortyFiveMinutes
'  dblActiveFrom = 1
' Case 5
'  strShowTopicsFrom = strTxtLastHour
'  dblActiveFrom = 1
' Case 6
'  strShowTopicsFrom = strTxtLastTwoHours
'  dblActiveFrom = 1
' Case 7
'  strShowTopicsFrom = strTxtLastFourHours
'  dblActiveFrom = 1
' Case 8
'  strShowTopicsFrom = strTxtLastSixHours
'  dblActiveFrom = 1
' Case 9
'  strShowTopicsFrom = strTxtLastEightHours
'  dblActiveFrom = 1
' Case 10
'  strShowTopicsFrom = strTxtLastTwelveHours
'  dblActiveFrom = 1
' Case 11
'  strShowTopicsFrom = strTxtLastSixteenHours
'  dblActiveFrom = 1

Case 12
  strShowTopicsFrom = strTxtYesterday
  dblActiveFrom = 1
 Case 13
  strShowTopicsFrom = strTxtLastWeek
  dblActiveFrom = 7
 Case 14
  strShowTopicsFrom = strTxtLastMonth
  dblActiveFrom = 28

and I have inserted these lines in the same place

case 2
  strShowTopicsFrom = strTxtLastFifteenMinutes
  dblActiveFrom = 0.0104166
 case 3
  strShowTopicsFrom = strTxtLastThirtyMinutes
  dblActiveFrom = 0.0208333
 Case 4
  strShowTopicsFrom = strTxtLastFortyFiveMinutes
  dblActiveFrom = 0.0312498
 Case 5
  strShowTopicsFrom = strTxtLastHour
  dblActiveFrom = 0.0416666
 Case 6
  strShowTopicsFrom = strTxtLastTwoHours
  dblActiveFrom = 0.0833333
 Case 7
  strShowTopicsFrom = strTxtLastFourHours
  dblActiveFrom = 0.1666666
 Case 8
  strShowTopicsFrom = strTxtLastSixHours
  dblActiveFrom = 0.2499999
 Case 9
  strShowTopicsFrom = strTxtLastEightHours
  dblActiveFrom = 0.3333332
 Case 10
  strShowTopicsFrom = strTxtLastTwelveHours
  dblActiveFrom = 0.4999998
 Case 11
  strShowTopicsFrom = strTxtLastSixteenHours
  dblActiveFrom = 0.6666664
 Case 12
  strShowTopicsFrom = strTxtYesterday
  dblActiveFrom = 1
 Case 13
  strShowTopicsFrom = strTxtLastWeek
  dblActiveFrom = 7
 Case 14
  strShowTopicsFrom = strTxtLastMonth
  dblActiveFrom = 28

I did this because I found that no active topic filters worked except "Yesterday", "Last week" and "last month". By trial an error I found the bit in the code which seemed to relate to those filters, ie 1 day, 7 days and 28 days, then I edited the code to show each case as a decimal fraction of one day.

EG. the line

case 2
 strShowTopicsFrom = strTxtLastFifteenMinutes
 dblActiveFrom = 1

became

case 2
  strShowTopicsFrom = strTxtLastFifteenMinutes
  dblActiveFrom = 0.0104166

This seems to work for all except active topics since last login (which I havent touched, as I cant work out how it works)

Here is the code for case 1 (topics since last login)

Case 1
  strShowTopicsFrom = strTxtLastVisitOn & " " & DateFormat(Session("dtmLastVisit"), saryDateTimeData) & " " & strTxtAt & " " & TimeFormat(Session("dtmLastVisit"), saryDateTimeData)
  dblActiveFrom = DateDiff("d", Session("dtmLastVisit"), Now()) + 1

There is obviously something here, I reckon that my server/host doesnt understand, do you have an alternative I could use in place of this, so I can get active topics since last login working and get that final 10% functionality back?

Also, do you think these changes are ok, or have I compromised something else by doing them, and maybe risk some problem in future?

I ask this second question because some of the lines I commented out include the text..

  'Filter the recorset to leave only active topics since last vists (Filter used for overcome incompatibilty problems between application and database)

What incompatibility problems am I risking?

Hopefully, using this limited information, you may be able to suggest something else to me. Also I apologise to everyone about the length of this post and possibly it's somewhat confusing layout. Hope you can understand what I've done, and what my aim is.

Thanks again to everyone for taking the time/trouble to read (and hopefully reply!)