intAllowedCategoryArray = Array(50,51,52,53,54,55,56,57,58)

Microsoft OLE DB Provider for SQL Server error '80040e14' 

Line 1: Incorrect syntax near ')'. 

/hl_equipment2.asp, line 112

Snitz copyright info here
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp" -->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<!--#INCLUDE FILE="inc_moderation.asp" -->
<%


'## Forum_SQL
strSql = "SELECT F.FORUM_ID, " & _
         "F.F_SUBJECT, " & _
	 "F.F_STATUS, " & _
         "C.CAT_ID, " & _
	 "C.CAT_NAME, " & _
	 "C.CAT_STATUS, " & _
	 "T.T_STATUS, " & _
	 "T.TOPIC_ID, " & _
	 "T.T_MSGICON, " &_
	 "T.T_SUBJECT, " & _
	 "T.T_AUTHOR, " & _
	 "M.M_NAME, " & _
	 "T.T_LAST_POST_AUTHOR, " & _
	 "T.T_LAST_POST, " & _
	 "T.T_LAST_POST_REPLY_ID, " & _
	 "MEMBERS_1.M_NAME AS LAST_POST_AUTHOR_NAME, " & _
	 "F.F_PRIVATEFORUMS, " & _
	 "F.F_PASSWORD_NEW, " & _
	 "T.T_MESSAGE " & _
	 "FROM " & strMemberTablePrefix & "MEMBERS M, " & _
	 strTablePrefix & "FORUM F, " & _
	 strTablePrefix & "TOPICS T, " & _
	 strTablePrefix & "CATEGORY C, " & _
	 strMemberTablePrefix & "MEMBERS MEMBERS_1 " & _
	 "WHERE T.T_LAST_POST_AUTHOR = MEMBERS_1.MEMBER_ID "
'###################################################################

if strPrivateForums = "1" and mLev < 4 then
	strSql = strSql & " AND F.FORUM_ID IN (" & allAllowedForums & ") "
end if

strSql = strSql & "AND F.F_TYPE = 0 " & _
	 "AND F.FORUM_ID = T.FORUM_ID " & _
	 "AND C.CAT_ID = T.CAT_ID " & _
	 "AND M.MEMBER_ID = T.T_AUTHOR " & _
         "AND (T.T_LAST_POST > '" & lastDate & "'"
' DEM --> if not an admin, all unapproved posts should not be viewed.
if mlev <> 4 then
	strSql = strSql & " AND ((T.T_AUTHOR <> " & MemberID &_
			  " AND T.T_STATUS < 2)"  ' Ignore unapproved/held posts
	if mlev = 3 and ModOfForums <> "" then
		strSql = strSql & " OR T.FORUM_ID IN (" & ModOfForums & ") "
	end if
	strSql = strSql & "  OR T.T_AUTHOR = " & MemberID & ")"
end if

if Group > 1 and strGroupCategories = "1" then
	strSql = strSql & " AND (C.CAT_ID = 0"
	if recGroupCatCount <> "" then
		for iGroupCat = 0 to recGroupCatCount
			strSql = strSql & " or C.CAT_ID = " & allGroupCatData(1, iGroupCat)
		next
		strSql = strSql & ")"
	else
		strSql = strSql & ")"
	end if
end if

strSql = strSql & ") "
strSql = strSql & " ORDER BY C.CAT_ORDER, C.CAT_NAME, F.F_ORDER, F.F_SUBJECT, T.T_LAST_POST DESC "

set rs = Server.CreateObject("ADODB.Recordset")
	rs.cachesize = strPageSize
	rs.open strSql & strSql2 & strSql3 & strSql4, my_Conn, adOpenStatic
		if not rs.EOF then
			rs.movefirst
		        rs.pagesize = strPageSize
			inttotaltopics = cLng(rs.recordcount)
			'rs.absolutepage = mypage '**
		       	maxpages = cLng(rs.pagecount)
		       	arrTopicData = rs.GetRows(strPageSize)
			iTopicCount = UBound(arrTopicData, 2)
		else
			iTopicCount = ""
			inttotaltopics = 0
		end if
	rs.Close
	set rs = nothing

arrTopicData = rs.GetRows(strPageSize)

arrTopicData = rs.GetRows(adGetRowsRest)

intAllowedCategoryArray = Array(50,51,52,53,54,55,56,57,58)

For x = 0 to UBound(intAllowedCategoryArray)
    If strRqForumID = intAllowedCategoryArray(x) Then
        blnForumCheck = 1
        x = UBound(intAllowedCategoryArray)
    End If
Next
If blnForumCheck = 1 then

[ALTER]
FORUM
ADD#F_CUSTOMVIEW#int#NULL#0
[END]
[INSERT]
CONFIG_NEW
(C_VARIABLE,C_VALUE)#('strCUSTOMVIEW','0')
[END]