quote:

---

However, I used Active Users Mod for getting the Title. I moved the include statement for inc_activeusers.asp in inc_top.asp above the title tag and inserted the statements in red in inc_activeusers.asp as below


Case "active.asp"
strOnlineLocation = strOnlineLocation & "Active Topics"
strForumTitle = strForumTitle & " - Active Topics"
Case "members.asp"
strOnlineLocation = strOnlineLocation & "Members"
strForumTitle = strForumTitle & " - Members"
Case "search.asp"
strOnlineLocation = strOnlineLocation & "Search"
strForumTitle = strForumTitle & " - Search"
Case "events.asp"
strOnlineLocation = strOnlineLocation & "Events Calendar"
strForumTitle = strForumTitle & " - Events Calendar"

---

quote:

---

Subject says it, show page that your on in the title bar when loaded... a few simple changes marked below.

Inc functions.asp - top of file after comments

Function GetNewTitle(strTempScriptName)
Dim StrTempScript

etc....

---

strsql = "SELECT T_SUBJECT, FORUM_ID FROM " & strActivePrefix & "TOPICS WHERE TOPIC_ID=" & strTempTopic
set ttopics = my_conn.execute(strsql)
strTempTopicTitle = ttopics("T_SUBJECT")

                        if not(strTempTopic = "") then
					if request("ARCHIVE")="true" then
						strActivePrefix = strTablePrefix & "A_"
						ArchiveView = "true"
						ArchiveLink = "ARCHIVE=true&"
						nDays  = "0"
					else
						strActivePrefix = strTablePrefix
						ArchiveView = ""
						ArchiveLink = ""
					end if

Function GetNewTitle(strTempScriptName)
Dim StrTempScript
Dim strNewTitle
	arrTempScript = Split(strTempScriptName, "/")
	strTempScript = arrTempScript(Ubound(arrTempScript))
	strTempScript = lcase(strTempScript)
Select Case strTempScript
Case "topic.asp"

strTempTopic = request.querystring("TOPIC_ID")

if not(strTempTopic = "") then
	if request.querystring("archive") = "true" then
		strsql = "SELECT T_SUBJECT, FORUM_ID FROM " & strActivePrefix & "TOPICS WHERE TOPIC_ID=" & strTempTopic
		set ttopics = my_conn.execute(strsql)
			strTempTopicTitle = ttopics("T_SUBJECT")
			strTempForum = ttopics("FORUM_ID")
		set ttopics = nothing
		strsql = "SELECT F_SUBJECT FROM " & strActivePrefix & "FORUM WHERE FORUM_ID=" & strTempForum
		set tforums = my_conn.execute(strsql)
			strTempForumTitle = tforums("F_SUBJECT")
		set tforums = nothing
			strNewTitle = strTempTopicTitle & " - " & strTempForumTitle & " - " & strForumTitle
	else
		strsql = "SELECT T_SUBJECT, FORUM_ID FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & strTempTopic
		set ttopics = my_conn.execute(strsql)
			strTempTopicTitle = ttopics("T_SUBJECT")
			strTempForum = ttopics("FORUM_ID")
		set ttopics = nothing
			strsql = "SELECT F_SUBJECT FROM " & strTablePrefix & "FORUM WHERE FORUM_ID=" & strTempForum
		set tforums = my_conn.execute(strsql)
			strTempForumTitle = tforums("F_SUBJECT")
		set tforums = nothing
			strNewTitle = strTempTopicTitle & " - " & strTempForumTitle & " - " & strForumTitle
	end if
else
	strNewTitle = strForumTitle
end if

Case "forum.asp"
strTempForum = request.querystring("FORUM_ID")

if not(strTempForum = "") then
	strsql = "SELECT F_SUBJECT FROM " & strTablePrefix & "FORUM WHERE FORUM_ID=" & strTempForum
	set tforums = my_conn.execute(strsql)
		strTempForumTitle = tforums("F_SUBJECT")
	set tforums = nothing
		strNewTitle = strTempForumTitle & " - " & strForumTitle
	else
		strNewTitle = strForumTitle
	end if
Case "members.asp"
	strNewTitle = "Members - " & strForumTitle
Case "active.asp"
	strNewTitle = "Active Topics - " & strForumTitle
Case "faq.asp"
	strNewTitle = "Frequently Asked Questions - " & strForumTitle
Case "search.asp"
	strNewTitle = "Search - " & strForumTitle
Case "pop_profile.asp"
	if request.querystring("mode") = "display" then
		strNewTitle = "View Profile - " & strForumTitle
	elseif request.querystring("mode") = "edit" then
		strNewTitle = "Edit Profile - " & strForumTitle
	else
		strNewTitle = "Profile - " & strForumTitle
	end if
Case "policy.asp"
	strNewTitle = "User Agreement - " & strForumTitle
Case "register.asp"
	strNewTitle = "Register - " & strForumTitle
Case "active_users.asp"
	strNewTitle = "Active users - " & strForumTitle
Case else
	strNewTitle = strForumTitle
End Select
	GetNewTitle = strNewTitle
End Function