<% '################################################################################# '## 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 '################################################################################# %> <% '################################################################################# '## Variable declaration '################################################################################# dim strSelecSize dim intCols, intRows %> <% '################################################################################# '## Initialise variables '################################################################################# strSelectSize = Request.Form("SelectSize") strRqMethod = Request.QueryString("method") strRqForumID = Request.QueryString("FORUM_ID") strRqCatID = Request.QueryString("CAT_ID") strCkPassWord = Request.Cookies(strUniqueID & "User")("Pword") '################################################################################# '## Page-code start '################################################################################# if strSelectSize = "" or IsNull(strSelectSize) then strSelectSize = Request.Cookies(strCookieURL & "strSelectSize") end if if not(IsNull(strSelectSize)) then Response.Cookies(strCookieURL & "strSelectSize") = strSelectSize Response.Cookies(strCookieURL & "strSelectSize").expires = Now() + 365 end if %> <% select case strSelectSize case "1" intCols = 45 intRows = 6 case "2" intCols = 80 intRows = 12 case "3" intCols = 90 intRows = 12 case "4" intCols = 130 intRows = 15 case else intCols = 45 intRows = 6 end select %> <% Msg = "" if Request.Querystring("method") = "ReplyQuote" or Request.Querystring("method") = "Forward" then '## Forum_SQL strSql = "SELECT * " strSql = strSql & " FROM " & strTablePrefix & "PM " strSql = strSql & " WHERE " & strTablePrefix & "PM.M_ID = " & Request.QueryString("id") set rs = my_Conn.Execute (strSql) strAuthor = rs("M_FROM") '** if Request.QueryString("method") = "Edit" then TxtMsg = rs("M_MESSAGE") else if Request.Querystring("method") = "ReplyQuote" then TxtMsg = "[quote]" & vbCrLf TxtMsg = TxtMsg & rs("M_MESSAGE") & vbCrLf TxtMsg = TxtMsg & "[/quote]" end if if Request.Querystring("method") = "Forward" then TxtMsg = "----- Forwarded Message -----" & vbCrLf TxtMsg = TxtMsg & rs("M_MESSAGE") & vbCrLf TxtMsg = TxtMsg & "-----------------------------" end if end if 'boolReply = rs("R_MAIL") end if %>

All Forums

Private Messages

Send Private Message

<% =Msg %>

"> "> "> "> "> "> ">

<% if mlev = 4 or _ mlev = 3 or _ mlev = 2 or _ mlev = 1 then %> <% else if (lcase(strNoCookies) = "1") or _ (strDBNTUserName = "" or _ strCkPassWord = "") then %> <% end if %> <% end if %> <% if Request.QueryString("method") = "Topic" then %> <% end if if Request.QueryString("method") = "Topic" or Request.Querystring("method") = "Forward" then %> <% end if %> <% if Request.QueryString("method") = "Reply" or _ Request.QueryString("method") = "ReplyQuote" or _ Request.Querystring("method") = "Forward" or _ Request.QueryString("method") = "Topic" then %> <% if strAllowForumCode = 1 then %> <% end if %> <% end if %> <% if Request.QueryString("method") = "Reply" or _ Request.QueryString("method") = "ReplyQuote" or _ Request.Querystring("method") = "Forward" or _ Request.QueryString("method") = "Topic" then %>

UserName:

Password:

Subject:

" size="50">

Send to:

" size="50"> Memberlist

Mode:

Message:

<% if strAllowHTML = "1" then %> * HTML is ON
<% else %> * HTML is OFF
<% end if %> <% if strAllowForumCode = "1" then %> * Forum Code is ON
<% else %> * Forum Code is OFF
<% end if %>

<% if Request.QueryString("method") = "Reply" or _ Request.QueryString("method") = "ReplyQuote" or _ Request.Querystring("method") = "Forward" or _ Request.QueryString("method") = "Topic" then %> <% if lcase(strIcons) = "1" then %>

<% end if %>

<% end if %> <% if Request.QueryString("method") = "Edit" or _ Request.QueryString("method") = "EditTopic" or _ Request.QueryString("method") = "Reply" or _ Request.QueryString("method") = "ReplyQuote" or _ Request.Querystring("method") = "Forward" or _ Request.QueryString("method") = "Topic" or _ Request.QueryString("method") = "TopicQuote" then %> <% if Request.QueryString("method") = "Reply" or _ Request.QueryString("method") = "ReplyQuote" or _ Request.Querystring("method") = "Forward" or _ Request.QueryString("method") = "Topic" or _ Request.QueryString("method") = "TopicQuote" then %> <%' if rsMember("M_SIG") <> " " then %> >Check here to include your profile signature.
<%' end if %> <% end if %> <% if lcase(strEmail) = "1" then %> <% if Request.QueryString("method") = "Topic" or _ Request.QueryString("method") = "EditTopic" then %> <% else %> <% if Request.QueryString("method") = "Reply" or _ Request.QueryString("method") = "Edit" or _ Request.QueryString("method") = "ReplyQuote" or _ Request.Querystring("method") = "Forward" or _ Request.QueryString("method") = "TopicQuote" then end if %> <% end if %> <% end if %> <% end if %> <% end if %>

<% If Request.QueryString("Method") = "Reply" or _ Request.QueryString("Method") = "TopicQuote" or _ Request.Querystring("method") = "Forward" or _ Request.QueryString("Method") = "ReplyQuote" then %> <% '## Forum_SQL strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strTablePrefix & "PM.M_MESSAGE " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "PM " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "PM.M_FROM AND " strSql = strSql & " " & strTablePrefix & "PM.M_ID = " & Request.QueryString("ID") set rs = my_Conn.Execute (strSql) Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write "

size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">M E S S A G E R E V I E W
" & ChkString(rs("M_NAME"),"display") & "	" & formatStr(rs("M_MESSAGE")) & "

" & vbCrLf Response.Write "" & vbCrLf end if %>