Type mismatch: 'getNewMemberNumber'

if rsForum.eof or rsForum.bof then
            'nothing
         else
            i = 0
            do until rsForum.Eof
               ForumID = rsForum("FORUM_ID")
               if ChkForumAccess(ForumID, getNewMemberNumber()) then                     
                     i = i + 1
                     if i = 1 Then
                     strSql = strSql & " AND ("
                  else
                        strSql = strSql & " OR "
                     end If
                     strSQL = strSQL & "F.FORUM_ID=" & ForumID
                  end if
               rsForum.MoveNext
            loop
            rsForum.close
            set rsForum = Nothing
            if i > 0 Then
               strSql = strSql & ") "
            end If
         end if
         end If
       strSql = strSql & "AND (T.T_LAST_POST > '" & lastDate & "'"

	end if
	Response.Write	"          |" & vbNewline & _
			"          <a href=""active.asp""" & dWStatus("See what topics have been active since your last visit...") & " tabindex=""-1""><acronym title=""See what topics have been active since your last visit..."">Active Topics</acronym></a>" & vbNewline 

	end if

			ActiveTopicCount = 0
			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

	Response.Write	"          |" & vbNewline & _
			"          <a href=""active.asp""" & dWStatus("See what topics have been active since your last visit...") & " tabindex=""-1""><acronym title=""See what topics have been active since your last visit..."">Active Topics (" & ActiveTopicCount & ")</acronym></a>" & vbNewline 

if ChkForumAccess(ForumID, getNewMemberNumber()) then

function getActiveCount()  'Returns the number of Active Topics
    ActiveSince = Request.Cookies(strCookieURL & "ActiveSince")
    '## Do Cookie stuffs with show last date
    if Request.form("cookie") = "2" then
    	ActiveSince = Request.Form("ShowSinceDateTime")
    	if strSetCookieToForum = 1 then	
          		Response.Cookies(strCookieURL & "ActiveSince").Path = strCookieURL
    	end if
    	Response.Cookies(strCookieURL & "ActiveSince") = ActiveSince
    end if
    Select Case ActiveSince
    	Case "LastVisit" 
    		lastDate = ""
    	Case "LastFifteen"
     		lastDate = DateToStr(DateAdd("n",-15,strForumTimeAdjust))
    	Case "LastThirty"
     		lastDate = DateToStr(DateAdd("n",-30,strForumTimeAdjust))
    	Case "LastFourtyFive"
     		lastDate = DateToStr(DateAdd("n",-45,strForumTimeAdjust))
    	Case "LastHour" 
    		lastDate = DateToStr(DateAdd("h",-1,strForumTimeAdjust))
    	Case "TwoHour" 
    		lastDate = DateToStr(DateAdd("h",-2,strForumTimeAdjust))
    	Case "LastDay" 
    		lastDate = DateToStr(DateAdd("d",-1,strForumTimeAdjust))
    	Case "LastWeek" 
    		lastDate = DateToStr(DateAdd("ww",-1,strForumTimeAdjust))
    	Case "LastMonth" 
    		lastDate = DateToStr(DateAdd("m",-1,strForumTimeAdjust))
    	Case Else
    		lastDate = ""
    End Select

if IsEmpty(Session(strCookieURL & "last_here_date")) then
	Session(strCookieURL & "last_here_date") = ReadLastHereDate(strDBNTUserName)
end if
if lastDate = "" then
	lastDate = Session(strCookieURL & "last_here_date")
end If

if Request.Form("AllRead") = "Y" then
	lastDate = ChkString(Request.Form("BuildTime"),"SQLString")

       '## The redundant line below is necessary, don't delete it.
	session(strCookieURL & "last_here_date") = lastDate
	Session(strCookieURL & "last_here_date") = lastDate
    UpdateLastHereDate lastDate,strDBNTUserName
	ActiveSince = ""
end if

	if mlev = 3 then
	strSql = "SELECT FORUM_ID FROM " & strTablePrefix & "MODERATOR " & _
		 " WHERE MEMBER_ID = " & MemberID
      
	Set rsMod = Server.CreateObject("ADODB.Recordset")
	rsMod.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText

	if rsMod.EOF then
		recModCount = ""
	else
		allModData = rsMod.GetRows(adGetRowsRest)
		recModCount = UBound(allModData,2)
	end if

	RsMod.close
	set RsMod = nothing

	if recModCount <> "" then
		for x = 0 to recModCount
			if x = 0 then
				ModOfForums = allModData(0,x)
			else
				ModOfForums = ModOfForums & "," & allModData(0,x)
			end if
		next
	else
		ModOfForums = ""
	end if
else
	ModOfForums = ""
end if

'## Forum_SQL - Get all active topics from last visit
strSql = "SELECT COUNT(*) as activeCount " &_
	 "FROM " & strMemberTablePrefix & "MEMBERS M, " & _
	 strTablePrefix & "FORUM F, " & _
	 strTablePrefix & "TOPICS T, " & _
	 strTablePrefix & "CATEGORY C, " & _
	 strMemberTablePrefix & "MEMBERS MEMBERS_1 " & _
	 "WHERE T.T_LAST_POST_AUTHOR = MEMBERS_1.MEMBER_ID " & _
	 "AND F.F_TYPE = 0 " & _
	 "AND F.FORUM_ID = T.FORUM_ID " & _
	 "AND C.CAT_ID = T.CAT_ID " & _
	 "AND M.MEMBER_ID = T.T_AUTHOR " & _
	 "AND (T.T_LAST_POST > '" & lastDate & "'"

' DEM --> if not an admin, all unapproved posts should not be viewed.
if mlev <> 4 then
	strSql = strSql & " AND ((T.T_AUTHOR <> " & MemberID &_
			  " AND T.T_STATUS < 2)"  ' Ignore unapproved/held posts
	if mlev = 3 and ModOfForums <> "" then
		strSql = strSql & " OR T.FORUM_ID IN (" & ModOfForums & ") "
	end if
	strSql = strSql & "  OR T.T_AUTHOR = " & MemberID & ")"
end if
strSql = strSql & ") "

Set rs = Server.CreateObject("ADODB.Recordset")
if strDBType <> "mysql" then rs.cachesize = 50
rs.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText

if NOT rs.EOF then
	getActiveCount = rs("activeCount")
end if

rs.close
set rs = nothing
end function