quote:

---

Unless you're saying how many active polls are there since the user last logged in.

---

ActiveTopicCount = -1
if not IsNull(Session(strCookieURL & "last_here_date")) then 
	if not blnHiddenForums then

		'## Forum_SQL - Get ActiveTopicCount from DB
		strSql = "SELECT COUNT(" & strTablePrefix & "TOPICS.T_LAST_POST) AS NUM_ACTIVE " &_
			 " FROM " & strTablePrefix & "TOPICS " &_
			 " WHERE (((" & strTablePrefix & "TOPICS.T_LAST_POST)>'"& Session(strCookieURL & "last_here_date") & "'))" &_
			 " AND " & strTablePrefix & "TOPICS.T_STATUS <= 1"
		set rs = Server.CreateObject("ADODB.Recordset")
		rs.open strSql, my_Conn
			
		if not rs.EOF then
			ActiveTopicCount = rs("NUM_ACTIVE")
		else
			ActiveTopicCount = 0
		end if
		rs.close
		set rs = nothing
	end if
end if

'################################ Poll Mod ################################
ActivePollCount = -1
if not IsNull(Session(strCookieURL & "last_here_date")) then 
	if not blnHiddenForums then

		'## Forum_SQL - Get ActiveTopicCount from DB
		strSql = "SELECT COUNT(P.P_LASTVOTE) AS POLL_ACTIVE, COUNT(T.T_LAST_POST) AS POLL_ACTIVE2" &_
			 " FROM " & strTablePrefix & "POLLS P, " & strTablePrefix & "TOPICS T" &_
			 " WHERE P.TOPIC_ID = T.TOPIC_ID AND T.T_POLLSTATUS = 1" &_
			 " AND ((P.P_LASTVOTE > '"& Session(strCookieURL & "last_here_date") & "'" & _
			 " OR T.T_LAST_POST > '"& Session(strCookieURL & "last_here_date") & "'))"

		set rs = Server.CreateObject("ADODB.Recordset")
		rs.open strSql, my_Conn
			
		if not rs.EOF then
			ActivePollCount = rs("POLL_ACTIVE") + rs("POLL_ACTIVE2")
		else
			ActivePollCount = 0
		end if

		rs.close
		set rs = nothing
	end if
end if
'#############################################################################

if ShowLastHere then
	Response.Write	"5"
else
	Response.Write	"4"
end if

if ShowLastHere then
	Response.Write	"6"
else
	Response.Write	"5"
end if

	Response.Write	"</a></span> since you last visited."
elseif blnHiddenForums and (strLastPostDate > Session(strCookieURL & "last_here_date")) and ShowLastHere then
	Response.Write	" and there are <span class=""spnMessageText""><a href=""active.asp"">active topics</a></span> 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	"</font></td>" & vbNewline & _
		"              </tr>" & vbNewline

'########################### Poll Mod #################################
	Response.Write	"          <tr>"
	Response.Write	"            <td bgcolor=""" & strForumCellColor & """ colspan=""" & sGetColspan(6,5) &_
		""">" & _
		"<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>There "
	if ActivePollCount = 1 then
		Response.Write	"is "
	else
		Response.Write	"are "
	end if
	Response.Write	" currently "
	if ActivePollCount > 0 then
		Response.Write	ActivePollCount
	else
		Response.Write	"no"
	end if
	if ActivePollCount > 0 then
		if ActivePollCount = 1 then
			Response.Write	" <span class=""spnMessageText""><a href=""active_polls.asp"">active poll</a></span>"
		else
			Response.Write	" <span class=""spnMessageText""><a href=""active_polls.asp"">active polls</a></span>"
		end if
	else
		Response.Write	" active polls"
	end if
	Response.Write	" since you last visited.</font>" & _
			"</td></tr>"
'#########################################################################