Snitz Forums 2000 - Mod Idea:Total members that have visited the forum


	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>

<% ' *** 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--|%> <%=forumG(2)%>, <%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 %> <%=stot%> Active Users in the last 24 hours.