If you have a background image, it might be a little tricky. With just a background color, it's fairly easy.
With a background color use this code:
around line 573 on default.asp look for the following code:
end if ' ChkDisplayForum()
end if
next '## Next Forum
end if
next '## Next Category
end if
if strShowStatistics = "1" then
WriteStatistics
end if
Response.Write " </table>" & vbNewline & _
and change it to this:
end if ' ChkDisplayForum()
end if
next '## Next Forum
end if
next '## Next Category
end if
if (strShowModerators = "1") or (mlev = 4 or mlev = 3) then
response.write "<tr><td colspan=""7"" """ & strTmpPageBGImageURL & """> </td></tr>"
else
response.write "<tr><td colspan=""6"" """ & strTmpPageBGImageURL & """> </td></tr>"
end if
if strShowStatistics = "1" then
WriteStatistics
end if
Response.Write " </table>" & vbNewline & _
That will add a space between your categories and the statistics
Now, to add the space between each category:
Look around line #396 for this code:
bContainsForum = False
if recForumCount <> "" then
for iForumCheck = 0 to recForumCount
if CatID = allForumData(fCAT_ID, iForumCheck) then bContainsForum = True
next
end if
if (recForumCount = "" or not bContainsForum) and (mLev = 4) then
Response.Write " <tr>" & vbNewline & _
" <td bgcolor=""" & strCategoryCellColor & """ colspan=""" & sGetColspan(6,5) & """>"
if Cat_ID = "" then
and replace it with this:
bContainsForum = False
if recForumCount <> "" then
for iForumCheck = 0 to recForumCount
if CatID = allForumData(fCAT_ID, iForumCheck) then bContainsForum = True
next
end if
' add space between categorys
if iCategory <> 0 then
if (strShowModerators = "1") or (mlev = 4 or mlev = 3) then
response.write "<tr><td colspan=""7"" bgColor=""" & strPageBGColor & """> </td></tr>"
else
response.write "<tr><td colspan=""6"" bgColor=""" & strPageBGColor & """> </td></tr>"
end if
end if
if (recForumCount = "" or not bContainsForum) and (mLev = 4) then
Response.Write " <tr>" & vbNewline & _
" <td bgcolor=""" & strCategoryCellColor & """ colspan=""" & sGetColspan(6,5) & """>"
if Cat_ID = "" then
the if iCategory <> 0 then
just makes it where there is no space between the column titles and the first category.
you could make the space seperate tables, which would make the individual categories seperate tables, but then you lose all your spaces for each table and it look all out of wack.
Hope this helps
Topic Locked
Posted - 11 October 2002 : 11:57:16
