<% @ 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 buffer to true Response.Buffer = True 'Declare variables Dim saryPmMessage 'db recordset holding any new pm's since last vist Dim intNewPMs 'If Priavte messages are not on then send them away If blnPrivateMessages = False Then 'Clean up Call closeDatabase() 'Redirect Response.Redirect("default.asp" & strQsSID1) End If 'If the user is not allowed then send them away If intGroupID = 2 OR blnActiveMember = False OR blnBanned Then 'Clean up Call closeDatabase() 'Redirect Response.Redirect("insufficient_permission.asp" & strQsSID1) End If 'Get the number of new pm's this user has intNewPMs = intNoOfPms 'Now get the date of the last PM strSQL = "SELECT" & strDBTop1 & " " & strDbTable & "PMMessage.PM_Message_date, " & strDbTable & "Author.Username " & _ "FROM " & strDbTable & "Author" & strDBNoLock & ", " & strDbTable & "PMMessage" & strDBNoLock & " " & _ "WHERE " & strDbTable & "Author.Author_ID=" & strDbTable & "PMMessage.From_ID " & _ "AND " & strDbTable & "PMMessage.Read_Post=" & strDBFalse & " " & _ "AND " & strDbTable & "PMMessage.Author_ID=" & lngLoggedInUserID & " " & _ "ORDER BY " & strDbTable & "PMMessage.PM_Message_date DESC" & strDBLimit1 & ";" 'Query the database rsCommon.Open strSQL, adoCon 'Place the recordset into an array If NOT rsCommon.EOF Then 'Read in PM data from recordset saryPmMessage = rsCommon.GetRows() End If 'Close the recordset rsCommon.Close 'If active users is enabled update the active users application array If blnActiveUsers Then 'Call active users function saryActiveUsers = activeUsers("", strTxtPrivateMessenger & " " & strTxtWelcome, "pm_welcome.asp", 0) End If 'Set bread crumb trail strBreadCrumbTrail = strBreadCrumbTrail & strNavSpacer & "" & strTxtPrivateMessenger & "" & strNavSpacer & strTxtWelcome %> <% = strTxtPrivateMessenger & ": " & strTxtWelcome %> <% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** Response.Write("") '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>

<% = strTxtPrivateMessenger %>


 <% = strTxtPrivateMessenger %> <% = strTxtMessenger %> " class="tabButton"> <% = strTxtPrivateMessenger & " /> <% = strTxtInbox %> " class="tabButton"> <% = strTxtPrivateMessenger & " /> <% = strTxtOutbox %>  <% = strTxtNewPrivateMessage %> <% = strTxtNewMessage %>

<% = strTxtWelcome & " " & strLoggedInUsername & " " & strTxtToYourPrivateMessenger %>
<% = strTxtPmIntroduction %>

<% = strTxtInboxStatus %>
<% 'If there are pm's display full inbox icon If isArray(saryPmMessage) Then Response.Write("") Else Response.Write("") End If 'If there are pm's display the last pm details If isArray(saryPmMessage) Then Response.Write("" & strTxtYouHave & " " & intNewPMs & " " & strTxtNewMsgsInYourInbox & " " & strTxtGoToYourInbox & ".
") Response.Write(strTxtYourLatestPrivateMessageIsFrom & " " & saryPmMessage(1,0) & " " & strTxtSent & " " & DateFormat(saryPmMessage(0,0)) & " " & strTxtAt & " " & TimeFormat(saryPmMessage(0,0)) & "
") Else Response.Write("
" & strTxtNoNewMsgsInYourInbox & " " & strTxtGoToYourInbox & "") End If %>

<% = strTxtPrivateMessengerOverview %>
<% = strTxtInbox %>
<% = strTxtInboxOverview %>

<% = strTxtOutbox %>
<% = strTxtOutboxOverview %>

<% = strTxtBuddyListOverview %>

<% = strTxtNewPrivateMessage %>
<% = strTxtNewMsgOverview %>


<% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** If blnLCode = True Then If blnTextLinks = True Then Response.Write("Bulletin Board Software by Web Wiz Forums® version " & strVersion & "") If blnACode Then Response.Write(" [Free Express Edition]") Else Response.Write("") If blnACode Then Response.Write("
Powered by Web Wiz Forums Free Express Edition") End If Response.Write("
Copyright ©2001-2008 Web Wiz") 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 & "
" %>
<% 'Clean up Call closeDatabase() %>