Response.Write "<td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"">" & _
"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & 0 + cInt(arrSubInfo(2)) & "</font></td>" & vbNewLine
else
Response.Write "<td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"">" & _
"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & cInt(ForumCount) + cInt(arrSubInfo(2)) & "</font></td>" & vbNewLine
end if 
If ForumLastPost <> "" And (arrSubInfo(3) = "none" Or ForumLastPost > arrSubInfo(3)) Then

if strRqMethod = "Forum" or _
strRqMethod = "URL" or _
strRqMethod = "EditURL" or _
strRqMethod = "EditForum" then
Response.Write "<tr>" & vbNewLine & _
"<td bgColor=""" & strPopupTableColor & """ nowrap valign=""top"" align=""right"">" & _
"<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & _
"<b>Parent Location:</b></font></td>" & vbNewLine & _
"<td bgColor=""" & strPopupTableColor & """>" & vbNewLine
'Forum Parent!
'Find out if this forum is a sub-forum!
If strRqForumID = "" Then strRqForumID = 0
'---Beginning of change for MySql compatibility
if strDBType = "mysql" then       
strSQL = "SELECT F_PARENT FROM " & strTablePrefix & "FORUM WHERE FORUM_ID = " & strRqForumID
strSQL = strSQL & " LIMIT 1 " 
set rsFindSub = my_Conn.Execute(strSQL)
		if rsFindSub.eof then
			strSubForum = NULL
		else
			strSubForum = rsFindSub("F_PARENT")
		end if
set rsFindSub = Nothing 
elseif strDBType <> "mysql" then       
strSQL = "SELECT TOP 1 F_PARENT FROM " & strTablePrefix & "FORUM WHERE FORUM_ID = " & strRqForumID  
set rsFindSub = my_Conn.Execute(strSQL)
		if rsFindSub.eof then
			strSubForum = NULL
		else
			strSubForum = rsFindSub("F_PARENT")
		end if
set rsFindSub = Nothing 
End If
'---End of change for MySql compatibility     
'Print out the select with the properly selected parent (Category or Forum)
strsParentQL = "SELECT * FROM " & strTablePrefix & "CATEGORY ORDER BY CAT_ORDER, CAT_NAME ASC"
set rsParent = my_Conn.Execute(strsParentQL)
if not rsParent.eof then
Response.Write "<select name=""Parent"" class=""ForumTextBoxDropDown"" size=""1"">" & vbNewLine
do until rsParent.eof
Response.Write "<option "
if isnull(strSubForum) = TRUE then
if strRqCatID = rsParent("CAT_ID") then
Response.Write "selected "
end if
end if
Response.Write "value=""C" & rsParent("CAT_ID") & """>" & rsParent("CAT_NAME") & "</option>" & vbNewLine
strsParentQL2 = "SELECT * FROM " & strTablePrefix & "FORUM " & _
"WHERE CAT_ID = " & rsParent("CAT_ID") & " " & _
"AND F_PARENT IS NULL " & _
"AND FORUM_ID <> " & strRqForumID & " " & _
"ORDER BY F_ORDER, F_SUBJECT"
set rsParent2 = my_Conn.Execute(strsParentQL2)
if not rsParent2.eof then
do until rsParent2.eof
Response.Write "<option "
if strSubForum = rsParent2("FORUM_ID") then
Response.Write "selected "
end if
Response.Write "value=""F" & rsParent2("FORUM_ID") & """>- - - " & rsParent2("F_SUBJECT") & "</option>" & vbNewLine
rsParent2.movenext
loop
end if
rsParent.movenext
loop
Response.Write "</select>" & vbNewLine
end if
set rsParent = Nothing
set rsParent2 = Nothing
Response.Write "<a href=""Javascript:openWindow3('pop_help.asp?mode=options#category')"" tabindex=""-1"">" & getCurrentIcon(strIconSmileQuestion,"Click here to get more help on this option","") & "</a></td>" & vbNewLine & _
"</tr>" & vbNewLine
end if

strSQL = "SELECT FORUM_ID, F_SUBJECT FROM FORUM_FORUM WHERE FORUM_ID = " & Forum_Parent

strSQL = "SELECT FORUM_ID, F_SUBJECT FROM " & strTablePrefix & "FORUM WHERE FORUM_ID = " & Forum_Parent

Microsoft JET Database Engine error '80040e14' 
Syntax error (missing operator) in query expression 'FORUM_ID==23'. 

/forums/active_users.asp, line 570

        strSql = "SELECT F_SUBJECT FROM " & strTablePrefix & "FORUM WHERE FORUM_ID=" & fForum_ID
        set rst = my_conn.execute(strSql)
        if rst.EOF or rst.BOF then
          strPage = fscript & "?" & fquery' fLang(strLangMOD_Ls3kAU_01270)
        else

" & WhatPage(strLastPage,strQS) & "

Response.Write(ChkIsNew(Topic_LastPost))

Response.Write(ChkIsNew(ForumLastPost))

if dt > Session(strCookieURL & "last_here_date") and (ForumCount > 0 or ForumTopics > 0) then

if dt > Session(strCookieURL & "last_here_date") and ((ForumCount + arrSubInfo(2)) > 0 or (ForumTopics + arrSubInfo(1)) > 0) then

if ForumFType = 0 then
    ChkIsNew(ForumLastPost)
else

if ForumFType = 0 then
    If ForumLastPost <> "" And (arrSubInfo(3) = "none" Or ForumLastPost > arrSubInfo(3)) Then
        ChkIsNew(ForumLastPost)
    ElseIf arrSubInfo(3) <> "none" Then
        ChkIsNew(arrSubInfo(3))
    Else
        ChkIsNew(ForumLastPost)
    End If
else

Function OneVisibleForum(FORUM_ID)
	' Is there at least one visible forum under this parent?
	OneVisibleForum = false 
	strSQL = "SELECT F.FORUM_ID, F.F_PRIVATEFORUMS, F.F_PASSWORD_NEW " & _
				 "FROM " & strTablePrefix & "FORUM F " & _
			 	 "WHERE F.F_PARENT = " & FORUM_ID & " AND F.F_TYPE = 0;" 
	set rs = my_Conn.Execute(strSQL)
	if not rs.eof then
		do until rs.eof
			intPrivateForum = rs("F_PRIVATEFORUMS")
			strPasswordNew = rs("F_PASSWORD_NEW")
			intForumID = rs("FORUM_ID")
			intMemberID = getMemberID(strDBNTUserName)
			if intMemberID = 0 then intMemberID = -1
			if chkDisplayForum(intPrivateForum, strPasswordNew, intForumID, intMemberID) then
				OneVisibleForum = true
				exit do
			end if
			rs.movenext
		loop
	end if
	set rs = nothing
end Function

sub ListSubForums(FORUM_ID)

	If Not OneVisibleForum(FORUM_ID) then Exit Sub