<% Dim APP_ActiveUsers if Application(dbName&"onlineTracking") = 1 then Dim arrSession, ubSession, memberCount, guestCount, totalposts, tForum, totaltopics, getSessionType 'response.write ("appid:"&appid&"; appidType:"&typename(appid)) set objRS = server.createobject("adodb.recordset") objRS.open _ dbOwnerPrefix&"spGetSession ("&Application(dbName&"sessiontimeout")&","&getSessionType&",'"&appid&"','"&m&"',"&iff(proceedWithSessionTableCleanUp,"1","0")&")" _ , datastore , , , adCmdStoredProc if not (objRS.eof and objRS.bof) then arrSession = objRS.getrows objRS.close set objRS = nothing if isArray(arrSession) then ubSession = ubound(arrSession,2) else ubSession = 0 end if guestCount = Application(dbName&"pgd_activeUser") - APP_ActiveUsers if guestCount < 0 then guestCount = 0 %> <% If getSessionType = 0 then %> <% else %> <% end if %>

<%if isArray(arrSession) then%> <%end if%> <%= replace(replace(ActiveUserDesc, "#memberCount#", APP_ActiveUsers), "#guestCount#",guestCount)%> class="c2"> <% Dim listWritten:listWritten = false for i = 0 to ubSession If (isAdmin and arrSession(4,i) = 1) or (memID&"" = arrSession(0,i)&"" and arrSession(4,i) = 1) or arrSession(4,i) = 0 then if listWritten then response.write (",") response.write (" " &_ SetHiddenStatus(arrSession(1,i), isAdmin, arrSession(4,i), memID, arrSession(0,i))&"") listWritten = true end if next %>

<% if getSessionType = 1 then %> <%= UserBrowseDesc %> <% else %> <%= UserBrowseMDesc %> <% end if %> <% if isArray(arrSession) then listWritten = false for i = 0 to ubSession If (isAdmin and arrSession(4,i) = 1) or (memID&"" = arrSession(0,i)&"" and arrSession(4,i) = 1) or arrSession(4,i) = 0 then if listWritten then response.write (",") response.write (" "&_ SetHiddenStatus(arrSession(1,i), isAdmin, arrSession(4,i), memID, arrSession(0,i))&"") listWritten = true end if next erase arrSession else response.write (userBrowseNoneDesc) end if %>

<% end if %>