<% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Forums(TM) '** http://www.webwizforums.com '** '** Copyright (C)2001-2018 Web Wiz Ltd. All Rights Reserved. '** '** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM WEB WIZ LTD. '** '** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN WEB WIZ LTD. IS UNWILLING TO LICENSE '** THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE '** AND DERIVATIVE WORKS IMMEDIATELY. '** '** If you have not received a copy of the license with this work then a copy of the latest '** license contract can be found at:- '** '** https://www.webwiz.net/license '** '** For more information about this software and for licensing information please contact '** 'Web Wiz' at the address and website below:- '** '** Web Wiz Ltd, Unit 18, The Glenmore Centre, Fancy Road, Poole, Dorset, BH12 4FB, England '** https://www.webwiz.net '** '** Removal or modification of this copyright notice will violate the license contract. '** '**************************************************************************************** 'Make sure that the forum ID number has a number in it otherwise set it to 0 If isEmpty(intForumID) OR intForumID = "" Then intForumID = 0 'Don't display normal status bar if forum is locked as it will course a loop with the AJAX If blnForumClosed Then %>

<% = strBreadCrumbTrail %>

<% 'If the user is admin display a link to the admin menu If intGroupID = 1 Then Response.Write(" " & strTxtAdmin & "") %>

<% 'Display different status bar for mobile browsers ElseIf blnMobileBrowser Then %>

<% 'Forum home link for mobile browsers Response.Write (" " & strTxtForumHome & "") 'Display link to forum topics home for mobile browsers If intForumID <> 0 Then Response.Write (" " & strTxtForum & " " & strTxtTopics & "") 'News Posts Response.Write (" " & strTxtActiveTopics & "") 'Search Response.Write (" " & strTxtSearch & "") 'Member control panel If lngLoggedInUserID <> 0 AND lngLoggedInUserID <> 2 AND blnBanned = False Then Response.Write ("
" & strTxtControlPanel & "") 'If the user is logged in and there account is active display if they have private messages If intGroupID <> 2 AND blnActiveMember AND blnPrivateMessages Then 'Display the number of new pm's If intNoOfPms > 0 Then Response.Write(" " & strTxtPrivateMessenger & " [" & intNoOfPms & " " & strTxtNew & "]") Else Response.Write(" " & strTxtPrivateMessenger & "") End If End If 'If the user has logged in then the Logged In User ID number will not be 0 and not 2 for the guest account If lngLoggedInUserID <> 0 AND lngLoggedInUserID <> 2 Then 'Don't display logout if windows authentication is enabled or member API If blnWindowsAuthentication = False AND (blnMemberAPIDisableAccountControl = False OR strMemberAPILogoutURL <> "") Then Response.Write (" " & strTxtLogOff & "") End If 'Else if the member API is enabled and there are links to the websites on registration and login pages display the links to them ElseIf blnMemberAPI AND (strMemberAPIRegistrationURL <> "" OR strMemberAPILoginURL <> "") Then If strMemberAPIRegistrationURL <> "" Then Response.Write ("
" & strTxtRegister & "") If strMemberAPILoginURL <> "" Then Response.Write (" " & strTxtLogin & "") 'Else the user is not logged (Don't display logout if windows authentication is enabled or member API) ElseIf blnWindowsAuthentication = False AND (blnMemberAPI = False OR blnMemberAPIDisableAccountControl = False) Then Response.Write ("
" & strTxtRegister & "") Response.Write (" " & strTxtLogin & "") End If 'If the user is admin display a link to the admin menu If intGroupID = 1 Then Response.Write(" " & strTxtAdmin & "") %>

<% 'Else display the desktop status bar Else %>

<% = strBreadCrumbTrail %>

<% 'If the user is admin display a link to the admin menu If intGroupID = 1 Then Response.Write(" " & strTxtAdmin & "") 'Display any status bar graphics or menus for this page Response.Write(strStatusBarTools) %>

<% 'If the user has logged in then the Logged In User ID number will not be 0 and not 2 for the guest account If lngLoggedInUserID <> 0 AND lngLoggedInUserID <> 2 Then 'Link to user cp Response.Write(vbCrLf & "

") If blnBanned = False Then Response.Write (" " & strTxtMemberCPMenu & "") %><% Response.Write("

") End If %>

<% 'Display the other common buttons Response.Write (" " & strTxtFAQ & "") Response.Write (" ") If blnChatRoom AND lngLoggedInUserID <> 0 AND lngLoggedInUserID <> 2 AND blnBanned = False Then Response.Write (" " & strTxtChat & "") If blnCalendar Then Response.Write (" ") 'If the user has logged in then the Logged In User ID number will not be 0 and not 2 for the guest account If lngLoggedInUserID <> 0 AND lngLoggedInUserID <> 2 Then If blnDisplayMemberList Then Response.Write (" " & strTxtMemberlist & "") 'Don't display logout if windows authentication is enabled or member API If blnWindowsAuthentication = False AND (blnMemberAPIDisableAccountControl = False OR strMemberAPILogoutURL <> "") Then Response.Write (" " & strTxtLogOff & " [" & strLoggedInUsername & "]") End If 'Else if the member API is enabled and there are links to the websites on registration and login pages display the links to them ElseIf blnMemberAPI AND (strMemberAPIRegistrationURL <> "" OR strMemberAPILoginURL <> "") Then If strMemberAPIRegistrationURL <> "" Then Response.Write (" " & strTxtRegister & "") If strMemberAPILoginURL <> "" Then Response.Write (" " & strTxtLogin & "") 'Else the user is not logged (Don't display logout if windows authentication is enabled or member API) ElseIf blnWindowsAuthentication = False AND (blnMemberAPI = False OR blnMemberAPIDisableAccountControl = False) Then Response.Write (" " & strTxtRegister & "") Response.Write (" " & strTxtLogin & "") End If %>

<% 'Display hidden div for calandar '(AJAX used for this one so that the extra database hit is only performed if the user wants to view the calendar) If blnCalendar Then %>

<% End If End If '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** If NOT strForumHeaderAd = "" Then If blnMobileBrowser = False Then Response.Write("

" & strForumHeaderAd & "

") Else Response.Write("

" & strForumHeaderAd & "

") End If End If '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>
<% 'If a message for all forums display it If strForumsMessage <> "" Then %>

<% = strForumsMessage %>

<% End If %>