<% @ Language=VBScript %> <% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Guide - Web Wiz Forums '** '** Copyright 2001-2003 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 'Make sure this page is not cached Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" 'Declare variables Dim rsPmMessage 'ADO recordset object holding the users private messages Dim intRecordPositionPageNum 'Holds the recorset page number to show the other pm message Dim intTotalNumOfPages 'Holds the total number of pages in the recordset Dim intRecordLoopCounter 'Holds the loop counter numeber Dim intPageLoopCounter 'Holds the number of pages there are of pm messages Dim intNumOfPMs 'Holds the number of private messages the user has Dim intForumID 'Initilise varaibles intNumOfPMs = 0 '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?Redirect=" & RedirectOmitPath("Redirect", True)) End If 'If this is the first time the page is displayed then the pm message record position is set to page 1 If Request.QueryString("PN") = "" Then intRecordPositionPageNum = 1 'Else the page has been displayed before so the pm message record postion is set to the Record Position number Else intRecordPositionPageNum = CInt(Request.QueryString("PN")) End If 'Intialise the ADO recordset object Set rsPmMessage = Server.CreateObject("ADODB.Recordset") 'Initlise the sql statement strSQL = "SELECT " & strDbTable & "PMMessage.*, " & 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.Author_ID=" & lngLoggedInUserID & " " strSQL = strSQL & "ORDER BY " & strDbTable & "PMMessage.PM_Message_Date DESC;" 'Set the cursor type property of the record set to dynamic so we can naviagate through the record set rsPmMessage.CursorType = 1 'Query the database rsPmMessage.Open strSQL, adoCon 'Set the number of records to display on each page rsPmMessage.PageSize = 10 'If not eof then get some details If NOT rsPmMessage.EOF Then 'Get the record poistion to display from rsPmMessage.AbsolutePage = intRecordPositionPageNum 'Get the total number of pm's this user has intNumOfPMs = rsPmMessage.RecordCount 'Count the number of pages there are in the recordset calculated by the PageSize attribute set above intTotalNumOfPages = rsPmMessage.PageCount End If 'If there are no records on this page and it's above the frist page then set the page position to 1 If rsPmMessage.EOF AND intRecordPositionPageNum > 1 Then Response.Redirect "pm_inbox.asp?PN=1" %> Private Messenger: Inbox <% 'If there are more than 1 pm's write the function If intNumOfPMs > 1 Then Response.Write("") End If %>
<% = strTxtPrivateMessenger %>
 <% = strMainForumName %><% = strNavSpacer %><% = strTxtPrivateMessenger %>
") Response.Write(" ") 'Check there are PM messages to display If rsPmMessage.EOF Then 'If there are no pm messages to display then display the appropriate error message Response.Write vbCrLf & "" 'Else there the are topic's so write the HTML to display the topic names and a discription Else 'Loop round to read in all the Topics in the database For intRecordLoopCounter = 1 to 10 'Exit loop if run out of records If rsPmMessage.EOF Then Exit For %> <% 'Move to the next recordset rsPmMessage.MoveNext Next End If %> <% Call FormatBottomTable("100%") %>
<% = strTxtSubjectFolder %> <% = strTxtPrivateMessenger & ": " & strTxtInbox %> <% = strTxtPrivateMessenger & " border="0"><% = strTxtPrivateMessenger & " border="0"><% = strTxtPrivateMessenger & " border="0"><% = strTxtNewPrivateMessage %>
<% Call FormatTopTable("100%") %>
<% = strTxtRead %> <% = strTxtMessageTitle %> <% = strTxtMessageFrom %> <% = strTxtDate %> <% 'If there are more than 1 pm's writethe check all box If intNumOfPMs > 1 Then Response.Write("") Else Response.Write(" ") Response.Write("
" & strTxtNoPrivateMessages & " " & strTxtInbox & "
<% If CBool(rsPmMessage("Read_Post")) = False Then Response.Write("") Else Response.Write("") End If %> <% Response.Write("" & rsPmMessage("PM_Tittle") & "") %> ','profile','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=590,height=425')"><% = rsPmMessage("Username") %> <% Response.Write(DateFormat(rsPmMessage("PM_Message_Date"), saryDateTimeData) & " " & strTxtAt & " " & TimeFormat(rsPmMessage("PM_Message_Date"), saryDateTimeData)) %> ">
<% = strTxtUnreadMessage %> <% = strTxtUnreadMessage %>  <% = strTxtReadMessage %> <% = strTxtReadMessage %> <% 'Display delete buttons If intNumOfPMs > 0 Then Response.Write("") Response.Write(" ") Else Response.Write(" ") End If %>
<% 'If there is more than 1 page of topics then dispaly drop down list to the other topics If intTotalNumOfPages > 1 Then 'Display an drop down list to the other members in list Response.Write (vbCrLf & " ") End If %>
<% Response.Write(strLoggedInUsername & ", " & strTxtYouHave & " " & intNumOfPMs & " " & strTxtPrivateMessagesYouCanReceiveAnother & " " & (intNumPrivateMessages-intNumOfPMs) & " " & strTxtOutOf & " " & intNumPrivateMessages) %>
<% = strTxtYourInboxIs & " " & FormatPercent((intNumOfPMs / intNumPrivateMessages), 0) & " " & strTxtFull %>
0% 50% 100%
") 'Display a prev link if previous pages are available If intRecordPositionPageNum > 1 Then Response.Write("<< " & strTxtPrevious & " ") Response.Write (strTxtPage & " " & _ vbCrLf & " " & strTxtOf & " " & intTotalNumOfPages) 'Display a next link if needed If intRecordPositionPageNum <> intTotalNumOfPages Then Response.Write(" " & strTxtNext & " >>") Response.Write("


<% 'Clear server objects rsPmMessage.Close Set rsPmMessage = Nothing '***** 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-2003 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 & "" 'Display a msg if a PM has been deleted If Request.QueryString("MSG") = "DEL" Then Response.Write("") End If %> <% 'Clean up Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing %>