[ALTER]
ACTIVE_USERS
ADD#AU_FORUM_ID#varchar(10)#NULL#
[END]

Sub ActiveUserTracker()
	'Ls3k- Declaire and assign variables.
	Dim strUserIP, strScriptName, strQueryString, strUserAgent, strCurrentTime, strTimedOut

	strUserIP = Request.ServerVariables("REMOTE_ADDR")
	strScriptName = Mid(Request.ServerVariables("SCRIPT_NAME"), InstrRev(Request.ServerVariables("SCRIPT_NAME"), "/")+1)
	strQueryString = Request.ServerVariables("QUERY_STRING")
	strUserAgent = Request.ServerVariables("HTTP_USER_AGENT")
	strCurrentTime = DateToStr(strForumTimeAdjust)
	intAUForumID = Request.QueryString("FORUM_ID")

	intAUTopicID = Request.QueryString("TOPIC_ID")
	If intAUTopicID <> "" Then
		strSQL2 = "SELECT FORUM_ID FROM " & strTablePrefix & "FORUM WHERE TOPIC_ID = " & CInt(intAUTopicID) & ";"
		Set rs1 = my_conn.execute (strSQL2)

		If rs1.EOF or rs1.BOF Then
			'Do Nothing
		Else
			intAUForumID = rs1("FORUM_ID")
		End If

		rs1.Close
		Set rs1 = Nothing
	End If

	'Ls3k- First Order of business, is this person new?
	if MemberID="-1" then 'If this is a Guest, check by IP
		strSql = "SELECT AU_LASTACTIVETIME FROM " & strTablePrefix & "ACTIVE_USERS WHERE AU_IP = '" & Chkstring(strUserIP, "SQLString") & "' AND MEMBER_ID = -1"
	else 'If this is a Member, check by Member_ID
		strSql = "SELECT AU_LASTACTIVETIME FROM " & strTablePrefix & "ACTIVE_USERS WHERE MEMBER_ID = " & MemberID
	end if

	set rs = my_conn.execute (strSql)

	if rs.EOF or rs.BOF then
		strNewUser = 1
	else
		strNewUser = 0
		strAUTimedOut = DateToStr(DateAdd("n",-strAUTimeout,strForumTimeAdjust))

		if rs("AU_LASTACTIVETIME") < strAUTimedOut then  'Check to see if user has timed out since last active.
			strSql = "DELETE FROM " & strTablePrefix & "ACTIVE_USERS WHERE (MEMBER_ID = " & MemberID & " AND MEMBER_ID <> -1) OR (AU_IP = '" & Chkstring(strUserIP, "SQLString") & "' AND MEMBER_ID = -1)"
			my_conn.execute (strSql)
			strNewUser = 1
		end if
	end if

	rs.close
	set rs = Nothing

	'Ls3k- Second order of business, lets update those already-active users
	if strNewUser = 0 then 'If already-active
		strSql = "UPDATE " & strTablePrefix & "ACTIVE_USERS SET " & _
				"AU_LASTACTIVETIME='" & Chkstring(strCurrentTime, "SQLString") & "'" & _
				", AU_LASTPAGE='" & Chkstring(strScriptName, "SQLString") & "'" & _
				", AU_QUERYSTRING='" & Chkstring(strQueryString, "SQLString") & "' " & _
				", AU_FORUM_ID='" & Chkstring(intAUForumID, "SQLString") & "' "
		if MemberID=-1 then 'If guest, update based on IP
			strSql = strSql & "WHERE AU_IP = '" & Chkstring(strUserIP, "SQLString") & "' " & _
					"AND MEMBER_ID = " & MemberID
		else 'Update members based on MemberID
			strSql = strSql & "WHERE MEMBER_ID = " & MemberID
		end if

		my_conn.execute (strSql)
	else 'Is a new user, make new record
		if strLoginStatus = 0 then
			strSql = "INSERT INTO " & strTablePrefix & "ACTIVE_USERS (" & _
					"MEMBER_ID, AU_IP, AU_LOGINTIME, AU_LASTACTIVETIME, " & _
					"AU_LASTPAGE, AU_QUERYSTRING, AU_USER_AGENT, AU_FORUM_ID) VALUES(" & _
					MemberID & ", " & _
					"'" & Chkstring(strUserIP, "SQLString") & "', " & _
					"'" & Chkstring(strCurrentTime, "SQLString") & "', " & _
					"'" & Chkstring(strCurrentTime, "SQLString") & "', " & _
					"'" & Chkstring(strScriptName, "SQLString") & "', " & _
					"'" & Chkstring(strQueryString, "SQLString") & "', " & _
					"'" & Chkstring(strUserAgent, "SQLString") & "', " & _
					"'" & Chkstring(intAUForumID, "SQLString") & "')"
			my_conn.execute (strSql)
		end if
	end if
end sub

							if ForumFType = 1 then
								Response.Write	" colspan=""4"""
							end if
							strSql2 = "SELECT COUNT(AU_IP) AS CNT FROM " & strTablePrefix & "ACTIVE_USERS WHERE AU_FORUM_ID = " & ForumID & ";"
							set rs2 = my_conn.execute (strSql2)
							intTotalActiveUsers = rs2("CNT")
							rs2.close
							set rs2 = nothing
							Response.Write	" bgcolor=""" & strForumCellColor & """ valign=""top"">" & _
									"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """><span class=""spnMessageText""><a href="""
							if ForumFType = 0 then
								Response.Write	"forum.asp?FORUM_ID=" & ForumID
							else
								Response.Write	ForumURL & """ target=""_blank"
							end if
							Response.Write	""">" & chkString(ForumSubject,"display") & "</a> (" & intTotalActiveUsers & " Viewing)<br />" & _
									"<font size=""" & strFooterFontSize & """>" & _
									formatStr(ForumDescription) & _
									"</font></span></font></td>" & vbNewline