<% '*********************************************************************** '** Copyright (C) 2001 - 2004 Max Yuan All Rights Reserved '** '** By using this program, you are agreeing to the terms of the '** GNU General Public License. '** '** 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 MaxWebPortal must remain intact '** in the scripts and in the outputted HTML. '** The "powered by" text/logo with a link back to '** http://www.maxwebportal.com in the footer of the pages MUST '** remain visible when the pages are viewed on the internet or intranet. '** '** Support can be obtained from support forums at: '** http://www.maxwebportal.com '** '** Email: maxwebportal@hotmail.com '** ICQ: 148111300 '*********************************************************************** '** This Page Contains source code of Snitz Forums 2000 '*********************************************************************** '################################################################################# '## 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 '################################################################################# CurPageType = "forums" CurPageInfoChk = "1" function CurPageInfo () PageName = "a Private Message" PageAction = "Reading
" CurPageInfo = PageAction & PageName end function %> <% if strDBNTUserName = "" Then Response.Redirect "fhome.asp" Response.End else if Request.QueryString("id") <> "" or Request.QueryString("id") <> " " then if IsNumeric(Request.QueryString("id")) = True then strRQid = Request.QueryString("id") else Response.Redirect("fhome.asp") end if end if strSql = "UPDATE " & strTablePrefix & "PM " strSql = strSql & " SET " & strTablePrefix & "PM.M_READ = 1 " strSql = strSql & " WHERE (" & strTablePrefix & "PM.M_ID = " & strRQid & ");" my_conn.Execute (strSql) set my_Conn = Server.CreateObject("ADODB.Connection") my_Conn.Open strConnString 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_MESSAGE " 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 & " AND " & strTablePrefix & "PM.M_ID = " & strRQid strSql = strSql & " ORDER BY " & strTablePrefix & "PM.M_SENT DESC" Set rsMessage = my_Conn.Execute(strSql) if rsMessage.BOF or rsMessage.EOF then Response.Redirect("pm_view.asp") end if strSql ="SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_ICQ, " & strMemberTablePrefix & "MEMBERS.M_YAHOO, " & strMemberTablePrefix & "MEMBERS.M_AIM, " & strMemberTablePrefix & "MEMBERS.M_TITLE, " & strMemberTablePrefix & "MEMBERS.M_TITLE, " & strMemberTablePrefix & "MEMBERS.M_Homepage, " & strMemberTablePrefix & "MEMBERS.M_LEVEL, " & strMemberTablePrefix & "MEMBERS.M_POSTS, " & strMemberTablePrefix & "MEMBERS.M_CITY, " & strMemberTablePrefix & "MEMBERS.M_STATE, " & strMemberTablePrefix & "MEMBERS.M_COUNTRY, " & strMemberTablePrefix & "MEMBERS.M_PMRECEIVE, " & strTablePrefix & "PM.M_FROM, " & strTablePrefix & "PM.M_SUBJECT " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS , " & strTablePrefix & "PM " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "PM.M_FROM " strSql = strSql & " AND " & strTablePrefix & "PM.M_ID = " & strRQid Set rs = my_Conn.Execute(strSql) %>

כל הפורומים  הודעות פרטיות  קריאת הודעות פרטיות

&id=<% =strRQid%>&R_SUBJECT=<% =ChkString(rs("M_SUBJECT"),"urlpath")%>">&id=<% =strRQid%>&R_SUBJECT=<% =ChkString(rs("M_SUBJECT"),"urlpath")%>">

<% mwpThemeTableCustomCode = "align=""center"" width=""95%"" bgcolor=""""" mwpThemeBlock_open() %>

width="<% =strTopicWidthLeft %>" <% if lcase(strTopicNoWrapLeft) = "1" then Response.Write(" nowrap") %>>פורום

width="<% =strTopicWidthRight %>" <% if lcase(strTopicNoWrapRight) = "1" then Response.Write(" nowrap") %>>נושא:   <% =rsMessage("M_SUBJECT") %>

<% if strUseExtendedProfile then %> "> <% else %> ')"> <% end if %> <% if rs("M_LEVEL")>=2 then %> <% =ChkString(rs("M_NAME"),"display") %> <% else %> <% =ChkString(rs("M_NAME"),"display") %> <% end if %> <% if strShowRank = 1 or strShowRank = 3 then %> <% = ChkString(getMember_Level(rs("M_TITLE"), rs("M_LEVEL"), rs("M_POSTS")),"display") %> <% end if %> <% if strShowRank = 2 or strShowRank = 3 then %> <% = getStar_Level(rs("M_LEVEL"), rs("M_POSTS")) %> <% end if %> <% =rs("M_COUNTRY") %> <% =rs("M_POSTS") %> הודעות

Sent - <% =ChkDate(rsMessage("M_SENT")) %>  <% =ChkTime(rsMessage("M_SENT")) %> <% if strUseExtendedProfile then %>  "> <% else %>  ')"> <% end if %>  ')">  &id=<% =strRQid%>&R_SUBJECT=<% =ChkString(rs("M_SUBJECT"),"urlpath")%>"> <% if strHomepage = "1" then %> <% if rs("M_Homepage") <> " " then %>  ">" border="0" align="absmiddle" hspace="6"> <% end if %> <% end if %> <% if strICQ = "1" then %> <% if rs("M_ICQ") <> " " then %>  &M_NAME=<% =ChkString(rs("M_NAME"),"urlpath") %>')">&img=5" height=15 width=15 alt="שלח ל <% =rs("M_NAME") %> הודעת ICQ " border="0" align="absmiddle" hspace="6"> <% end if %> <% end if %> <% if strYAHOO = "1" then %> <% if rs("M_YAHOO") <> " " then %>  &.src=pg')"> הודעת Yahoo! " border="0" align="absmiddle" hspace="6"> <% end if %> <% end if %> <% if (strAIM = "1") then %> <% if rs("M_AIM") <> " " then %>  &M_NAME=<% =ChkString(rs("M_NAME"),"urlpath") %>')"> הודעת AOL" border="0" align="absmiddle" hspace="6"> <% end if %> <% end if %> <% =formatStr(rsMessage("M_MESSAGE")) %>

<%mwpThemeBlock_close()%> <% end if %>