The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
Don't know if this has been addressed, but I needed an active topic screen on steroids. I don't write code so please check it before editing yours. The enviroment that our forum is in requires constant updates in certain areas, so that is why I needed to edit this. Not sure this is a 'mod' but I didn't want to post this in the general forum.
Editing my active.asp page, I changed the active topic setting from the unmodified:
to this:
To accomplish this I found and deleted:
and added the following in its place:
To further edit the drop down, I found:
And replaced it with:
I also changed my refresh times from:
2, 5, 10 and 15 to 1, 2, 5, 10, 15, 30, and 60.
by deleting
and replacing it with:
Not sure this has been done or beneficial to anyone else but me, so apologies if I shouldn't have posted it.
Editing my active.asp page, I changed the active topic setting from the unmodified:
Code:
"LastVisit" "LastFifteen" "LastThirty" "LastFortyFive" "LastHour" "Last2Hours"
"Last6Hours" "Last12Hours" "LastDay" "Last2Days" "LastWeek" "Last2Weeks"
"LastMonth" "Last2Months"to this:
Code:
"LastVisit" "LastFifteen" "LastThirty" "LastFortyFive" "LastHour" "Last2Hours"
"Last4Hours" "Last6Hours" "Last8Hours" "Last10Hours" "Last12Hours" "Last16Hours"
"Last18Hours" "Last20Hours" "LastDay" "Last30Hours" "Last2Days" "Last4Days" "Last6Days"
"LastWeek" "Last8Days" "Last10Days" "Last12Days" "Last2Weeks" "Last3Weeks" "LastMonth"
"Last2Months" "Last4Months" "Last6Months" "Last12Months" "Last18Months"To accomplish this I found and deleted:
Code:
Select Case ActiveSince
Case "LastVisit"
lastDate = ""
Case "LastFifteen"
lastDate = DateToStr(DateAdd("n",-15,strForumTimeAdjust))
Case "LastThirty"
lastDate = DateToStr(DateAdd("n",-30,strForumTimeAdjust))
Case "LastFortyFive"
lastDate = DateToStr(DateAdd("n",-45,strForumTimeAdjust))
Case "LastHour"
lastDate = DateToStr(DateAdd("h",-1,strForumTimeAdjust))
Case "Last2Hours"
lastDate = DateToStr(DateAdd("h",-2,strForumTimeAdjust))
Case "Last6Hours"
lastDate = DateToStr(DateAdd("h",-6,strForumTimeAdjust))
Case "Last12Hours"
lastDate = DateToStr(DateAdd("h",-12,strForumTimeAdjust))
Case "LastDay"
lastDate = DateToStr(DateAdd("d",-1,strForumTimeAdjust))
Case "Last2Days"
lastDate = DateToStr(DateAdd("d",-2,strForumTimeAdjust))
Case "LastWeek"
lastDate = DateToStr(DateAdd("ww",-1,strForumTimeAdjust))
Case "Last2Weeks"
lastDate = DateToStr(DateAdd("ww",-2,strForumTimeAdjust))
Case "LastMonth"
lastDate = DateToStr(DateAdd("m",-1,strForumTimeAdjust))
Case "Last2Months"
lastDate = DateToStr(DateAdd("m",-2,strForumTimeAdjust))
Case Else
lastDate = ""
End Select
and added the following in its place:
Code:
Select Case ActiveSince
Case "LastVisit"
lastDate = ""
Case "LastFifteen"
lastDate = DateToStr(DateAdd("n",-15,strForumTimeAdjust))
Case "LastThirty"
lastDate = DateToStr(DateAdd("n",-30,strForumTimeAdjust))
Case "LastFortyFive"
lastDate = DateToStr(DateAdd("n",-45,strForumTimeAdjust))
Case "LastHour"
lastDate = DateToStr(DateAdd("h",-1,strForumTimeAdjust))
Case "Last2Hours"
lastDate = DateToStr(DateAdd("h",-2,strForumTimeAdjust))
Case "Last4Hours"
lastDate = DateToStr(DateAdd("h",-4,strForumTimeAdjust))
Case "Last6Hours"
lastDate = DateToStr(DateAdd("h",-6,strForumTimeAdjust))
Case "Last8Hours"
lastDate = DateToStr(DateAdd("h",-8,strForumTimeAdjust))
Case "Last10Hours"
lastDate = DateToStr(DateAdd("h",-10,strForumTimeAdjust))
Case "Last12Hours"
lastDate = DateToStr(DateAdd("h",-12,strForumTimeAdjust))
Case "Last16Hours"
lastDate = DateToStr(DateAdd("h",-16,strForumTimeAdjust))
Case "Last18Hours"
lastDate = DateToStr(DateAdd("h",-18,strForumTimeAdjust))
Case "Last20Hours"
lastDate = DateToStr(DateAdd("h",-20,strForumTimeAdjust))
Case "LastDay"
lastDate = DateToStr(DateAdd("d",-1,strForumTimeAdjust))
Case "Last30Hours"
lastDate = DateToStr(DateAdd("h",-30,strForumTimeAdjust))
Case "Last2Days"
lastDate = DateToStr(DateAdd("d",-2,strForumTimeAdjust))
Case "Last4Days"
lastDate = DateToStr(DateAdd("d",-4,strForumTimeAdjust))
Case "Last6Days"
lastDate = DateToStr(DateAdd("d",-6,strForumTimeAdjust))
Case "LastWeek"
lastDate = DateToStr(DateAdd("ww",-1,strForumTimeAdjust))
Case "Last8Days"
lastDate = DateToStr(DateAdd("d",-8,strForumTimeAdjust))
Case "Last10Days"
lastDate = DateToStr(DateAdd("d",-10,strForumTimeAdjust))
Case "Last12Days"
lastDate = DateToStr(DateAdd("d",-12,strForumTimeAdjust))
Case "Last2Weeks"
lastDate = DateToStr(DateAdd("ww",-2,strForumTimeAdjust))
Case "Last3Weeks"
lastDate = DateToStr(DateAdd("ww",-3,strForumTimeAdjust))
Case "LastMonth"
lastDate = DateToStr(DateAdd("m",-1,strForumTimeAdjust))
Case "Last2Months"
lastDate = DateToStr(DateAdd("m",-2,strForumTimeAdjust))
Case "Last4Months"
lastDate = DateToStr(DateAdd("m",-4,strForumTimeAdjust))
Case "Last6Months"
lastDate = DateToStr(DateAdd("m",-6,strForumTimeAdjust))
Case "Last12Months"
lastDate = DateToStr(DateAdd("m",-12,strForumTimeAdjust))
Case "Last18Months"
lastDate = DateToStr(DateAdd("m",-18,strForumTimeAdjust))
Case Else
lastDate = ""
End Select
To further edit the drop down, I found:
Code:
Response.Write "> Last Visit on " & ChkDate(Session(strCookieURL & "last_here_date"),"",true) & " </option>" & vbNewline & _
" <option value=""LastFifteen""" & chkSelect(ActiveSince,"LastFifteen") & "> Last 15 minutes</option>" & vbNewline & _
" <option value=""LastThirty""" & chkSelect(ActiveSince,"LastThirty") & "> Last 30 minutes</option>" & vbNewline & _
" <option value=""LastFortyFive""" & chkSelect(ActiveSince,"LastFortyFive") & "> Last 45 minutes</option>" & vbNewline & _
" <option value=""LastHour""" & chkSelect(ActiveSince,"LastHour") & "> Last Hour</option>" & vbNewline & _
" <option value=""Last2Hours""" & chkSelect(ActiveSince,"Last2Hours") & "> Last 2 Hours</option>" & vbNewline & _
" <option value=""Last6Hours""" & chkSelect(ActiveSince,"Last6Hours") & "> Last 6 Hours</option>" & vbNewline & _
" <option value=""Last12Hours""" & chkSelect(ActiveSince,"Last12Hours") & "> Last 12 Hours</option>" & vbNewline & _
" <option value=""LastDay""" & chkSelect(ActiveSince,"LastDay") & "> Yesterday</option>" & vbNewline & _
" <option value=""Last2Days""" & chkSelect(ActiveSince,"Last2Days") & "> Last 2 Days</option>" & vbNewline & _
" <option value=""LastWeek""" & chkSelect(ActiveSince,"LastWeek") & "> Last Week</option>" & vbNewline & _
" <option value=""Last2Weeks""" & chkSelect(ActiveSince,"Last2Weeks") & "> Last 2 Weeks</option>" & vbNewline & _
" <option value=""LastMonth""" & chkSelect(ActiveSince,"LastMonth") & "> Last Month</option>" & vbNewline & _
" <option value=""Last2Months""" & chkSelect(ActiveSince,"Last2Months") & "> Last 2 Months</option>" & vbNewline & _
" </select>" & vbNewline
And replaced it with:
Code:
Response.Write "> Last Visit on " & ChkDate(Session(strCookieURL & "last_here_date"),"",true) & " </option>" & vbNewline & _
" <option value=""LastFifteen""" & chkSelect(ActiveSince,"LastFifteen") & "> Last 15 minutes</option>" & vbNewline & _
" <option value=""LastThirty""" & chkSelect(ActiveSince,"LastThirty") & "> Last 30 minutes</option>" & vbNewline & _
" <option value=""LastFortyFive""" & chkSelect(ActiveSince,"LastFortyFive") & "> Last 45 minutes</option>" & vbNewline & _
" <option value=""LastHour""" & chkSelect(ActiveSince,"LastHour") & "> Last Hour</option>" & vbNewline & _
" <option value=""Last2Hours""" & chkSelect(ActiveSince,"Last2Hours") & "> Last 2 Hours</option>" & vbNewline & _
" <option value=""Last4Hours""" & chkSelect(ActiveSince,"Last4Hours") & "> Last 4 Hours</option>" & vbNewline & _
" <option value=""Last6Hours""" & chkSelect(ActiveSince,"Last6Hours") & "> Last 6 Hours</option>" & vbNewline & _
" <option value=""Last8Hours""" & chkSelect(ActiveSince,"Last8Hours") & "> Last 8 Hours</option>" & vbNewline & _
" <option value=""Last10Hours""" & chkSelect(ActiveSince,"Last10Hours") & "> Last 10 Hours</option>" & vbNewline & _
" <option value=""Last12Hours""" & chkSelect(ActiveSince,"Last12Hours") & "> Last 12 Hours</option>" & vbNewline & _
" <option value=""Last16Hours""" & chkSelect(ActiveSince,"Last16Hours") & "> Last 16 Hours</option>" & vbNewline & _
" <option value=""Last18Hours""" & chkSelect(ActiveSince,"Last18Hours") & "> Last 18 Hours</option>" & vbNewline & _
" <option value=""Last20Hours""" & chkSelect(ActiveSince,"Last20Hours") & "> Last 20 Hours</option>" & vbNewline & _
" <option value=""LastDay""" & chkSelect(ActiveSince,"LastDay") & "> Yesterday</option>" & vbNewline & _
" <option value=""Last30Hours""" & chkSelect(ActiveSince,"Last30Hours") & "> Last 30 Hours</option>" & vbNewline & _
" <option value=""Last2Days""" & chkSelect(ActiveSince,"Last2Days") & "> Last 2 Days</option>" & vbNewline & _
" <option value=""Last4Days""" & chkSelect(ActiveSince,"Last4Days") & "> Last 4 Days</option>" & vbNewline & _
" <option value=""Last6Days""" & chkSelect(ActiveSince,"Last6Days") & "> Last 6 Days</option>" & vbNewline & _
" <option value=""LastWeek""" & chkSelect(ActiveSince,"LastWeek") & "> Last Week</option>" & vbNewline & _
" <option value=""Last8Days""" & chkSelect(ActiveSince,"Last8Days") & "> Last 8 Days</option>" & vbNewline & _
" <option value=""Last10Days""" & chkSelect(ActiveSince,"Last10Days") & "> Last 10 Days</option>" & vbNewline & _
" <option value=""Last12Days""" & chkSelect(ActiveSince,"Last12Days") & "> Last 12 Days</option>" & vbNewline & _
" <option value=""Last2Weeks""" & chkSelect(ActiveSince,"Last2Weeks") & "> Last 2 Weeks</option>" & vbNewline & _
" <option value=""Last3Weeks""" & chkSelect(ActiveSince,"Last3Weeks") & "> Last 3 Weeks</option>" & vbNewline & _
" <option value=""LastMonth""" & chkSelect(ActiveSince,"LastMonth") & "> Last Month</option>" & vbNewline & _
" <option value=""Last2Months""" & chkSelect(ActiveSince,"Last2Months") & "> Last 2 Months</option>" & vbNewline & _
" <option value=""Last4Months""" & chkSelect(ActiveSince,"Last4Months") & "> Last 4 Months</option>" & vbNewline & _
" <option value=""Last6Months""" & chkSelect(ActiveSince,"Last6Months") & "> Last 6 Months</option>" & vbNewline & _
" <option value=""Last12Months""" & chkSelect(ActiveSince,"Last12Months") & "> Last 12 Months</option>" & vbNewline & _
" <option value=""Last18Months""" & chkSelect(ActiveSince,"Last18Months") & "> Last 18 Months</option>" & vbNewline & _
" </select>" & vbNewline
I also changed my refresh times from:
2, 5, 10 and 15 to 1, 2, 5, 10, 15, 30, and 60.
by deleting
Code:
" <select name=""RefreshTime"" size=""1"" onchange=""autoReload();"">" & vbNewline & _
" <option value=""0""" & chkSelect(nRefreshTime,0) & ">Don't reload automatically</option>" & vbNewline & _
" <option value=""2""" & chkSelect(nRefreshTime,2) & ">Reload page every 2 minutes</option>" & vbNewline & _
" <option value=""5""" & chkSelect(nRefreshTime,5) & ">Reload page every 5 minutes</option>" & vbNewline & _
" <option value=""10""" & chkSelect(nRefreshTime,10) & ">Reload page every 10 minutes</option>" & vbNewline & _
" <option value=""15""" & chkSelect(nRefreshTime,15) & ">Reload page every 15 minutes</option>" & vbNewline & _
" </select>" & vbNewline
and replacing it with:
Code:
" <select name=""RefreshTime"" size=""1"" onchange=""autoReload();"">" & vbNewline & _
" <option value=""0""" & chkSelect(nRefreshTime,0) & ">Don't reload automatically</option>" & vbNewline & _
" <option value=""1""" & chkSelect(nRefreshTime,1) & ">Reload page every minute</option>" & vbNewline & _
" <option value=""2""" & chkSelect(nRefreshTime,2) & ">Reload page every 2 minutes</option>" & vbNewline & _
" <option value=""5""" & chkSelect(nRefreshTime,5) & ">Reload page every 5 minutes</option>" & vbNewline & _
" <option value=""10""" & chkSelect(nRefreshTime,10) & ">Reload page every 10 minutes</option>" & vbNewline & _
" <option value=""15""" & chkSelect(nRefreshTime,15) & ">Reload page every 15 minutes</option>" & vbNewline & _
" <option value=""30""" & chkSelect(nRefreshTime,30) & ">Reload page every 30 minutes</option>" & vbNewline & _
" <option value=""60""" & chkSelect(nRefreshTime,60) & ">Reload page every 60 minutes</option>" & vbNewline & _
" </select>" & vbNewline
Not sure this has been done or beneficial to anyone else but me, so apologies if I shouldn't have posted it.
نوشته شده در
I am sure someone along the way will be able to use this. 
Thanks for the mod
<
Thanks for the mod
<