Select Case strTempScript
		Case "topic.asp"
			strTempTopic = cLng(request.querystring("TOPIC_ID"))
			if strTempTopic <> 0 then
				strsql = "SELECT FORUM_ID, T_SUBJECT FROM " & strActivePrefix & "TOPICS WHERE TOPIC_ID=" & strTempTopic
				set ttopics = my_conn.execute(strsql)
				if ttopics.bof or ttopics.eof then
					GetNewTitle = strForumTitle
					set ttopics = nothing
				else
					if mLev = 4 then
						ForumChkSkipAllowed = 1
					elseif mLev = 3 then
						if chkForumModerator(ttopics("FORUM_ID"), ChkString(strDBNTUserName, "decode")) = "1" then
							ForumChkSkipAllowed = 1
						else
							ForumChkSkipAllowed = 0
						end if
					else
						ForumChkSkipAllowed = 0
					end if 
					intShowTopicTitle = 1
					if strPrivateForums = "1" and ForumChkSkipAllowed = 0 then
						if not(chkForumAccess(ttopics("FORUM_ID"),MemberID,false)) then
				    			intShowTopicTitle = 0
				  		end if
					end if
					if intShowTopicTitle = 1 then strTempTopicTitle = " - " & chkString(ttopics("T_SUBJECT"),"display")
					set ttopics = nothing
					strNewTitle = strForumTitle & strTempTopicTitle
				end if
			else
				GetNewTitle = strForumTitle
			end if

Modified Code:

Help?

Case "topic.asp"

	SEO_pagination = request.querystring("whichpage")
	SEO_pagination = trim(SEO_pagination)
	
	if SEO_pagination = "" or isnull(SEO_pagination) then
		'---no pagination exists
	else
		if cLng(SEO_pagination) > 1 then
			TITLE_pagination = " - Page " & SEO_pagination
			'--any page greater than the 1st
		else
			TITLE_pagination = ""
			'--first page
		end if
	end if	
	
	strTempTopic = cLng(request.querystring("TOPIC_ID"))
	if strTempTopic <> 0 then
		strsql = "SELECT FORUM_ID, T_SUBJECT FROM " & strActivePrefix & "TOPICS WHERE TOPIC_ID=" & strTempTopic
		set ttopics = my_conn.execute(strsql)
		if ttopics.bof or ttopics.eof then
			GetNewTitle = strForumTitle
			set ttopics = nothing
		else
			if mLev = 4 then
				ForumChkSkipAllowed = 1
			elseif mLev = 3 then
				if chkForumModerator(ttopics("FORUM_ID"), ChkString(strDBNTUserName, "decode")) = "1" then
					ForumChkSkipAllowed = 1
				else
					ForumChkSkipAllowed = 0
				end if
			else
				ForumChkSkipAllowed = 0
			end if 
			intShowTopicTitle = 1
			if strPrivateForums = "1" and ForumChkSkipAllowed = 0 then
				if not(chkForumAccess(ttopics("FORUM_ID"),MemberID,false)) then
						intShowTopicTitle = 0
				end if
			end if
			if intShowTopicTitle = 1 then strTempTopicTitle = " - " & chkString(ttopics("T_SUBJECT"),"display")
			set ttopics = nothing
			strNewTitle = strForumTitle & strTempTopicTitle & TITLE_pagination
		end if
	else
		GetNewTitle = strForumTitle
	end if

quote:

---

Originally posted by Andy Humm

As an observation, I have noticed the pagination only shows when the administrator is logged in, i.e. Mlev=4
Could the & TITLE_pagination be added so it shows the Pagination in the Title Tag irrespective of who is logged in or not.

rgds andy

---

	if strTempTopic <> 0 then
		strsql = "SELECT FORUM_ID, T_SUBJECT FROM " & strActivePrefix & "TOPICS WHERE TOPIC_ID=" & strTempTopic
		set ttopics = my_conn.execute(strsql)
		if ttopics.bof or ttopics.eof then
			GetNewTitle = strForumTitle & TITLE_pagination
			set ttopics = nothing
		else
			if mLev = 4 then
				ForumChkSkipAllowed = 1
			elseif mLev = 3 then
				if chkForumModerator(ttopics("FORUM_ID"), ChkString(strDBNTUserName, "decode")) = "1" then
					ForumChkSkipAllowed = 1
				else
					ForumChkSkipAllowed = 0
				end if
			else
				ForumChkSkipAllowed = 0
			end if 
			intShowTopicTitle = 1
			if strPrivateForums = "1" and ForumChkSkipAllowed = 0 then
				if not(chkForumAccess(ttopics("FORUM_ID"),MemberID,false)) then
						intShowTopicTitle = 0
				end if
			end if
			if intShowTopicTitle = 1 then strTempTopicTitle = " - " & chkString(ttopics("T_SUBJECT"),"display")
			set ttopics = nothing
			strNewTitle = strForumTitle & strTempTopicTitle & TITLE_pagination
		end if
	else
		GetNewTitle = strForumTitle & TITLE_pagination
	end if