Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 Active Topic Time Date Limit Expanded		  New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

rkp
New Member

59 Posts
Posted - 29 August 2007 :  11:37:50  Show Profile  Reply with Quote
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: 

"LastVisit" "LastFifteen" "LastThirty" "LastFortyFive" "LastHour" "Last2Hours"
"Last6Hours" "Last12Hours" "LastDay" "Last2Days" "LastWeek" "Last2Weeks"
"LastMonth" "Last2Months"


to this:

"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:

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:


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:


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:


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 



  "    <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:


  "    <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.
Edited by - rkp on 29 August 2007 11:39:09

JJenson
Advanced Member

USA
2121 Posts
Posted - 29 August 2007 :  11:42:46  Show Profile  Visit JJenson's Homepage  Reply with Quote
I am sure someone along the way will be able to use this.

Thanks for the mod <
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.07 seconds. Powered By: Snitz Forums 2000 Version 3.4.07