Switch Order of Page Titles - Snitz™ Forums 2000

The Forum has been Updated

The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.

Switch Order of Page Titles - Posted 03 Jun 2007 14:22 (5357 Views)

bobby131313

Senior Member

Posts: 1163

1163

Tested only on version 3.04.05.
Since the page title is still very important in SEO and most search engines only look at the first 60-65 characters I decided to switch the order of my page titles for forums and topics.
Default setup is Forum Name (set in admin panel) then either the Topic Title or the Forum Title depending on the page. So if you have a long forum name and a long Topic Title or Forum Title, part of the Topic Title or Forum Title will be cut off in the page title (as far as SE's go). I would rather have the forum name cut off on the long ones. Your opinion may vary.
So here's how to change it....
Open inc_func_common.asp...
To change Topic Page Titles
Find:

Code:

Code:

					if intShowTopicTitle = 1 then strTempTopicTitle = " - " & chkString(ttopics("T_SUBJECT"),"display")
					set ttopics = nothing
					strNewTitle = strForumTitle & strTempTopicTitle

Replace it with:

Code:

Code:

					if intShowTopicTitle = 1 then strTempTopicTitle = chkString(ttopics("T_SUBJECT"),"display") & " - "
					set ttopics = nothing
					strNewTitle = strTempTopicTitle & strForumTitle

To change Forum Page Titles
Find:

Code:

Code:

					strNewTitle = strForumTitle & " - " & strTempForumTitle

Replace it with:

Code:

Code:

					strNewTitle = strTempForumTitle & " - " & strForumTitle

Very simple, always make backups!
<

Switch the order of your title tags

Last edited by bobby131313 on 03 June 2007, 14:26

Posted 04 Jun 2007 06:55

Etymon

Advanced Member

Posts: 2396

2396

Thank you!

Posted 04 Jun 2007 11:50

bobby131313

Senior Member

Posts: 1163

1163

You're welcome.

My first mod, simple though it may be.

Switch the order of your title tags

Posted 04 Jun 2007 13:14

Etymon

Advanced Member

Posts: 2396

2396

Gotta take the plunge at some point.

Posted 19 Feb 2009 19:09

Lon2

Junior Member

Posts: 151

151

Thank you for the code, bobby! [^]
Now if I can only figure out how to add page numbers to the Title Tag...<

Last edited by Lon2 on 19 February 2009, 19:12

Posted 13 Mar 2009 19:35

leatherlips

Senior Member

Posts: 1838

1838

I just did this to my forum. Very easy and nice feature! Thanks!

Posted 13 Mar 2009 20:07

leatherlips

Senior Member

Posts: 1838

1838

I took mine a little further and changed the other forum pages too. If interested you can do this:

In inc_func_common.asp (3.4.06) look for:

Code:


      Case "members.asp"
         strNewTitle = strForumTitle & " - Members"
      Case "active.asp"
         strNewTitle = strForumTitle & " - Active Topics"
      Case "faq.asp"
         strNewTitle = strForumTitle & " - Frequently Asked Questions"
      Case "search.asp"
         strNewTitle = strForumTitle & " - Search"
      Case "pop_profile.asp"
         if request.querystring("mode") = "display" then
            strNewTitle = strForumTitle & " - View Profile"
         elseif request.querystring("mode") = "edit" then
            strNewTitle = strForumTitle & " - Edit Profile"
         else
            strNewTitle = strForumTitle & " - Profile"
         end if
      Case "register.asp"
         strNewTitle = strForumTitle & " - User Agreement and Registration"

And replace it with this:

Code:


      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 "register.asp"
	 strNewTitle = "User Agreement and Registration - " strForumTitle