| |
">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 %>