<% @ Language=VBScript %> <% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Forums(TM) '** https://www.webwizforums.com '** '** Copyright (C)2001-2024 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. '** '**************************************************************************************** 'Set the buffer to true Response.Buffer = True 'Declare variables Dim lngUserProfileID 'Holds the users ID of the profile to get Dim strMode 'Holds the mode of the page blnSslEnabledPage = True 'If the user his not activated their mem If blnActiveMember = False OR blnBanned Then 'clean up before redirecting Call closeDatabase() 'redirect to insufficient permissions page Response.Redirect("insufficient_permission.asp?M=ACT" & strQsSID3) End If 'If the user has not logged in then redirect them to the insufficient permissions page If intGroupID = 2 Then 'clean up before redirecting Call closeDatabase() 'redirect to insufficient permissions page Response.Redirect("insufficient_permission.asp" & strQsSID1) End If 'Read in the mode of the page strMode = Trim(Mid(Request.QueryString("M"), 1, 1)) 'If this is not an admin but in admin mode then see if the user is a moderator If blnAdmin = False AND strMode = "A" AND blnModeratorProfileEdit Then 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Permissions.Moderate " & _ "FROM " & strDbTable & "Permissions " & _ "WHERE (" & strDbTable & "Permissions.Group_ID = " & intGroupID & " OR " & strDbTable & "Permissions.Author_ID = " & lngLoggedInUserID & ") AND " & strDbTable & "Permissions.Moderate=" & strDBTrue & ";" 'Query the database rsCommon.Open strSQL, adoCon 'If a record is returned then the user is a moderator in one of the forums If NOT rsCommon.EOF Then blnModerator = True 'Clean up rsCommon.Close End If 'Get the user ID of the member being edited if in admin mode If (blnAdmin OR (blnModerator AND LngC(Request.QueryString("PF")) > 2)) AND strMode = "A" Then lngUserProfileID = LngC(Request.QueryString("PF")) 'Get the logged in ID number Else lngUserProfileID = lngLoggedInUserID End If 'If active users is enabled update the active users application array If blnActiveUsers Then 'Call active users function saryActiveUsers = activeUsers("", strTxtMemberCPMenu, "member_control_panel.asp", 0) End If 'Set bread crumb trail strBreadCrumbTrail = strBreadCrumbTrail & strNavSpacer & strTxtMemberCPMenu %> <% = strTxtMemberCPMenu %> <% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** Response.Write("" & vbCrLf & vbCrLf) '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>

<% = strTxtMemberCPMenu %>

" title="<% = strTxtControlPanel %>" class="tabButtonActive">

<% = strTxtControlPanel %> " title="<% = strTxtProfile2 %>" class="tabButton">

<% = strTxtProfile2 %><% If blnEmail Then %> " title="<% = strTxtSubscriptions %>" class="tabButton">

<% = strTxtSubscriptions %><% End If 'Only disply other links if not in admin mode If strMode <> "A" AND blnActiveMember AND blnPrivateMessages Then %>

<% = strTxtBuddyList %><% End If 'If member is allowed to upload display link to file manager If blnAttachments OR blnImageUpload Then %> " title="<% = strTxtFileManager %>" class="tabButton">

<% = strTxtFileManager %><% End If %>

<% = strTxtMemberCPMenu %>

<% = strQsSID2 %>"><% = strTxtEditProfile %>
<% = strTxtChangeProfile %>.

<% = strQsSID2 %>"><% = strTxtRegistrationDetails %>
<% = strTxtChangePassAndEmail %>.

<% = strQsSID2 %>"><% = strTxtProfileInfo %>
<% = strTxtChangeProfileInfo %>.

<% = strQsSID2 %>"><% = strTxtForumPreferences %>
<% = strTxtChangeForumPreferences %>.<% 'email notify is on show link to email subcriptions If blnEmail Then %>

"><% = strTxtSubscriptions %>
<% = strTxtAlterEmailSubscriptions %>.<% End If 'If PM is on then show links to PM functions If blnPrivateMessages AND strMode <> "A" Then %>

<% = strTxtBuddyList %>
<% = strTxtListOfYourForumBuddies %>

<% = strTxtPrivateMessenger %>
<% = strTxtReadandSendPMs %><% End If 'If the user is user is using a banned IP redirect to an error page If blnAttachments OR blnImageUpload Then %>

"><% = strTxtFileManager %>
<% = strTxtFileManagerDescription %><% End If 'If admin/mod mode have link to admin functions If strMode = "A" AND (blnAdmin OR blnModerator) Then %>

<% = strTxtAdminAndModFunc %>
<% = strTxtAdminFunctionsTo %>.<% End If %>

<% = strTxtViewYourPersonalData %>
<% = strTxtHaveALookAtThePersonalDataTheForumHasOnYou %>.

<% = strTxtForumHelp %>
<% = strTxtForumHelpFilesandFAQsToHelpYou %>.

<% 'Clean up Call closeDatabase() '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** If blnLCode = True Then If blnTextLinks = True Then Response.Write("Forum Software by Web Wiz Forums® version " & strVersion & "") Else Response.Write("") End If Response.Write("
Copyright ©2001-2024 Web Wiz Ltd.") End If '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** 'Display the process time If blnShowProcessTime Then Response.Write "

" & strTxtThisPageWasGeneratedIn & " " & FormatNumber(Timer() - dblStartTime, 3) & " " & strTxtSeconds & "" %>