<%@ CodePage=65001 Language="VBScript"%>
<% Option Explicit %>
<%
GetConfigVariables
SetupDatabase
dim iCount, sResult, iRecordCount, iStart, bHonorInvisible, SQL, iPage, iCurrentPage
dim sWebsite, sListUserName, sIP, itotalposts, sLocation, irecordid
dim dlogontime, dlogofftime, iInvisible, bIsAdmin
iCount = 0
iStart = validateNumeric(request("start"))
CheckUsername sUsername, sPassword, sResult
if (bBBSRegistrationRequired = 1 or bBBSAuthorizationRequired = 1) and (sResult <> "ok") then
response.redirect "../logon.asp?error=needregistration"
end if
if isAdmin(sUsername, sPassword) or (isModerator(sUsername, sPassword, -1) and bModeratorsCanSeeInvisible = 1) then
bHonorInvisible = 0
else
bHonorInvisible = 1
end if
bIsAdmin = IsAdmin(sUsername, sPassword)
%>
<%=validateField(sBBSName)%> : Visitor History
<% if bDisplayBBSQuotes = 1 then%>
<%=sBBSRandomQuoteText%> <%=GetRandomQuote%>
<% else %> <% end if %>
" class="messagecellheader">Last visitors to <%=validateField(sBBSName)%>
Username
<% if bBBSHideIP = 0 or (bIsAdmin) then %>
IP
<% end if %>
Logon Time
Logoff Time
Location
<%
SQL = "select [visitorhistory].[ID], [visitorhistory].[logontime], [visitorhistory].[logofftime], [visitorhistory].[Username], [visitorhistory].[ip], [members].[location], [members].[ICQnumber], [members].[totalposts], " & _
"[members].[website], [members].[invisible] from [visitorhistory] LEFT OUTER JOIN [members] on " & _
"[visitorhistory].[username] = [members].[username] order by [visitorhistory].[logofftime] DESC;"
rsMaster.open SQL, dbConnection, adOpenForwardOnly, adLockReadOnly
if not rsMaster.EOF then
iRecordCount = rsMaster.recordcount
rsMaster.move iStart
do until (rsMaster.EOF or iCount=20)
iCount = iCount + 1
irecordid = rsMaster("ID")
sWebsite = rsMaster("website")
sListUsername = rsMaster("username")
sIP = rsMaster("ip")
itotalposts = rsMaster("totalposts")
sLocation = rsMaster("location")
dlogontime = GetShortDateTime(rsMaster("logontime"))
dlogofftime = GetShortDateTime(rsMaster("logofftime"))
iInvisible = rsMaster("invisible")
if (iInvisible = 1 and bHonorInvisible = 0) or (iInvisible = 0) or not( UserExists( sListUsername ) ) then
%>
<%=irecordid%>
<% if len(sWebsite) > 4 then
response.write ""
end if
%>
<% if UserExists( sListUsername ) then
response.write CreateUsernameLink (sListUsername) & validateField(sListUsername) & ""
else
response.write sListUsername
end if
%>
<% if bBBSHideIP = 0 or (bIsAdmin) then %>
<%=sIP%>
<% end if %>
<%=dlogontime%>
<%=dlogofftime%>
<%=validateField(sLocation)%>
<% else %>
<%=irecordid%>
Invisible user
<%=dlogofftime%>
<% end if
rsMaster.MoveNext
loop
end if
rsMaster.close
%>