Snitz Forums 2000 - Adding a small Space between Categories?

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Snitz Forums 2000 MOD-Group

MOD Add-On Forum (W/O Code)

Adding a small Space between Categories?

New Topic

Topic Locked

Printer Friendly

Author

Topic

Page: of 2

xx ENIGMA xx
Junior Member

166 Posts

Posted - 11 November 2003 : 15:57:25

I appreciate your time, I would think this would
be a pretty popular request once they see how the
style looks compared to the standard.

my little forum playground

D3mon
Senior Member

United Kingdom
1685 Posts

Posted - 11 November 2003 : 15:59:10

as a quick fix, you could set the table borders to the same as the background color to get rid of those pesky 'joining' lines...

Snitz 'Speedball' : Site Integration Mod : Friendly Registration Mod
"In war, the victorious strategist only seeks battle after the victory has been won"

MarcelG
Retired Support Moderator

Netherlands
2625 Posts

Posted - 11 November 2003 : 16:45:11

Cailean : regarding your editor question : try CompareIT by http://www.grigsoft.com/

portfolio - linkshrinker - oxle - twitter

snaayk
Senior Member

USA
1061 Posts

Posted - 11 November 2003 : 17:19:50

quote:
Originally posted by Cailean

Here's what I've recontructed so far:

From what I can remember, lines 482-510 used to come somewhere before line 394.

Lines 577-581 used to come after the loop closed (line 382)

I am sure there is more to it than that... in fact I seem to remember having to make changes to the Statistics subroutine (opening/closing tables/rows, etc.)

I'll ask one more time because it would be SO handy... does anyone know of a text editor with line numbers that will compare two documents? I tried doing with PDFs but got frustrated...

Beyond Compare is my favorite, not free, but great!

http://scootersoftware.com

Cailean
New Member

Canada
75 Posts

Posted - 11 November 2003 : 20:14:54

Okay here are the changes I made to default.asp to separate the categories...

A few caveats:

The column widths get messed up so you'll have to adjust manually (my adjustments are included so that it they line up, more or less)

I do not guarantee that the tables are all opened and closed properly

Initially, the changes look like a lot of code removal but you put all of it back...

Thanks to marcelgoertz for for the CompareIt software suggestion - Brilliant!

This post is REALLY long... I apologize! I couldn't think of a better way...

CHANGES TO DEFAULT.ASP (from base Snitz code)

CHANGE #1

Find the following code and delete the code in red:

if Cat_ID <> "" then
	Cat_Name = allCategoryData(2,0)
	Response.Write	"      <script language=""javascript"" type=""text/javascript"">" & vbNewLine & _
			"      document.title='" & chkString(Cat_Name,"pagetitle") & " - " & chkString(strForumTitle,"pagetitle") & "';" & vbNewLine & _
			"      </script>" & vbNewLine
end if
Response.Write	"      <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewline & _
		"        <tr>" & vbNewline & _
		"          <td>"
' If Whole Board Subscription is allowed, check for a subscription by this user.
if strSubscription = 1 and strEmail = 1 and strDBNTUserName <> "" then
	Response.Write	vbNewLine
	Response.Write 	"            <table width=""100%"" border=""0"">" & vbNewline
	Response.Write 	"              <tr>" & vbNewLine
	Response.Write	"                <td align=""right"">"
	If strBoardSubs = "Y" then
		Response.Write ShowSubLink ("U", 0, 0, 0, "Y")
	Else
		Response.Write ShowSubLink ("S", 0, 0, 0, "Y")
	End If
   	Response.Write 	"</td>" & vbNewLine
   	Response.Write	"              </tr>" & vbNewline
   	Response.Write  "            </table>" & vbNewline
   	Response.Write 	"          </td>" & vbNewline
	Response.Write 	"        </tr>" & vbNewline
   	Response.Write 	"        <tr>" & vbNewline
   	Response.Write 	"          <td>"
end if

ShowLastHere = (mLev > 0)
if strShowStatistics <> "1" then
	Response.Write	vbNewLine & _
			"            <table width=""100%"" border=""0"">" & vbNewline & _
			"              <tr>" & vbNewline & _
			"                <td>"
	if ShowLasthere then 
		Response.Write	"<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>You Last Visited - " & ChkDate(Session(strCookieURL & "last_here_date"), " " ,true) & "</font>"
	else
		Response.Write	" "
	end if 
	Response.Write	"</td>" & vbNewline & _
			"                <td align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>There are " & Posts & " Posts in " & Topics & " Topics and " & Users & " Users  </font></td>" & vbNewline & _
			"              </tr>" & vbNewline & _
			"            </table>" & vbNewline & _
			"          </td>" & vbNewline
else
	Response.Write	"</td>" & vbNewline
end if
Response.Write	"        </tr>" & vbNewline & _
		"        <tr>" & vbNewline & _
		"          <td bgcolor=""" & strTableBorderColor & """>" & vbNewline & _
		"            <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewline & _
		"              <tr>" & vbNewline & _
		"                <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>"
if Cat_ID <> "" then
	Response.Write	"<a href=""default.asp"">" & getCurrentIcon(strIconFolder,"Show All Categories","hspace=""0""") & "</a>"
else
	Response.Write 	" "
end if
Response.Write	"</font></b></td>" & vbNewline & _
		"                <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>"
if strGroupCategories = "1" then Response.Write(GROUPNAME) else Response.Write("Forum")
Response.Write	"</font></b></td>" & vbNewline & _
		"                <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Topics</font></b></td>" & vbNewline & _
		"                <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Posts</font></b></td>" & vbNewline & _
		"                <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Last Post</font></b></td>" & vbNewline
if (strShowModerators = "1") or (mlev = 4 or mlev = 3) then
	Response.Write	"                <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Moderator(s)</font></b></td>" & vbNewline
end if 
	Response.Write	"                <td align=""center"" bgcolor=""" & strHeadCellColor & """>"
if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then 
	call PostingOptions()
else
	Response.write " "
end if 
Response.Write	"</td>" & vbNewline
Response.Write	"              </tr>" & vbNewline
If recCategoryCount = "" then
	Response.Write	"              <tr>" & vbNewline & _
			"                <td bgcolor=""" & strCategoryCellColor & """ colspan="""
	if (strShowModerators = "1") or (mlev > 0 ) then 
		Response.Write	"6" 
	else 
		Response.Write	"5"
	end if
	Response.Write	"""><font face=""" & strDefaultFontFace & """ color=""" & strCategoryFontColor & """ size=""" & strDefaultFontSize & """><b>No Categories/Forums Found</b></font></td>" & vbNewline & _
       			"                <td bgcolor=""" & strCategoryCellColor & """><font face=""" & strDefaultFontFace & """ color=""" & strCategoryFontColor & """ size=""" & strDefaultFontSize & """> </font></td>" & vbNewline & _
			"              </tr>" & vbNewline
else

CHANGE #2

Find the following code and insert the code in green: (around line 315)

			bContainsForum = False
		if recForumCount <> "" then
			for iForumCheck = 0 to recForumCount
				if CatID = allForumData(fCAT_ID, iForumCheck) then bContainsForum = True
			next
		end if
		Response.Write	"      <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewline & _
				"        <tr>" & vbNewline & _
				"          <td>"
		' If Whole Board Subscription is allowed, check for a subscription by this user.
		if strSubscription = 1 and strEmail = 1 and strDBNTUserName <> "" then
			Response.Write	vbNewLine
			Response.Write 	"            <table width=""100%"" border=""0"">" & vbNewline
			Response.Write 	"              <tr>" & vbNewLine
			Response.Write	"                <td align=""right"">"
			If strBoardSubs = "Y" then
				Response.Write ShowSubLink ("U", 0, 0, 0, "Y")
			Else
				Response.Write ShowSubLink ("S", 0, 0, 0, "Y")
			End If
		   	Response.Write 	"</td>" & vbNewLine
		   	Response.Write	"              </tr>" & vbNewline
		   	Response.Write  "            </table>" & vbNewline
		   	Response.Write 	"          </td>" & vbNewline
			Response.Write 	"        </tr>" & vbNewline
		   	Response.Write 	"        <tr>" & vbNewline
		   	Response.Write 	"          <td>"
		end if

		ShowLastHere = (mLev > 0)
		if strShowStatistics <> "1" then
			Response.Write	vbNewLine & _
					"            <table width=""100%"" border=""0"">" & vbNewline & _
					"              <tr>" & vbNewline & _
					"                <td>"
			if ShowLasthere then
				Response.Write	"<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>You Last Visited - " & ChkDate(Session(strCookieURL & "last_here_date"), " " ,true) & "</font>"
			else
				Response.Write	" "
			end if
			Response.Write	"</td>" & vbNewline & _
					"                <td align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>There are " & Posts & " Posts in " & Topics & " Topics and " & Users & " Users  </font></td>" & vbNewline & _
					"              </tr>" & vbNewline & _
					"            </table>" & vbNewline & _
					"          </td>" & vbNewline
		else
			Response.Write	"</td>" & vbNewline
		end if
		Response.Write	"        </tr>" & vbNewline & _
				"        <tr>" & vbNewline & _
				"          <td bgcolor=""" & strTableBorderColor & """>" & vbNewline & _
				"            <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""4"">" & vbNewline

		if (recForumCount = "" or not bContainsForum) and (mLev = 4) then
			Response.Write	"              <tr>" & vbNewline & _
					"                <td bgcolor=""" & strCategoryCellColor & """ colspan=""" & sGetColspan(6,5) & """>"
			if Cat_ID = "" then
				Response.Write "<a href=""default.asp?CAT_ID=" & CatID & """ title=""View only the Forums in this Category""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & ChkString(CatName,"display") & "</b></font></a></td>" & vbNewline
			else
				Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & ChkString(CatName,"display") & "</b></font></td>" & vbNewline
			end if

CHANGE #3

Find the following code and insert the code in green:

				if (mLev = 4 or mLev = 3) or (lcase(strNoCookies) = "1") then
					call CategoryAdminOptions()
				elseif (mLev > 0) then
					call CategoryMemberOptions()
				else
					Response.Write(" ")
				end if
				Response.Write	"</font></b></td>" & vbNewline
				Response.Write	"              </tr>" & vbNewline
	'########### Beginning of HEADER bar
				response.write	"	<table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""0"">" & vbNewline & _
						"              <tr>" & vbNewline & _
						"                <td width=""4%"" align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>"
				if Cat_ID <> "" then
					Response.Write	"<a href=""default.asp"">" & getCurrentIcon(strIconFolder,"Show All Categories","hspace=""0""") & "</a>"
				else
					Response.Write 	" "
				end if
				Response.Write	"</font></b></td>" & vbNewline & _
						"                <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strHeadFontColor & """>"
				if strGroupCategories = "1" then Response.Write(GROUPNAME) else Response.Write("Forum")
					Response.Write	"</font></b></td>" & vbNewline & _
							"                <td width=""6%"" align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strHeadFontColor & """>Topics</font></b></td>" & vbNewline & _
							"                <td width=""6%"" align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strHeadFontColor & """>Posts</font></b></td>" & vbNewline & _
							"                <td width=""25%"" align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strHeadFontColor & """>Last Post</font></b></td>" & vbNewline
					if (strShowModerators = "1") then
						Response.Write	"     <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strHeadFontColor & """>Moderator(s)</font></b></td>" & vbNewline
					end if
					Response.Write	"                <td width=""4%"" align=""center"" bgcolor=""" & strHeadCellColor & """>"
					if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then
						call PostingOptions()
					else
						Response.write " "
					end if
					Response.Write	"</td>" & vbNewline
					Response.Write	"              </tr>" & vbNewline &_
							"<table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbnewline
	'######## END OF HEADER
				chkDisplayHeader = false
			end if
	     		if Request.Cookies(HideForumCat) <> "Y" then  '##### added as part of Minimize Category Mod #####

CHANGE #4

Find the following code and delete the code in red:

			next '## Next Forum
		end if
	next '## Next Category
end if 
if strShowStatistics = "1" then
	WriteStatistics
end if 
Response.Write	"            </table>" & vbNewline & _
		"          </td>" & vbNewline & _
		"        </tr>" & vbNewline & _
		"        <tr>" & vbNewline & _
		"          <td>" & vbNewline & _
		"            <table width=""100%"">" & vbNewline & _
		"              <tr>" & vbNewline & _

CHANGE #5

Find the following code and insert the code in green:

			next '## Next Forum
		end if
		Response.Write	"</table>" & vbNewline & _
				"</td>" & vbNewline & _
				"</tr>" & vbNewline & _
				"</table>" & vbNewline & _
				"<br />" & vbnewline
	next '## Next Category
end if

Response.Write	"<tr>" & vbNewline & _ 
		"<td>" & vbNewline & _
		"<table width=""100%"">" & vbNewline & _
		"<tr>" & vbNewline & _

CHANGE #6

Find the following code (in the WritStatistics sub) and delete the code in red:

		rs.Close
		set rs = nothing
	end if


	'ShowLastHere = (cLng(chkUser(strDBNTUserName, Request.Cookies(strUniqueID & "User")("Pword"),-1)) > 0)
	Response.Write	"              <tr>" & vbNewline & _
			"                <td bgcolor=""" & strCategoryCellColor & """ colspan=""" & sGetColspan(7,6) &_
			"""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>Statistics</b></font></td>" & vbNewline & _

			"              </tr>" & vbNewline & _
			"              <tr>" & vbNewline & _
			"                <td rowspan=""" 
	if ShowLastHere then
		Response.Write	"5"
	else
		Response.Write	"4"
	end if
	Response.Write	""" bgcolor=""" & strForumCellColor & """> </td>" & vbNewline

	if ShowLastHere then 
		Response.Write	"                <td bgcolor=""" & strForumCellColor & """ colspan=""" & sGetColspan(6,5) &_
				""">" & _
		       		"<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>You last visited on " & ChkDate(Session(strCookieURL & "last_here_date"), " " ,true) & "</font></td>" & vbNewline & _

		       		"              </tr>" & vbNewline & _
		  		"              <tr>" & vbNewLine
	end if

CHANGE #7

Find the following code (same place as Change #4) and insert the code in green:

		rs.Close
		set rs = nothing
	end if

	Response.Write	"<table width=""100%"" border=""0"" align=""center"" valign=""top"" bgcolor=""" & strTableBorderColor & """ cellspacing=""1"" cellpadding=""2"">" & vbNewline
	'ShowLastHere = (cLng(chkUser(strDBNTUserName, Request.Cookies(strUniqueID & "User")("Pword"),-1)) > 0)
	Response.Write	" <tr>" & vbNewline & _
			"  <td bgcolor=""" & strCategoryCellColor & """ align=""center"" colspan=""" & sGetColspan(7,6) &_
			"     ""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>Statistics</b></font>" & vbNewLine & _
			"  </td>" & vbNewline & _
			" </tr>" & vbNewline & _
			" <tr>" & vbNewline & _
			"  <td rowspan="""
	if ShowLastHere then
		Response.Write	"5"
	else
		Response.Write	"4"
	end if
	Response.Write	"   "" bgcolor=""" & strForumCellColor & """> " & vbNewline & _
			"  </td>" & vbNewline
	if ShowLastHere then
		Response.Write	"  <td bgcolor=""" & strForumCellColor & """ colspan=""" & sGetColspan(6,5) &_
				"   "">" & _
	       			"   <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>You last visited on " & ChkDate(Session(strCookieURL & "last_here_date"), " " ,true) & "</font>" & vbNewline & _
	       			"  </td>" & vbNewline & _
		       		" </tr>" & vbNewline & _
		  		" <tr>" & vbNewLine
	end if

CHANGE #8 (finally!)

Find the following code and insert the code in green:

				"<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>Please welcome our newest member: " & _
				"<span class=""spnMessageText"">" & profileLink(NewMember_Name,NewMember_Id) & "</span>.</font></td>" & vbNewline & _
				"</tr>" & vbNewline
	end if
response.write	"	</table>" & vbNewline & _
		"	<br>" & vbNewline
End Sub

Sub DoHideCategory(intCatId)
	   	HideForumCat = strUniqueID & "HideCat" & intCatId

I hope that's everything!!!

123456
New Member

75 Posts

Posted - 13 November 2003 : 00:00:19

Hey I wanted to say thanks for all the effort you've put into this......

Work got a little crazy for me so I had to put the internet stuff on the backburner for a bit....But i've started slowly working on a test version and so far so good.

Thanks again!

Cailean
New Member

Canada
75 Posts

Posted - 13 November 2003 : 00:14:04

Your welcome...

If you get errors, etc. Check against the default.txt I linked to in case I made a typo in the instructions...

MarcelG
Retired Support Moderator

Netherlands
2625 Posts

Posted - 14 November 2003 : 14:53:31

cailean, thanks for the instruction, however I still get 'stuck'...I give up.

portfolio - linkshrinker - oxle - twitter

Cailean
New Member

Canada
75 Posts

Posted - 14 November 2003 : 15:43:44

quote:
Originally posted by marcelgoertz

however I still get 'stuck'...I give up.

What is it you are 'stuck' on?

MarcelG
Retired Support Moderator

Netherlands
2625 Posts

Posted - 14 November 2003 : 15:44:52

it messes up the entire layout...the tables for number of posts and stuff all move over...but, please don't worry, I'll work it out one time, but not now...

portfolio - linkshrinker - oxle - twitter

Cailean
New Member

Canada
75 Posts

Posted - 14 November 2003 : 15:56:46

Yeah, I had that problem and had to tweak the cell widths manually to make everything line up... I'm not very "table-savvy" so I'm sure there's a cleaner way to run the tables... I would like for the header row to use the auto-widths created by the forum rows, but I have no idea how this works...

MaD2ko0l
Senior Member

United Kingdom
1053 Posts

Posted - 06 January 2004 : 11:17:52

quote:

Originally posted by Cailean
CHANGE #3

Find the following code and insert the code in green:

				if (mLev = 4 or mLev = 3) or (lcase(strNoCookies) = "1") then
					call CategoryAdminOptions()
				elseif (mLev > 0) then
					call CategoryMemberOptions()
				else
					Response.Write(" ")
				end if
				Response.Write	"</font></b></td>" & vbNewline
				Response.Write	"              </tr>" & vbNewline
	'########### Beginning of HEADER bar
				response.write	"	<table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""0"">" & vbNewline & _
						"              <tr>" & vbNewline & _
						"                <td width=""4%"" align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>"
				if Cat_ID <> "" then
					Response.Write	"<a href=""default.asp"">" & getCurrentIcon(strIconFolder,"Show All Categories","hspace=""0""") & "</a>"
				else
					Response.Write 	" "
				end if
				Response.Write	"</font></b></td>" & vbNewline & _
						"                <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strHeadFontColor & """>"
				if strGroupCategories = "1" then Response.Write(GROUPNAME) else Response.Write("Forum")
					Response.Write	"</font></b></td>" & vbNewline & _
							"                <td width=""6%"" align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strHeadFontColor & """>Topics</font></b></td>" & vbNewline & _
							"                <td width=""6%"" align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strHeadFontColor & """>Posts</font></b></td>" & vbNewline & _
							"                <td width=""25%"" align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strHeadFontColor & """>Last Post</font></b></td>" & vbNewline
					if (strShowModerators = "1") then
						Response.Write	"     <td align=""center"" bgcolor=""" & strHeadCellColor & """ nowrap valign=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strHeadFontColor & """>Moderator(s)</font></b></td>" & vbNewline
					end if
					Response.Write	"                <td width=""4%"" align=""center"" bgcolor=""" & strHeadCellColor & """>"
					if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then
						call PostingOptions()
					else
						Response.write " "
					end if
					Response.Write	"</td>" & vbNewline
					Response.Write	"              </tr>" & vbNewline &_
							"<table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbnewline
	'######## END OF HEADER
				chkDisplayHeader = false
			end if
	     		if Request.Cookies(HideForumCat) <> "Y" then  '##### added as part of Minimize Category Mod #####

i used this code and there was a part that was messed up so to fix this is commented out 1 line of the green code.

look for this in the lines from changes 3

					Response.Write	"</td>" & vbNewline
					Response.Write	"              </tr>" & vbNewline &_
							"<table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbnewline
	'######## END OF HEADER

now change these line so it looks liek this

					Response.Write	"</td>" & vbNewline
					Response.Write	"              </tr>" & vbNewline '&_
							'"<table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbnewline
	'######## END OF HEADER

this fixed a few of the layout errors that i found

hope this helps

halil
Starting Member

Turkey
10 Posts

Posted - 21 January 2004 : 06:17:11

Is this offer still valid ?

quote:
Originally posted by MeTV

Been fiddling with this as well (and remembering why I gave up! ) so, if you can't follow Cailean's code, let me know and I'll give you a step by step walkthrough.

Page: of 2

Topic

New Topic

Topic Locked

Printer Friendly

Jump To:

Snitz Forums 2000

This page was generated in 0.33 seconds.