|
rkattan
Starting Member
USA
12 Posts |
 Posted - 23 April 2001 : 15:38:40
|
Hi,
this is small improvement, it works well for me..
' ####################################### Page Titles ###########################
Forum_Page_Title = Request.QueryString("Forum_Title")
Topic_Page_Title = Request.QueryString("Topic_Title")
sScript = Request.ServerVariables("SCRIPT_NAME")
title_sep = " »" 'change this according to what seperator you want to use
strAdditionalTitle = ""
if Forum_Page_Title <> "" then
strAdditionalTitle = strAdditionalTitle & title_sep & " " & Forum_Page_Title
end if
if Topic_Page_Title <> "" then
strAdditionalTitle = strAdditionalTitle & title_sep & " " & Topic_Page_Title
if Request.QueryString("whichpage") <> "" then
strAdditionalTitle = strAdditionalTitle & " (Page " & Request.QueryString("whichpage") & ")"
end if
end if
if instr(sScript, "admin_") then
strAdditionalTitle = strAdditionalTitle & title_sep & " Administration"
elseif instr(sScript, "profile") then
strAdditionalTitle = strAdditionalTitle & title_sep & " Profile"
elseif instr(sScript, "recent.asp") then
strAdditionalTitle = strAdditionalTitle & title_sep & " Recent Topics"
elseif instr(sScript, "archive.asp") or instr(sScript, "archive_display")then
strAdditionalTitle = strAdditionalTitle & title_sep & " Archive"
elseif instr(sScript, "events") then
strAdditionalTitle = strAdditionalTitle & title_sep & " Events Calendar"
elseif instr(sScript, "bookmark") then
strAdditionalTitle = strAdditionalTitle & title_sep & " Bookmarks"
elseif instr(sScript, "active.asp") then
strAdditionalTitle = strAdditionalTitle & title_sep & " Active Topics"
elseif instr(sScript, "active_user") then
strAdditionalTitle = strAdditionalTitle & title_sep & " Active Users"
elseif instr(sScript, "members") then
strAdditionalTitle = strAdditionalTitle & title_sep & " Members"
elseif instr(sScript, "search") then
strAdditionalTitle = strAdditionalTitle & title_sep & " Search"
elseif instr(sScript, "faq") then
strAdditionalTitle = strAdditionalTitle & title_sep & " FAQ"
elseif instr(sScript, "cancel_replies") then
strAdditionalTitle = strAdditionalTitle & title_sep & " Cancel Replies"
elseif instr(sScript, "policy") OR instr(sScript, "register.asp") then
strAdditionalTitle = strAdditionalTitle & title_sep & " Registration"
elseif instr(sScript, "pm_") OR instr(sScript, "private") then
strAdditionalTitle = strAdditionalTitle & title_sep & " Private Messages"
elseif instr(sScript, "post.asp") then
Select Case Request("method")
Case "Topic" strAdditionalTitle = strAdditionalTitle & title_sep & " New Topic"
Case "Reply" strAdditionalTitle = strAdditionalTitle & title_sep & " Reply To Topic"
Case "Forum" strAdditionalTitle = strAdditionalTitle & title_sep & " New Forum"
Case "Category" strAdditionalTitle = strAdditionalTitle & title_sep & " New Category"
Case "EditTopic" strAdditionalTitle = strAdditionalTitle & title_sep & " Edit Topic"
Case "Edit" strAdditionalTitle = strAdditionalTitle & title_sep & " Edit Reply"
Case "EditForum" strAdditionalTitle = strAdditionalTitle & title_sep & " Edit Forum"
Case "EditCategory" strAdditionalTitle = strAdditionalTitle & title_sep & " Edit Category"
end Select
end if
Response.Write "<html>" & vbcrlf & vbcrlf & _
"<head>" & vbcrlf & _
"<title>" & strForumTitle & strAdditionalTitle & "</title>" & vbcrlf & _
"<meta name=""copyright"" content=""This code is Copyright (C) 2000 Michael Anderson and Pierre Gorissen"">" & vbcrlf
' ####################################### Page Titles ###########################
---------------------
Rami Kattan
http://www.kattanweb.com/forums |
 |
|
Topic Locked
