<%
'###############################################################################
'##
'##         Snitz Forums 2000 v3.4.07
'##
'###############################################################################
'##
'## Copyright © 2000-09 Michael Anderson, Pierre Gorissen,
'##         Huw Reddick and Richard Kinser
'##
'## This program is free. You can redistribute and/or modify it under the
'## terms of the GNU General Public License as published by the Free Software
'## Foundation; either version 2 or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000 must remain intact in
'## the scripts and in the HTML output.  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 an 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:
'##
'##         Free Software Foundation, Inc.
'##         59 Temple Place, Suite 330
'##         Boston, MA 02111-1307
'##
'## Support can be obtained from our support forums at:
'##
'##         http://forum.snitz.com
'##
'## Correspondence and marketing questions can be sent to:
'##
'##         manderson@snitz.com
'##
'###############################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<!--#INCLUDE FILE="inc_func_posting.asp"-->
<%
if mLev<1 or (STRIMGINPOSTS<>"1" or STRIMAGEURL="") then
	Response.Redirect	"default.asp"
end if
Response.Write	"<table border=""0"" width=""100%"">" & vbNewLine & _
	"	<tr>" & vbNewLine & _
	"		<td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
	"		" & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
	"		" & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Topics Image Preview<br /></font></td>" & vbNewLine & _
	"	</tr>" & vbNewLine & _
	"</table><br>" & vbNewLine & _
	"<table align=""center"" bgcolor=""" & strTableBorderColor & """ border=""1"" width=""100%"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine & _
	"	<tr valign=""middle""><br>" & vbNewLine & _
	"		<td colspan=""2"" width=""100%"" align=""center"" bgcolor=""" & strCategoryCellColor & """>" & vbNewLine & _
	"			<font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strCategoryFontColor & """><b>Last 10 Topics Image Preview</b>" & vbNewLine & _
	"			</font>" & vbNewLine & _
	"		</td>" & vbNewLine & _
	"	</tr>" & vbNewLine & _
	"	<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b>" & vbNewLine
Call ChkAccess

strSql="SELECT FORUM_ID, T_STATUS, T_DATE, T_MESSAGE, T_SUBJECT, Topic_ID FROM " & strTablePrefix & "TOPICS WHERE"
if strPrivateForums = "1" and allAllowedForums <> "" and mLev < 4 then
	strSql=strSql & " (FORUM_ID IN (" & allAllowedForums & ")) AND"
end if
strSql=strSql & " T_STATUS=1 AND T_MESSAGE LIKE '%%' ORDER BY T_DATE DESC"
set rsDisplay=my_Conn.Execute(strSql)
if rsDisplay.EOF or (mLev < 4 AND allAllowedForums="")then
	Response.Redirect	"default.asp"
end if
if not rsDisplay.EOF then
	rsDisplay.MoveFirst
	ii=0
	do until rsDisplay.EOF
		strMsg=rsDisplay("T_MESSAGE")
		if lcase(instr(strMsg,"")) then
			ii=ii+1
			if ii=11 then
				exit do
			end if
			for i=1 to len(strMsg)
				if lcase(mid(strMsg,i,5))="" then
					intk=i
					strImgURL=mid(strMsg,intj,intk-intj)
				end if
			next
			address = lcase(strForumURL&Trim(strImgURL))
		end if
		strTgtURL(ii)=address
		strSubj(ii)=rsDisplay("T_Subject")
		strTPID(ii)=rsDisplay("Topic_ID")
		il=0
		rsDisplay.MoveNext
	Loop
	for ij=1 to 5
		Response.Write	"	<tr height=""275"" valign=""bottom"">" & vbNewLine
		for ik=1 to 2
			il=il+1
			Response.Write	"		<td width=""50%"" align=""center"" bgcolor=""" & strForumCellColor & """>" & vbNewLine
			if strTgtURL(il)>"" then
				Response.Write	"<a href=""" & strTgtURL(il) & """ target=""_blank"">" & vbNewLine & _
					"<img src=""" & strTgtURL(il) & """ width=""298""></a><br>" & vbNewLine
			end if
			Response.Write	"<a href=""topic.asp?topic_id="& cInt(strTPID(il)) & """ target=""_blank"">" & strSubj(il) & "</a>" & vbNewLine & _
				"</td>" & vbNewLine
		next
		Response.Write	"	</tr>" & vbNewLine
	next
	rsDisplay.Close
end if
Set rsDisplay=Nothing
Response.Write	"	</table>" & vbNewLine
WriteFooter
Response.End


Sub ChkAccess
	if mlev = 3 then
		strSql = "SELECT FORUM_ID FROM " & strTablePrefix & "MODERATOR " & _
		 " WHERE MEMBER_ID = " & MemberID
		Set rsMod = Server.CreateObject("ADODB.Recordset")
		rsMod.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
		if rsMod.EOF then
			recModCount = ""
		else
			allModData = rsMod.GetRows(adGetRowsRest)
			recModCount = UBound(allModData,2)
		end if
		RsMod.close
		set RsMod = nothing
		if recModCount <> "" then
			for x = 0 to recModCount
				if x = 0 then
					ModOfForums = allModData(0,x)
				else
					ModOfForums = ModOfForums & "," & allModData(0,x)
				end if
			next
		else
			ModOfForums = ""
		end if
	else
		ModOfForums = ""
	end if
	if strPrivateForums = "1" and mLev < 4 then
		allAllowedForums = ""
		allowSql = "SELECT FORUM_ID, F_SUBJECT, F_PRIVATEFORUMS, F_PASSWORD_NEW"
		allowSql = allowSql & " FROM " & strTablePrefix & "FORUM"
		allowSql = allowSql & " WHERE F_TYPE = 0"
		allowSql = allowSql & " ORDER BY FORUM_ID"
		set rsAllowed = Server.CreateObject("ADODB.Recordset")
		rsAllowed.open allowSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
		if rsAllowed.EOF then
			recAllowedCount = ""
		else
			allAllowedData = rsAllowed.GetRows(adGetRowsRest)
			recAllowedCount = UBound(allAllowedData,2)
		end if
		rsAllowed.close
		set rsAllowed = nothing
		if recAllowedCount <> "" then
			fFORUM_ID = 0
			fF_SUBJECT = 1
			fF_PRIVATEFORUMS = 2
			fF_PASSWORD_NEW = 3
			for RowCount = 0 to recAllowedCount
				Forum_ID = allAllowedData(fFORUM_ID,RowCount)
				Forum_Subject = allAllowedData(fF_SUBJECT,RowCount)
				Forum_PrivateForums = allAllowedData(fF_PRIVATEFORUMS,RowCount)
				Forum_FPasswordNew = allAllowedData(fF_PASSWORD_NEW,RowCount)
				if mLev = 4 then
					ModerateAllowed = "Y"
				elseif mLev = 3 and ModOfForums <> "" then
					if (strAuthType = "nt") then
						if (chkForumModerator(Forum_ID, Session(strCookieURL & "username")) = "1") then ModerateAllowed = "Y" else ModerateAllowed = "N"
					else
						if (instr("," & ModOfForums & "," ,"," & Forum_ID & ",") > 0) then ModerateAllowed = "Y" else ModerateAllowed = "N"
					end if
				else
					ModerateAllowed = "N"
				end if
				if chkForumAccessNew(Forum_PrivateForums,Forum_FPasswordNew,Forum_Subject,Forum_ID,MemberID) = true then
					if allAllowedForums = "" then
						allAllowedForums = Forum_ID
					else
						allAllowedForums = allAllowedForums & "," & Forum_ID
					end if
				end if
			next
		end if
		if allAllowedForums = "" then allAllowedForums = 0
	end if
End Sub
%>