<% '################################################################################# '## Copyright (C) 2000 Michael Anderson and Pierre Gorissen '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or any later version. '## '## All copyright notices regarding Snitz Forums 2000 '## must remain intact in the scripts and in the outputted HTML '## The "powered by" text/logo with a link back to '## http://forum.snitz.com in the footer of the pages MUST '## remain visible when the pages are viewed on the internet or intranet. '## '## This program is distributed in the hope that it will be useful, '## but WITHOUT ANY WARRANTY; without even the implied warranty of '## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '## GNU General Public License for more details. '## '## You should have received a copy of the GNU General Public License '## along with this program; if not, write to the Free Software '## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. '## '## Support can be obtained from support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## reinhold@bigfoot.com '## '## or '## '## Snitz Communications '## C/O: Michael Anderson '## PO Box 200 '## Harpswell, ME 04079 '################################################################################# %> <% if strDBNTUserName = "" Then Response.Redirect "default.asp" Response.End else if Request.Cookies(strCookieURL & "paging")("outbox") = "" then if strSetCookieToForum = 1 then Response.Cookies(strCookieURL & "paging").Path = strCookieURL end if '####################################################################### '####### Right now if a user doesn't have an OUTBOX preference ####### '####### set in their cookie it will default to double ####### '####### ####### '####### If you want to change it, just change "double" below ####### '####### to either "single" or "none" ####### '####################################################################### Response.Cookies(strCookieURL & "paging")("outbox") = "double" Response.Cookies(strCookieURL & "paging").Expires = dateAdd("d", 360, strForumTimeAdjust) end if %>
 All Forums
 Private Messages
<% if Request.Cookies(strCookieURL & "paging")("OUTBOX") = "double" and Request.QueryString("view") <> "outbox" Then %>Write a new message<% end if %><% if Request.Cookies(strCookieURL & "paging")("OUTBOX") = "double" and Request.QueryString("view") = "outbox" Then %>Inbox<% end if %>Write a new messageCheck for new messagesView your Ignore ListBrowse the MemberlistSet your private message preferences
<% if Request.QueryString("view") <> "outbox" then %>
<% =strDBNTUserName %>'s Private Messages Inbox
<% if Request.QueryString("marknew") = "1" then strSql = "UPDATE " & strTablePrefix & "PM " strSql = strSql & " SET " & strTablePrefix & "PM.M_READ = 0 " strSql = strSql & " WHERE (" & strTablePrefix & "PM.M_ID = " & Request.QueryString("id") & ");" my_conn.Execute (strSql) end if Response.Flush strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strTablePrefix & "PM.M_ID, " & strTablePrefix & "PM.M_TO, " & strTablePrefix & "PM.M_SUBJECT, " & strTablePrefix & "PM.M_SENT, " & strTablePrefix & "PM.M_FROM, " & strTablePrefix & "PM.M_READ " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS , " & strTablePrefix & "PM " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & strDBNTUserName & "'" strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "PM.M_TO " strSql = strSql & " ORDER BY " & strTablePrefix & "PM.M_SENT DESC" Set rsMessage = my_Conn.Execute(strSql) if rsMessage.EOF or rsMessage.BOF then '## No Private Messages found in DB %> <% else i = 0 do Until rsMessage.EOF strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strTablePrefix & "PM.M_ID " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS , " & strTablePrefix & "PM " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & rsMessage("M_FROM") & "" Set rsFrom = my_Conn.Execute(strSql) if i = 1 then CColor = strAltForumCellColor else CColor = strForumCellColor end if %> <% else %> ')"><% =rsFrom("M_NAME") %> <% end if %> <% rsMessage.MoveNext i = i + 1 if i = 2 then i = 0 Loop end if %>
  Subject From Date Sent Delete?
  You have no Private Messages
<% if rsMessage("M_READ") = "0" then %> New Message <% else %> ">Click here to mark this message new <% end if %> "><% =rsMessage("M_SUBJECT") %> <% if strUseExtendedProfile then %> "><% =rsFrom("M_NAME") %><% =ChkDate(rsMessage("M_SENT")) %>  <% =ChkTime(rsMessage("M_SENT")) %> ">

New Message New Message
Old Message Old Message
<% end if if Request.Cookies(strCookieURL & "paging")("OUTBOX") = "single" or Request.QueryString("view") = "outbox" then %>
<% =strDBNTUserName %>'s Private Messages Outbox
<% '#PM SQL get private messages strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strTablePrefix & "PM.M_ID, " & strTablePrefix & "PM.M_TO, " & strTablePrefix & "PM.M_SUBJECT, " & strTablePrefix & "PM.M_SENT, " & strTablePrefix & "PM.M_FROM, " & strTablePrefix & "PM.M_READ, " & strTablePrefix & "PM.M_OUTBOX " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS , " & strTablePrefix & "PM " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & strDBNTUserName & "'" strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "PM.M_FROM " strSql = strSql & " AND " & strTablePrefix & "PM.M_OUTBOX = 1" strSql = strSql & " ORDER BY " & strTablePrefix & "PM.M_SENT DESC" Set rsFMessage = my_Conn.Execute(strSql) if rsFMessage.EOF or rsFMessage.BOF then '## No Private Messages found in DB %> <% else i = 0 do Until rsFMessage.EOF '#PM SQL get Message MemberName strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strTablePrefix & "PM.M_ID " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS , " & strTablePrefix & "PM " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & rsFMessage("M_TO") & "" Set rsTo = my_Conn.Execute(strSql) if i = 1 then CColor = strAltForumCellColor else CColor = strForumCellColor end if %> <% else %> ')"><% =rsTo("M_NAME") %> <% end if %> <% rsFMessage.MoveNext i = i + 1 if i = 2 then i = 0 Loop end if %>
  Subject Sent To Date Sent Remove?
  You have no Private Messages in your Outbox
<% if rsFMessage("M_READ") = "0" then %> New Message <% else %> Click here to mark this message new <% end if %> "><% =rsFMessage("M_SUBJECT") %> <% if strUseExtendedProfile then %> "><% =rsTo("M_NAME") %><% =ChkDate(rsFMessage("M_SENT")) %>  <% =ChkTime(rsFMessage("M_SENT")) %> ">

Message has not been read Message has not been read.
Message has been read Message has been read.
<% end if end if %>