Just add the below to Select Case ActiveSince (around line #67)
Case "LastFifteen"
lastDate = DateToStr(DateAdd("n",-15,strForumTimeAdjust))
Case "LastThirty"
lastDate = DateToStr(DateAdd("n",-30,strForumTimeAdjust))
I added it right after:
Case "LastVisit"
lastDate = ""
and then add these 2 lines:
<option value="LastFifteen" <% if ActiveSince = "LastFifteen" then Response.Write(" SELECTED")%>> Last 15 minutes</option>
<option value="LastThirty" <% if ActiveSince = "LastThirty" then Response.Write(" SELECTED")%>> Last 30 minutes</option>
right after this line: (around line #157)
<option value="LastVisit" <% if ActiveSince = "LastVisit" or ActiveSince = "" then Response.Write(" SELECTED")%>> Last Visit on <%= ChkDate(Session(strCookieURL & "last_here_date")) %> <% =ChkTime(Session(strCookieURL & "last_here_date")) %> </option>
Here is a .txt version of active.asp that you can download if you want:
(But, on mine I also added: 2 hours ago, 2 days ago, 2 weeks ago & Last 2 Months)
http://kinser.121host.net/active.txt (just right-click and choose "Save Target As" and then rename active.txt to active.asp)
Edited by - Richard Kinser on 23 February 2001 15:28:15