<% @ Language=VBScript %> <% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Forums(TM) '** http://www.webwizforums.com '** '** Copyright (C)2001-2008 Web Wiz(TM). All Rights Reserved. '** '** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM 'WEB WIZ'. '** '** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN 'WEB WIZ' 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:- '** '** http://www.webwizguide.com/license '** '** For more information about this software and for licensing information please contact '** 'Web Wiz' at the address and website below:- '** '** Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England '** http://www.webwizguide.com '** '** Removal or modification of this copyright notice will violate the license contract. '** '**************************************************************************************** '*************************** SOFTWARE AND CODE MODIFICATIONS **************************** '** '** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE '** AGREEMENT AND IS STRICTLY PROHIBITED '** '** If you wish to modify any part of this software a license must be purchased '** '**************************************************************************************** 'Set the response buffer to true Response.Buffer = True 'Dimension variables Dim strMode 'holds the mode of the page, set to true if changes are to be made to the database Dim blnPrivateMessenger 'Set to true if the private messenger is on Dim intPrivateMessages 'Holds the number of private msg's a user can have in there inbox 'Read in the users details for the forum blnPrivateMessenger = CBool(Request.Form("privateMsg")) intPrivateMessages = CInt(Request.Form("pmNo")) intPmFlood = CInt(Request.Form("PmFlood")) 'Initialise the SQL variable with an SQL statement to get the configuration details from the database strSQL = "SELECT " & strDbTable & "Configuration.* From " & strDbTable & "Configuration WHERE " & strDbTable & "Configuration.ID=1;" 'Set the cursor type property of the record set to Dynamic so we can navigate through the record set rsCommon.CursorType = 2 'Set the Lock Type for the records so that the record set is only locked when it is updated rsCommon.LockType = 3 'Query the database rsCommon.Open strSQL, adoCon If blnACode OR strInstallID = "" Then intPrivateMessages = 5 'If the user is changing tthe colours then update the database If Request.Form("postBack") Then 'Update the recordset With rsCommon If blnDemoMode = False Then .Fields("Private_msg") = blnPrivateMessenger .Fields("No_of_priavte_msg") = intPrivateMessages .Fields("PM_Flood") = intPmFlood 'Update the database with the new user's colours .Update End If 'Re-run the query to read in the updated recordset from the database .Requery End With 'Update variables Application.Lock Application(strAppPrefix & "blnPrivateMessages") = blnPrivateMessenger Application(strAppPrefix & "intNumPrivateMessages") = intPrivateMessages Application(strAppPrefix & "intPmFlood") = CInt(intPmFlood) 'Empty the application level variable so that the changes made are seen in the main forum Application(strAppPrefix & "blnConfigurationSet") = false Application.UnLock End If 'Read in the forum colours from the database If NOT rsCommon.EOF Then 'Read in the colour info from the database blnPrivateMessenger = rsCommon.Fields("Private_msg") intPrivateMessages = rsCommon.Fields("No_of_priavte_msg") intPmFlood = Cint(rsCommon("PM_Flood")) End If If blnACode OR strInstallID = "" Then intPrivateMessages = 5 'Reset Server Objects rsCommon.Close Call closeDatabase() %> Private Messaging Settings <% '***** 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 ****** %>

Private Messaging Settings


Control Panel Menu

From here you can configure the Private Messaging system.

Private Messenger
Private Messenger:
If this is disabled your members will no longer be able to use the Private Messenger to send and receive Private Messages.
On <% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />   Off name="privateMsg"<% If blnDemoMode Then Response.Write(" disabled=""disabled""") %> />
Number of Private Messages Per Member:
This is the number of Private Messages a member can have in there 'inbox' at any one time.
<% If blnACode OR strInstallID = "" Then Response.Write("Can not be changed in Free Edition") %>
Private Messager Flood Control :
This is the number of Private Messages a member can send within an hour. This prevents a member sending 100's of spam Private Messages to other members.
per hour