<% '## Do Cookie stuffs with reload nRefreshTime = Request.Cookies(strTempCookieType & "Reload") if Request.form("cookie") = "1" then if strSetCookieToForum = 1 then Response.Cookies(strTempCookieType & "Reload").Path = strTempCookieType end if Response.Cookies(strTempCookieType & "Reload") = Request.Form("RefreshTime") Response.Cookies(strTempCookieType & "Reload").expires = strForumTimeAdjust + 365 nRefreshTime = Request.Form("RefreshTime") end if if nRefreshTime = "" then nRefreshTime = 0 end if ActiveSince = Request.Cookies(strTempCookieType & "ActiveSince") '## Do Cookie stuffs with show last date if Request.form("cookie") = "2" then ActiveSince = Request.Form("ShowSinceDateTime") if strSetCookieToForum = 1 then Response.Cookies(strTempCookieType & "ActiveSince").Path = strTempCookieType end if Response.Cookies(strTempCookieType & "ActiveSince") = ActiveSince end if mypage = request("whichpage") If mypage = "" then mypage = 1 end if mypagesize = request.cookies("paging")("pagesize") If mypagesize = "" then mypagesize = 15 end if %>

Active Users

 All Forums
 Active Users (Last Updated <%=NOW%>)

<% if (mlev = 4 or mlev = 3) then %> <% end if %> <% set rs = Server.CreateObject("ADODB.Recordset") '## Forum_SQL strSql ="SELECT " & strTablePrefix & "ONLINE.UserID, " & strTablePrefix & "ONLINE.UserIP, " & strTablePrefix & "ONLINE.M_BROWSE, " & strTablePrefix & "ONLINE.DateCreated, " & strTablePrefix & "ONLINE.LastChecked, " & strTablePrefix & "ONLINE.CheckedIn " strSql = strSql & " FROM " & strMemberTablePrefix & "ONLINE " strSql = strSql & " ORDER BY " & strTablePrefix & "ONLINE.DateCreated, " & strTablePrefix & "ONLINE.CheckedIn DESC" rs.cachesize = 20 rs.open strSql, my_Conn, 3 i = 0 If rs.EOF or rs.BOF then '## No categories found in DB Response.Write "" Else rs.movefirst num = 0 rs.pagesize = mypagesize maxpages = cint(rs.pagecount) maxrecs = cint(rs.pagesize) rs.absolutepage = mypage howmanyrecs = 0 rec = 1 do until rs.EOF or (rec = mypagesize+1) if strI = 0 then CColor = strAltForumCellColor else CColor = strForumCellColor end if strTheUserID = rs("UserID") strTheUserID = OnlineSQLdecode(strTheUserID) if Right(rs("UserID"), 5) <> "Guest" then strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strTablePrefix & "ONLINE.UserID " strSql = strSql & " FROM " & strTablePrefix & "MEMBERS, " & strTablePrefix & "ONLINE " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & rs("UserID") & "' " set rsMember = my_Conn.Execute (strSql) end if if Right(rs("UserID"), 5) = "Guest" then num = num + 1 end if strRSCheckedIn = rs("CheckedIn") strOnlineLastDateChecked = rs("LastChecked") strOnlineDateCheckedIn = StrToDate(strRSCheckedIn) strOnlineLastDateChecked = StrToDate(strOnlineLastDateChecked) strOnlineTotalTime = DateDiff("n",strOnlineDateCheckedIn,strOnlineLastDateChecked) If strOnlineTotalTime > 60 then ' they must have been online for like an hour or so. strOnlineHours = 0 do until strOnlineTotalTime < 60 strOnlineTotalTime = (strOnlineTotalTime - 60) strOnlineHours = strOnlineHours + 1 loop strOnlineTotalTime = strOnlineHours & " Hours " & strOnlineTotalTime & " Minutes" Else strOnlineTotalTime = strOnlineTotalTime & " Minutes" End If %> <% if Right(rs("UserID"), 5) = "Guest" then %> <% else %> <% end if %> <% rs.MoveNext strI = strI + 1 if strI = 2 then strI = 0 end if rec = rec + 1 loop end if %>
UsernameIP AddressWhere Logged On Last Active Online Time
Guest #<% =num %> <% if strUseExtendedProfile then Response.Write("") else Response.Write("") end if Response.Write(rs("UserID") & "") %> <% end if %> <% if (mlev = 4 or mlev = 3) then %> <% =rs("UserIP")%><% =rs("M_BROWSE")%> <%=strOnlineDateCheckedIn%> <%=strOnlineLastDateChecked%> <%=strOnlineTotalTime%>
  <% if maxpages > 1 then %>
Pages: <% Call Paging() %>
<% else %>   <% end if %>

Return to Main Forums Listing


<% sub Paging() if maxpages > 1 then if Request.QueryString("whichpage") = "" then pge = 1 else pge = Request.QueryString("whichpage") end if scriptname = request.servervariables("script_name") Response.Write("") for counter = 1 to maxpages if counter <> cint(pge) then ref = "" Response.Write ref else ref = ref & "'>" & counter & "" Response.Write ref end if else Response.Write("") end if if counter mod 15 = 0 then Response.Write("") end if next Response.Write("
" & " " & widenum(counter) & "" & counter & "" & " " & widenum(counter) & "" & counter & "
") end if top = "0" end sub %>