<% '################################################################################# '## Snitz Forums 2000 v3.4.06 '################################################################################# '## Copyright (C) 2000-06 Michael Anderson, Pierre Gorissen, '## Huw Reddick and Richard Kinser '## '## 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 (at your option) 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 our support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## manderson@snitz.com '## '################################################################################# %> <% Topic_ID = cLng(Request.QueryString("TOPIC_ID")) if Topic_ID = 0 then Go_Result "Topic not found." Response.End end if if Request.QueryString("ARCHIVE") = "true" then strActivePrefix = strTablePrefix & "A_" else strActivePrefix = strTablePrefix end if '## Forum_SQL - Get Origional Posting strSql = "SELECT M.M_NAME, M.MEMBER_ID, T.T_DATE, T.T_SUBJECT, T.T_AUTHOR, T.FORUM_ID, T.TOPIC_ID, T.T_MESSAGE " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS M, " & strActivePrefix & "TOPICS T" strSql = strSql & " WHERE M.MEMBER_ID = T.T_AUTHOR " strSql = strSql & " AND T.T_STATUS < " & 2 strSql = strSql & " AND T.TOPIC_ID = " & Topic_ID set rs4 = my_Conn.Execute (strSql) if rs4.EOF then rs4.close set rs4 = nothing Go_Result "Either the Topic was not found
or you are not authorized to view it." Response.End end if Forum_ID = rs4("FORUM_ID") if strPrivateForums = "1" then result = chkForumAccess(Forum_ID,MemberID,false) if result = "False" or result = "FALSE" then Go_Result "You do not have access to
the forum where this Topic resides." Response.End end if end if '## Forum_SQL - Get all replies to this topic from DB strSql = "SELECT M.M_NAME, R.REPLY_ID, R.R_AUTHOR, R.TOPIC_ID, R.R_DATE, R.R_MESSAGE " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS M, " & strActivePrefix & "REPLY R " strSql = strSql & " WHERE M.MEMBER_ID = R.R_AUTHOR " strSql = strSql & " AND R_STATUS < " & 2 strSql = strSql & " AND R.TOPIC_ID = " & Topic_ID strSql = strSql & " ORDER BY R.R_DATE" set rs3 = Server.CreateObject("ADODB.Recordset") rs3.open strSql, my_Conn Response.Write " Print Page | Close Window
" & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline &_ "

" & chkString(rs4("T_SUBJECT"),"display") & "

" & vbNewline & _ "

Printed from: " & strForumTitle & "
" & vbNewline & _ " Topic URL: " & strForumURL & "topic.asp?TOPIC_ID=" & Topic_ID & "
" & vbNewline & _ " Printed on: " & ChkDate(DateToStr(Now()),"",false) & "

" & vbNewline & _ "

Topic:
" & vbNewline & _ "

" & vbNewline & _ "

Topic author: " & chkString(rs4("M_NAME"),"display") & "
" & vbNewline & _ " Subject: " & chkString(rs4("T_SUBJECT"),"display") & "
" & vbNewline & _ " Posted on: " & ChkDate(rs4("T_DATE"), " " ,true) & "
" & vbNewline & _ " Message:

" & formatStr(rs4("T_MESSAGE")) & "

" & vbNewline if rs3.EOF or rs3.BOF then '## Do Nothing else rs3.movefirst Response.Write "

" & vbNewline & _ " Replies:
" & vbNewline do until rs3.EOF Response.Write "

" & vbNewline & _ "

" & vbNewline & _ " Reply author: " & chkString(rs3("M_NAME"),"display") & "
" & vbNewline & _ " Replied on: " & ChkDate(rs3("R_DATE"), " " ,true) & "
" & vbNewline & _ " Message:

" & formatStr(rs3("R_MESSAGE")) & "

" & vbNewline rs3.MoveNext loop end if rs3.close set rs3 = Nothing rs4.close set rs4 = Nothing Response.Write "

" & vbNewline & _ "

" & strForumTitle & " : " & strForumURL & "

" & vbNewline & _ "

© " & strCopyright & "

" & vbNewline &_ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ "
" & vbNewline & _ " " & vbNewline WriteFooterShort Response.End function Go_Result(message) Response.Write "

There has been a problem!

" & vbNewLine & _ "

" & message & "

" & vbNewLine WriteFooterShort Response.End end function %>