<%
Dim thisPage,newPage,subPage,adminPage
thisPage = Trim(Request.Servervariables("Script_Name"))
newPage=(Replace(thisPage,"/",""))
newPage=(Replace(newpage,".asp",""))
newPage=(Replace(newPage,"admin_",""))
subPage=(Replace(thisPage,"/admin",""))
adminPage=(Replace(thisPage,subPage,""))


  
if newPage = "default" then
   Response.Write "All Forums"
else
   Response.write " <a href=""default.asp"">All Forums</a>" 
end if

if adminPage="/admin" then
   if newPage = "home" then
       Response.Write "  ::  Admin Section"
   elseif newPage = "login" then
       Response.Write "  ::  <a href=""admin_home.asp"">Admin Section</a>  ::  Admin Login"
   else
       Response.Write "  ::  <a href=""admin_home.asp"">Admin Section</a>  ::  "
   end if
else
   Response.Write ""
end if


select case newPage
   case "config_system"
        Response.Write ("Main Forum Configuration")
   case "config_features"
        Response.Write ("Feature Configuration")
   case "config_members"
        Response.Write ("Member Detail Configuration")
   case "config_ranks"
        Response.Write ("Ranking Configuration")
   case "config_datetime"
        Response.Write ("Server Date/Time Configuration")
   case "config_email"
        Response.Write ("E-mail Server Configuration")
   case "config_colors"
        Response.Write ("Font/Table Color Code Configuration")
   case "config_activeusers"
        Response.Write ("Active Users Configuration")
   case "moderators"
        Response.Write ("Moderator Configuration")
   case "emaillist"
        Response.Write ("User E-mail List")
   case "avatar_home"
        Response.Write ("Avatar Home")
   case "avatar_settings"
        Response.Write ("<a href=""admin_avatar_home.asp"">Avatar Home  ::  </a>Avatar Settings")
   case "add_avatar"
        Response.Write ("<a href=""admin_avatar_home.asp"">Avatar Home  ::  </a>Add Avatar")
   case "review_avatar"
        Response.Write ("<a href=""admin_avatar_home.asp"">Avatar Home  ::  </a>Review Avatar")
   case "avatar_mass_add"
        Response.Write ("<a href=""admin_avatar_home.asp"">Avatar Home  ::  </a>Avatar Mass Add")
   case "info"
        Response.Write ("Server Information")
   case "variable_info"
        Response.Write ("Forum Variables Information")
   case "count"
        Response.Write ("Update Forum Counts")
   case "forums"
        Response.Write ("Forum Deletion/Archival")
   case "config_groupcats"
        Response.Write ("Group Catagory Configuration")
   case "mod_setup"
        Response.Write ("DB Setup")
   case "active_users" 
        Response.Write ("  ::  " & fLang(strLangMOD_Ls3kAU_01010) & "(" & fLang(strLangMOD_Ls3kAU_01020) & " " & chkDate(DateToStr(strForumTimeAdjust)," ",true) & ")")
   case "faq"
        Response.Write ("  ::  Frequently Asked Questions")
   case "members"
        Response.Write ("  ::  Members Information")
   case "pop_profile"
        Response.Write ("  ::  Edit Your Profile")
   case "policy"
        Response.Write ("  ::  Registration Rules and Policy Agreement")
   case "search"
        Response.Write ("  ::  Search Form")
   case "active"
        Response.Write ("  ::  Active Topics")
end select


if Cat_ID <> "" and Cat_Status = 0 then
   Response.Write "  ::  <a href=""default.asp"">Show All Catagories</a>"
elseif Cat_ID <> "" and Cat_Status <> 0 then
   Response.Write "  ::  <a href=""default.asp?CAT_ID=" & Cat_ID & """>" & ChkString(Cat_Name,"display") & "</a>"
else
   Response.Write ""
end if



if Cat_Status <> 0 and Forum_Status <> 0 and newPage = "topic" then
   Response.Write "  ::  <a href=""forum.asp?" & ArchiveLink & "FORUM_ID=" & Forum_ID & """>" & ChkString(Forum_Subject,"display") & "</a>"
elseif Forum_Status <> 0 and Cat_Status <> 0 and newPage = "forum" then
   Response.Write "  :: " & ChkString(Forum_Subject,"display")
else
   Response.Write ""
end if

if Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status <> 0 and  newPage = "topic" then
        if Request.QueryString("SearchTerms") <> "" then
		Response.Write	"  ::  " & SearchHiLite(ChkString(Topic_Subject,"title"))
	else
		Response.Write	"  ::  " & formatStr((ChkString(Topic_Subject,"title")))
	end if
else
   Response.Write ""
end if
%>