<%=validateField(sBBSName)%> : User Listing

<%@ CodePage=65001 Language="VBScript"%> <% GetConfigVariables SetupDatabase dim rank, sWebsite, sListUsername, sListPassword , sICQ, itotalposts, dDateRegistered, sICQlink dim SQL, dLastLogon, bdisablepostcount, sUserType, iEndCount, index, sOrdering dim sOppositeUsernameOrdering, sOppositeLocationOrdering, sOppositePostsOrdering, sOppositeRegisteredOrdering, sOppositeLastlogonOrdering if (bBBSRegistrationRequired = 1 or bBBSAuthorizationRequired = 1) and (sLogonType <> "ok") then response.redirect "../logon.asp?error=needregistration" end if ' Retrieve querystrings iStart = ValidateNumeric(request("start")) iUserCount = 0 sSortOrder = request("SortOrder") sOrdering = request("Ordering") if len(trim(sSortOrder))=0 then sSortOrder = "username" if sSortOrder = "username" then if sOrdering = "ASC" then sOppositeUsernameOrdering = "DESC" else sOppositeUsernameOrdering = "ASC" end if sOppositeLocationOrdering = "ASC" sOppositePostsOrdering = "DESC" sOppositeRegisteredOrdering = "ASC" sOppositeLastLogonOrdering = "DESC" elseif sSortOrder = "location" then if sOrdering = "ASC" then sOppositeLocationOrdering= "DESC" else sOppositeLocationOrdering= "ASC" end if sOppositeUsernameOrdering = "ASC" sOppositePostsOrdering = "DESC" sOppositeRegisteredOrdering = "ASC" sOppositeLastLogonOrdering = "DESC" elseif sSortOrder = "posts" then if sOrdering = "ASC" then sOppositePostsOrdering= "DESC" else sOppositePostsOrdering= "ASC" end if sOppositeUsernameOrdering = "ASC" sOppositeLocationOrdering = "ASC" sOppositeRegisteredOrdering = "ASC" sOppositeLastLogonOrdering = "DESC" elseif sSortOrder = "registered" then if sOrdering = "ASC" then sOppositeRegisteredOrdering = "DESC" else sOppositeRegisteredOrdering = "ASC" end if sOppositeUsernameOrdering = "ASC" sOppositeLocationOrdering = "ASC" sOppositePostsOrdering = "DESC" sOppositeLastLogonOrdering = "DESC" elseif sSortOrder = "lastlogon" then if sOrdering = "ASC" then sOppositeLastLogonOrdering = "DESC" else sOppositeLastLogonOrdering = "ASC" end if sOppositeUsernameOrdering = "ASC" sOppositeLocationOrdering = "ASC" sOppositePostsOrdering = "DESC" sOppositeRegisteredOrdering = "ASC" end if rsMaster.open "select count(*) as [usercount] from [members];", dbConnection, adOpenForwardOnly, adLockReadOnly if not rsMaster.EOF then iRecordCount = rsMaster.fields(0).value rsMaster.Close %> <%=validateField(sBBSName)%> : User Listing <% if bDisplayBBSQuotes = 1 then%>

<%=sBBSRandomQuoteText%> <%=GetRandomQuote%>

<% else %>
<% end if %> <% if bGlobaldisablepostcount <> 1 then %> <% end if %> <% rank = iStart SQL = "select [website], [username], [location], [totalposts], [dateregistered], [lastlogon], [disablepostcount] from [Members] where [Active]=1" if sSortOrder="username" then SQL = SQL & " order by [username] " & sOrdering & ";" elseif sSortOrder="posts" then SQL = SQL & " order by [disablepostcount] ASC, [totalposts] " & sOrdering & ";" elseif sSortOrder="location" then SQL = SQL & " order by [location] " & sOrdering & ";" elseif sSortOrder="registered" then SQL = SQL & " order by [dateregistered] " & sOrdering & ";" elseif sSortOrder="lastlogon" then SQL = SQL & " order by [lastlogon] " & sOrdering & ";" end if rsMaster.open SQL, dbConnection, adOpenForwardOnly, adLockReadOnly if not rsMaster.EOF then rsMaster.move iStart do until rsMaster.EOF or rank = (iStart + 100) rank = rank + 1 sWebsite = rsMaster.fields(0).value sListUsername = rsMaster.fields(1).value sLocation = rsMaster.fields(2).value itotalposts = rsMaster.fields(3).value dDateRegistered = GetShortDate(rsMaster.fields(4).value) dLastLogon = GetShortDateTime(rsMaster.fields(5).value) bdisablepostcount = rsMaster.fields(6).value %> <% if bGlobaldisablepostcount <> 1 then %> <% end if %> <% rsMaster.MoveNext loop rsMaster.Close %>

User listing for <%=validateField(sBBSName)%>

<% if isArray(vRankArray) then %>

User ranks:

<% for index = 0 to ((ubound(vRankArray, 2) \ 2)-1) response.write "" next %>

" & MBBSDecode(vRankArray(2, index), 1) & "

" if vRankArray(0, index) > 0 or vRankArray(1, index) > 0 then response.write "- " if vRankArray(0, index) > 0 then response.write vRankArray(0, index) & " posts" if vRankArray(0, index) > 0 and vRankArray(1, index) > 0 then response.write " " if vRankArray(1, index) > 0 then response.write vRankArray(1, index) & " days" response.write "

<% for index = ubound(vRankArray, 2) \ 2 to ubound(vRankArray, 2) response.write "" next %>

" & MBBSDecode(vRankArray(2, index), 1) & "

<% end if %>

<% if IsArray(vDecorationArray) then %>

Decorations:

<% for index = 0 to ((ubound(vDecorationArray, 2) \ 2)-1) response.write "" response.write "" next %>

" & (vDecorationArray(0, index)) & "

" & GetDecorations(vDecorationArray(0, index)) & "

<% for index = (ubound(vDecorationArray, 2) \ 2) to ubound(vDecorationArray,2) response.write "" response.write "" next %>

" & (vDecorationArray(0, index)) & "

" & GetDecorations(vDecorationArray(0, index)) & "

<% end if %>

Username

Rank

Location

Posts

Registered

Last Logon

<%=rank%>

<% if len(sWebsite) > 4 then response.write "" else response.write " " end if %>

<% if UserExists( sListUsername ) then response.write CreateUsernameLink (sListUsername) & validateField(sListUsername) & "" else response.write sListUsername end if %>

<%=MBBSDecode(GetUserRank(sListUsername), 1)%>

<%=validateField(sLocation)%>

<% if (bdisablepostcount = 1) and not(bIsAdmin) then response.write "Disabled" else response.write itotalposts end if %>

<%=(dDateRegistered)%>

<%=(dLastLogon)%>

Actions

BBS User Listing | BBS Statistics | Who's Online? | Last Users Online