<% Dim arrCategory, cat_id, arrPosts, objPosts, intPosts, intThreads LanguageParser.IncludeSection "default" LanguageParser.IncludeKey "errors", "NoAccess" LanguageParser.IncludeKey "topic", "Today" LanguageParser.IncludeKey "topic", "Yesterday" If Request.QueryString("showcat") <> "" then Response.Cookies("aspbb_hidecat")(Cstr(Request.QueryString("showcat"))) = "" Response.Redirect("default.asp") End if If Request.QueryString("hidecat") <> "" then Response.Cookies("aspbb_hidecat")(Cstr(Request.QueryString("hidecat"))) = "y" Response.Cookies("aspbb_hidecat").Expires = Dateadd("yyyy",1,Date()) Response.Redirect("default.asp") End if if Request.QueryString("FORUM_ID") = "" then strSQL = "SELECT aspbb_category.cid, aspbb_category.cname, aspbb_subcategory.sid, aspbb_subcategory.sname, aspbb_subcategory.stype, aspbb_subcategory.sdesc, aspbb_subcategory.saddress, aspbb_subcategory.sposts, aspbb_subcategory.stopics " & _ "FROM aspbb_category LEFT JOIN aspbb_subcategory ON " & _ " aspbb_category.cid = aspbb_subcategory.suid" Else strSQL = "SELECT aspbb_category.cid, aspbb_category.cname, aspbb_subcategory.sid, aspbb_subcategory.sname, aspbb_subcategory.stype, aspbb_subcategory.sdesc, aspbb_subcategory.saddress, aspbb_subcategory.sposts, aspbb_subcategory.stopics " & _ "FROM aspbb_category LEFT JOIN aspbb_subcategory ON " & _ "aspbb_category.cid = aspbb_subcategory.suid " & _ "where cid = {0}" End if strSQL = strSQL & " Order By aspbb_category.corder ASC, aspbb_subcategory.sorder ASC, aspbb_subcategory.sid ASC" objDAL.Open arrCategory, strSQL, Array(Clng(Request.QueryString("FORUM_ID"))) if not Request.QueryString("FORUM_ID") = "" then response.write" "& langStart &" > " If not EOF(arrCategory) and AccessCat(userid, Clng(Request.QueryString("FORUM_ID"))) then response.write "" & arrCategory(1, 0) & "" else response.write LangNoAccess end if end if%> <% if not EOF(arrCategory) then dim i for i = 0 to Ubound(arrCategory, 2) '///Write out categorynames if cat_id <> clng(arrCategory(0, i)) then if AccessCat(userid, arrCategory(0, i)) then if blnCatGap and i <> 0 then Response.Write "
  <% =langForum %>
<% =langThreads %>
<% =langPosts %>
<% =langLatest %>

" end if Response.write"" If Request.Cookies("aspbb_hidecat")(Cstr(arrCategory(0, i))) = "y" then 'if arrCategory(9,i) = 0 or userid <> 0 then Response.Write"" 'end if Else 'if arrCategory(9,i) = 0 or userid <> 0 then Response.Write"" 'end if End if cat_id = Clng(arrCategory(0, i)) End if end if if Not arrCategory(2, i) = "" then if AccessSub(userid, arrCategory(2, i)) and Request.Cookies("aspbb_hidecat")(Cstr(arrCategory(0, i))) <> "y" or readsub(userid, arrCategory(2, i)) and Request.Cookies("aspbb_hidecat")(Cstr(arrCategory(0, i))) <> "y" or LimitedAccess(userid, arrCategory(2, i)) and Request.Cookies("aspbb_hidecat")(Cstr(arrCategory(0, i))) <> "y" then 'if arrCategory(9,i) = 0 or userid <> 0 then 'only members?? If i mod 2 Then if blnThirdColor then Response.Write "" else Response.Write "" end if Else if blnThirdColor then Response.write "" else Response.write "" end if End if %> <%If arrCategory(4, i) = 1 then%> <%Else%> <%End if%> <% 'end if End if End if Next End If %>
+ "& arrCategory(1, i) &"
- "& arrCategory(1, i) &"
<%=arrCategory(3, i)%>
<%=arrCategory(5, i)%>
<%=arrCategory(8, i)%> <%=arrCategory(7, i)%>
<% =GetLatest(arrCategory(2, i), "both")%>
<%=arrCategory(3, i)%>
<%=arrCategory(5, i)%>

<% if blnShowLatest = true and Request.QueryString("FORUM_ID") = "" then%> <% End if %> <% if blnShowActive = true or blnShowStats Then %>  <% =langInformation %>: <% End if%> <% if blnShowActive = true Then %> <% End if %> <% if blnShowStats = true Then %> <% End if %>