quote:

---

This action shows you the ID of the last member who registered you board, which means - the count of members on your board!
<%= NewMember_Id %>
You can use the code on the kast line (<%= NewMember_Id %>) on non ASP code lines, but on ASP code lines, you shoud use this code:
response.write "There are " & NewMember_Id $ "registered users on the board"

---

	ShowLastHere = (cint(chkUser(strDBNTUserName, Request.Cookies(strUniqueID & "User")("Pword"))) > 0)

Response.Write "There are <b>" & Posts & "</b> Posts in <b>" & Topics & "</b> Topics in the Forum."

	Dim NewMember_Name, NewMember_Id, Member_Count

	Dim NewMember_Name, NewMember_Id, Member_Count, Total_Members

	'## Forum_SQL - Get Active membercount from DB
	strSql = "SELECT COUNT(MEMBER_ID) AS U_COUNT FROM " & strMemberTablePrefix & "MEMBERS WHERE M_POSTS > 0 AND M_STATUS=1"

	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.open strSql, my_Conn

	if not rs.EOF then
		Member_Count = rs("U_COUNT")
	else
		Member_Count = 0
	end if

	rs.close
	set rs = nothing

        '## Forum_SQL - Get total membercount from DB - ADDED CODE BEGINS HERE
	strSql = "SELECT " & strTablePrefix & "TOTALS.U_COUNT " &_
		 " FROM " & strTablePrefix & "TOTALS"

	Set rs1 = Server.CreateObject("ADODB.Recordset")
	rs1.open strSql, my_Conn

	Total_Members = rs1("U_COUNT")


	rs1.Close
	set rs1 = nothing

        '## END ADDED CODE for total membercount

	Response.Write	"        <td bgcolor=""" & strForumCellColor & """ colspan=""" & sGetColspan(6,5) &_
			""">" & vbNewline & _
					"        <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>There "
	if intTopicCount = 1 then
		Response.Write	"is "
	else
		Response.Write	"are "
	end if
	Response.Write	" currently " & intTopicCount & " "
	if intTopicCount = 1 then
		Response.Write	" topic "
	else
		Response.Write	" topics"
	end if
	if ActiveTopicCount > 0 then
		Response.Write	" and " & ActiveTopicCount & " <a href=""active.asp"">active "
		if ActiveTopicCount = 1 then
			Response.Write	"topic"
		else
			Response.Write	"topics"
		end if
		Response.Write	"</a> since you last visited."
	elseif blnHiddenForums and (strLastPostDate > Session(strCookieURL & "last_here_date")) and ShowLastHere then
		Response.Write	" and there are <a href=""active.asp"">active topics</a> since you last visited."
	elseif not(ShowLastHere) then
		Response.Write	"."
	else
		Response.Write	" and no active topics since you last visited."
	end if

	Response.Write	"        <td bgcolor=""" & strForumCellColor & """ colspan=""" & sGetColspan(6,5) &_
			""">" & vbNewline & _
					"        <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>There "
	if Total_Members = 1 then
		Response.Write	"is "
	else
		Response.Write	"are "
	end if
	Response.Write	" currently " & Total_Members & " total <a href=""members.asp"">members</a> and " & intTopicCount & " "
	if intTopicCount = 1 then
		Response.Write	" topic "
	else
		Response.Write	" topics"
	end if
	if ActiveTopicCount > 0 then
		Response.Write	" with " & ActiveTopicCount & " <a href=""active.asp"">active "
		if ActiveTopicCount = 1 then
			Response.Write	"topic"
		else
			Response.Write	"topics"
		end if
		Response.Write	"</a> since you last visited."
	elseif blnHiddenForums and (strLastPostDate > Session(strCookieURL & "last_here_date")) and ShowLastHere then
		Response.Write	" and there are <a href=""active.asp"">active topics</a> since you last visited."
	elseif not(ShowLastHere) then
		Response.Write	"."
	else
		Response.Write	" and no active topics since you last visited."
	end if