<% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Guide - Web Wiz Forums '** '** Copyright 2001-2004 Bruce Corkhill All Rights Reserved. '** '** This program is free software; you can modify (at your own risk) any part of it '** under the terms of the License that accompanies this software and use it both '** privately and commercially. '** '** All copyright notices must remain in tacked in the scripts and the '** outputted HTML. '** '** You may use parts of this program in your own private work, but you may NOT '** redistribute, repackage, or sell the whole or any part of this program even '** if it is modified or reverse engineered in whole or in part without express '** permission from the author. '** '** You may not pass the whole or any part of this application off as your own work. '** '** All links to Web Wiz Guide and powered by logo's must remain unchanged and in place '** and must remain visible when the pages are viewed unless permission is first granted '** by the copyright holder. '** '** This program is distributed in the hope that it will be useful, '** but WITHOUT ANY WARRANTY; without even the implied warranty of '** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER '** WARRANTIES WHETHER EXPRESSED OR IMPLIED. '** '** You should have received a copy of the License along with this program; '** if not, write to:- Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom. '** '** '** No official support is available for this program but you may post support questions at: - '** http://www.webwizguide.info/forum '** '** Support questions are NOT answered by e-mail ever! '** '** For correspondence or non support questions contact: - '** info@webwizguide.info '** '** or at: - '** '** Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom '** '**************************************************************************************** %>
<% 'If there is a forum image then dsiplay it If NOT strTitleImage = "" Then Response.Write("") End If %>
<% 'If the user is admin display a link to the admin memnu If intGroupID = 1 Then Response.Write("" & strTxtAdmin & "") '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 'Display the other common buttons Response.Write ("  " & strTxtActiveTopics & "") Response.Write ("  " & strTxtMemberlist & "") Response.Write ("  " & strTxtSearch & "") Response.Write ("  " & strTxtHelp & "") 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 'Dispaly a welcome message to the user in the top bar Response.Write ("  " & strTxtSettings & "") Response.Write ("  " & strTxtLogOff & " [" & strLoggedInUsername & "]") 'Else the user is not logged Else 'Display a welcome guset message with the option to login or register Response.Write ("  " & strTxtRegister & "") Response.Write ("  " & strTxtLogin & "") End If %>