<% @ Language=VBScript %> <% Option Explicit %> <% '**************************************************************************************** '** 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 '** '**************************************************************************************** 'Set the buffer to true Response.Buffer = True 'Declare variables Dim rsPmMessage 'db recordset holding any new pm's since last vist Dim intForumID 'If Priavte messages are not on then send them away If blnPrivateMessages = False Then 'Clean up Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing 'Redirect Response.Redirect("default.asp") End If 'If the user is not allowed then send them away If intGroupID = 2 OR blnActiveMember = False Then 'Clean up Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing 'Redirect Response.Redirect("insufficient_permission.asp") End If 'Intialise the ADO recordset object Set rsPmMessage = Server.CreateObject("ADODB.Recordset") 'Initlise the sql statement If strDatabaseType = "SQLServer" Then strSQL = "EXECUTE " & strDbProc & "CountOfPMs @lngLoggedInUserID = " & lngLoggedInUserID Else strSQL = "SELECT Count(" & strDbTable & "PMMessage.PM_ID) AS CountOfPM FROM " & strDbTable & "PMMessage " strSQL = strSQL & "WHERE " & strDbTable & "PMMessage.Read_Post = 0 AND " & strDbTable & "PMMessage.Author_ID = " & lngLoggedInUserID & ";" End If 'Query the database rsPmMessage.Open strSQL, adoCon 'Get the number of new pm's this user has intNumOfNewPM = CInt(rsPmMessage("CountOfPM")) 'Close the recordset rsPmMessage.Close 'Now get the date of the last PM strSQL = "SELECT TOP 1 " & strDbTable & "PMMessage.PM_Message_Date, " & strDbTable & "Author.Username " strSQL = strSQL & "FROM " & strDbTable & "Author INNER JOIN " & strDbTable & "PMMessage ON " & strDbTable & "Author.Author_ID = " & strDbTable & "PMMessage.From_ID " strSQL = strSQL & "WHERE " & strDbTable & "PMMessage.Read_Post = 0 AND " & strDbTable & "PMMessage.Author_ID = " & lngLoggedInUserID & " " strSQL = strSQL & "ORDER BY " & strDbTable & "PMMessage.PM_Message_Date DESC;" 'Query the database rsPmMessage.Open strSQL, adoCon %> Private Messenger : Welcome
<% = strTxtPrivateMessenger %>
 <% = strMainForumName %><% = strNavSpacer %><% = strTxtPrivateMessenger %>
<% = strTxtSubjectFolder %> <% = strTxtPrivateMessenger & ": " & strTxtWelcome %> <% = strTxtPrivateMessenger & " border="0"> <% = strTxtPrivateMessenger & " border="0"> <% = strTxtPrivateMessenger & " border="0"> <% = strTxtNewPrivateMessage %>
<% = strTxtWelcome & " " & strLoggedInUsername & " " & strTxtToYourPrivateMessenger %>
<% = strTxtPmIntroduction %>
 
<% = strTxtInboxStatus %>
<% 'If there are pm's display full inbox icon If NOT rsPmMessage.EOF Then Response.Write("") Else Response.Write("") End If %> <% 'If there are pm's display the last pm details If NOT rsPmMessage.EOF Then Response.Write("" & strTxtYouHave & " " & intNumOfNewPM & " " & strTxtNewMsgsInYourInbox & " " & strTxtGoToYourInbox & ".
") Response.Write(strTxtYourLatestPrivateMessageIsFrom & " " & rsPmMessage("Username") & " " & strTxtSentOn & " " & DateFormat(rsPmMessage("PM_Message_Date"), saryDateTimeData) & " " & strTxtAt & " " & TimeFormat(rsPmMessage("PM_Message_Date"), saryDateTimeData) & "
") Else Response.Write(strTxtNoNewMsgsInYourInbox & " " & strTxtGoToYourInbox & "") End If %>
 
<% = strTxtPrivateMessengerOverview %>
<% = strTxtInbox %>: <% = strTxtInboxOverview %>
<% = strTxtOutbox %>: <% = strTxtOutboxOverview %>
<% = strTxtBuddyList %>: <% = 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("Powered by Web Wiz Forums version " & strVersion & "") Else Response.Write("") End If Response.Write("
Copyright ©2001-2004 Web Wiz Guide") 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, 4) & " " & strTxtSeconds & "" %>
<% 'Clean up rsPmMessage.Close Set rsPmMessage = Nothing Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing %>