I searched and couldn't find this bug so I thought I would post it for everyone.
When you have a Category with no forums... there is a missing column at the end of the row.
Here is the fix around line 236:
if rsForum.eof or rsForum.bof then
Response.Write " <tr>" & vbNewline & _
" <td bgcolor=""" & strCategoryCellColor & """ colspan=""" & sGetColspan(6,5) & """>"
if Cat_ID = "" then
Response.Write "<a href=""default.asp?CAT_ID=" & rs("CAT_ID") & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & ChkString(rs("CAT_NAME"),"display") & "</b></font></a></td>" & vbNewline
else
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & ChkString(rs("CAT_NAME"),"display") & "</b></font></td>" & vbNewline
end if
if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then
Response.Write " <td bgcolor=""" & strCategoryCellColor & """ align=center valign=""top"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewline
call CategoryAdminOptions()
Response.Write " </font></b></td>" & vbNewline
end if
The blue should be replaced with:
if rsForum.eof or rsForum.bof then
Response.Write " <tr>" & vbNewline & _
" <td bgcolor=""" & strCategoryCellColor & """ colspan=""" & sGetColspan(6,5) & """>"
if Cat_ID = "" then
Response.Write "<a href=""default.asp?CAT_ID=" & rs("CAT_ID") & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & ChkString(rs("CAT_NAME"),"display") & "</b></font></a></td>" & vbNewline
else
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & ChkString(rs("CAT_NAME"),"display") & "</b></font></td>" & vbNewline
end if
Response.Write " <td bgcolor=""" & strCategoryCellColor & """ align=center valign=top nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewline
if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then
call CategoryAdminOptions()
elseif (mLev > 0) then
call CategoryMemberOptions()
end if
Response.Write " </font></b></td>" & vbNewline
Topic Locked
Posted - 20 March 2002 : 22:45:13
