<% '################################################################################# '## 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 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_FROM " strSql = strSql & " AND " & strTablePrefix & "PM.M_ID = " & Request.QueryString("id") 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, " & 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 = " & Request.QueryString("id") Set rs = my_Conn.Execute(strSql) %>

All Forums  Private Messages  Sent Private Messages

>From

>Subject:   <% =rsMessage("M_SUBJECT") %>

<% if strUseExtendedProfile then %> "> <% else %> ')"> <% end if %> <% =ChkString(rs("M_NAME"),"display") %> <% 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") %> Posts

Sent - <% =ChkDate(rsMessage("M_SENT")) %>  <% =ChkTime(rsMessage("M_SENT")) %> <% if strUseExtendedProfile then %>  "> <% else %>  ')"> <% end if %>  ')"> <% if strHomepage = "1" then %> <% if rs("M_Homepage") <> " " then %>  ">'s Homepage" 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="Send <% =rs("M_NAME") %> an ICQ Message" border="0" align="absmiddle" hspace="6"> <% end if %> <% end if %> <% if strYAHOO = "1" then %> <% if rs("M_YAHOO") <> " " then %>  &.src=pg')"> a Yahoo! Message" 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") %>')"> an instant message" border="0" align="absmiddle" hspace="6"> <% end if %> <% end if %> <% =formatStr(rsMessage("M_MESSAGE")) %>

<% end if %>