<% '**************************************************************************************** '** 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 '** '**************************************************************************************** Dim intNotifiedNoOfPMs Dim intNumOfNewPM '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("   " & intNoOfPms & " " & strTxtNewMessages & "") Else Response.Write("   0 " & strTxtNewMessages & "") End If 'Get the number of PM's the user has been notified of from cookie If isNumeric(getSessionItem("notifiedPMs")) Then intNotifiedNoOfPMs = CLng(getSessionItem("notifiedPMs")) Else intNotifiedNoOfPMs = 0 'If the number of un-read PM's is higher then the user has been notified of, they have a new PM so tell them If intNoOfPms > intNotifiedNoOfPMs Then Call saveSessionItem("notifiedPMs", intNoOfPms) 'Display the alert Response.Write("") End If End If %>