<% HideOnline = "HideOnline" If Request.QueryString(HideOnline) = "Y" then Response.Cookies(strUniqueID & HideOnline) = "Y" Response.Cookies(strUniqueID & HideOnline).Expires = dateAdd("d", 30, strForumTimeAdjust) Else If Request.QueryString(HideOnline) = "N" then Response.Cookies(strUniqueID & HideOnline) = "N" Response.Cookies(strUniqueID & HideOnline).Expires = dateAdd("d", 30, strForumTimeAdjust) End If End If %> "> <% ' This code will specify whether or not to show the forums under a category HideOnline = "HideOnline" If Request.Cookies(strUniqueID & HideOnline) = "Y" then %> <% =HideOnline & "=N" %>"> <% Else %> <% =HideOnline & "=Y" %>"> <% End If %> Online Users <% if Request.Cookies(strUniqueID & HideOnline) <> "Y" then %>   ">Currently Browsing the Boards (<% =onlinecount %>)
<% mypage = request("whichpage") If mypage = "" then mypage = 1 end if mypagesize = request.cookies(strCookieURL & "paging")("pagesize") If mypagesize = "" then mypagesize = 15 end if set rs = Server.CreateObject("ADODB.Recordset") '## Forum_SQL strSql ="SELECT " & strTablePrefix & "ONLINE.UserID, " & strTablePrefix & "ONLINE.M_BROWSE, " & strTablePrefix & "ONLINE.DateCreated " strSql = strSql & " FROM " & strMemberTablePrefix & "ONLINE " strSql = strSql & " ORDER BY " & strTablePrefix & "ONLINE.DateCreated 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 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 %> <% if strUseExtendedProfile then Response.Write("") else Response.Write("") end if Response.Write(rs("UserID") & ", ") end if rs.MoveNext rec = rec + 1 loop %> <% if Members <> 0 then %>and <% end if %><% =Guests %><% if Guests=1 then %> Guest.<% else %> Guests.<% end if %> <% end if end if %>