<% '################################################################################# '## 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 '################################################################################# %> <% Response.Buffer = True if strDBNTUserName = "" Then Response.Redirect "default.asp" Response.End else if Request.QueryString("mode") = "setoptions" then '## Forum_SQL strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " SET M_PMRECEIVE = '" & Request.Form("statusstorage") & "', " strSql = strSql & " M_PMEMAIL = '" & Request.Form("emailstorage") & "'" strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & strDBNTUserName & "'" strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_PASSWORD = '" & Request.Cookies(strUniqueID & "User")("PWord") & "'" my_Conn.Execute(strSql) if strSetCookieToForum = 1 then Response.Cookies(strCookieURL & "paging").Path = strCookieURL end if Response.Cookies(strCookieURL & "paging")("outbox") = Request.Form("layoutstorage") Response.Cookies(strCookieURL & "paging").Expires = dateAdd("d", 360, strForumTimeAdjust) %>

Success
Return to your inbox

<% else '## Forum_SQL strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strMemberTablePrefix & "MEMBERS.M_PASSWORD, " & strMemberTablePrefix & "MEMBERS.M_PMRECEIVE, " & strMemberTablePrefix & "MEMBERS.M_PMEMAIL " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & strDBNTUserName & "'" strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_PASSWORD = '" & Request.Cookies(strUniqueID & "User")("PWord") & "'" set rs = my_Conn.Execute(strSql) %>

All Forums

Private Messages

Preferences

Enable/Disable Private Messages

<% =strForumTitle %> private messages are currently turned <% if rs("M_PMRECEIVE") = "1" then %> ON <% else %> OFF <% end if %>.
You may turn it <% if rs("M_PMRECEIVE") = "1" then %> OFF <% else %> ON <% end if %> below. By doing so you will no longer be able to receive private messages
> Enable private messages.
> Disable private messages.
You may turn Private Messages back on by returning to this page

Email Notification

<% =strForumTitle %> can send you an e-mail notification whenever you receive a private message.
Please select your preference.
> Receive e-mail notification of private messages.
> Do not receive notification.

InBox/OutBox Preferences

Please select your layout preference.
> Single page layout :  both inbox and outbox appear on the same page
> 2 page layout :  inbox and outbox appear on seperate pages
> No Outbox :  No outbox. Sent messages are not saved

<% end if %> <% end if %>