dim rs
	set rs = server.CreateObject("adodb.recordset")
        defDate = DateToStr(dateadd("h",-24,strForumTimeAdjust))

	strSql = "SELECT member_id, m_name, m_lastheredate FROM " & strMemberTablePrefix & "MEMBERS where M_lastheredate >= '" & defDate & "' ORDER BY M_LASTHEREDATE DESC"
	rs.Open strSql, my_Conn
	%>
<table align="center" width="95%" cellspacing="1" cellpadding="3" bgcolor="<%=strTableBorderColor%>">
  <tr>
    <td align="left" bgcolor="<%=strHeadCellColor%>" width="100%">
      <font face="<%=strDefaultFontFace%>" size="<%=strDefaultFontSize%>" color="<%=strHeadFontColor%>"><b>
      Active Members Seen In the Last 24 Hours
      </b></font>
    </td>
  </tr>
  <tr>
    <td align="center" bgcolor="<%=strForumCellColor%>">
	<table border="0" cellpadding="0" cellspacing="5" width="100%">
		<tr>
			<td valign="middle" width="10%"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><b>No.</b></font></td>
			<td valign="middle" align="left"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><b>Member Name</b></font></td>
			<td valign="middle" align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><b>Last Seen</b></font></td>
		</tr>
		<% 
		intCounter = 1
		do while not rs.EOF%>
			<tr>
				<td><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><%= intCounter%>.</font></td>
				<td align="left"><a href="pop_profile.asp?mode=display&id=<%=rs("member_id")%>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><%= rs("m_name")%></font></a></td>
				<td align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>">
		  			<% minutesTotal = datediff("n",strtodate(rs("m_lastheredate")),strForumTimeAdjust)
		  			hoursTotal = int(minutesTotal / 60)
		  			daysSince = int(hoursTotal / 24)
		  			hoursSince = hoursTotal mod 24
		  			minutesSince = minutestotal mod 60
		  			if daysSince = 1 then Response.Write daysSince & " day, "
		  			if daysSince > 1 then Response.Write daysSince & " days, "			
					if hoursSince = 1 then Response.Write hoursSince & " hour, "		  
		 			if hoursSince > 1 then Response.Write hoursSince & " hours, "
		  			Response.Write minutesSince
			  		%> minutes ago.</font>
				</td>
			</tr>
			<%
			intCounter = intCounter + 1
			rs.movenext
		loop
		rs.Close
		%>
	</table>
    <p align="right"><a href="#top"><img src="<%= strImageURL %>icon_go_up.gif" border="0" WIDTH="15" HEIGHT="15"></a></p>
    </td>
  </tr>
</table>

<!--#INCLUDE FILE="inc_recentlyseen.asp" -->

Call DisplayRecentlySeen(100, "simple")

		Response.Write  "</font>" & vbNewLine & _

<% ' *** KC display of all users on for last 24 hours ***.

'<-- variables -->
sTot=0             '<-- counter for total--|

'<-- Open DB -->
db="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath ("YourDatabaseName.mdb")
set connForum = server.createobject("ADODB.Connection")
connForum.open db

'<-- Record Selection String, by Last Here Order, Decending (newest here first) -->

SQLforum="SELECT member_ID, M_LASThereDATE, M_NAME FROM FORUM_MEMBERS order by M_LASThereDATE desc"

'<-- Exectute the Above and Fetch the First Forum Record -->

set forumG=connForum.execute(SQLforum)

'<-- Now the magic... Convert the Date/Time, and only look at the DB until the Member was last on 24 hours ago -->

do while not forumG.bof and not forumG.eof and StrToDate(forumG(1))>(strForumTimeAdjust-1)

sTot = sTot+1      '<-- Increment Counter--|
numNow=forumG(0)   '<-- Current Record Member ID to Bold Current User--|

'<-- Display Record Info (Bold Current User Name)-->

if memberID=numNow then   '<-- Current Viewing Member in List, Make Bold, No Link--|%>
<B><%=forumG(2)%></B>, 
<%else             '<-- Show All the Rest with Profile Link--|%>
<a href="pop_profile.asp?mode=display&id=<%=forumG(0)%>"><%=forumG(2)%></a>, 
<%end if

forumG.movenext    '<-- Move to Next Record--|
loop

connForum.close    '<-- Close DB and Clean Up--|
set forumG=nothing
set connForum=nothing
%>
<p><B><%=stot%></b> Active Users in the last 24 hours.