Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: MOD Implementation
 SUBFORUM MOD		  New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

cgoldsby
Starting Member

7 Posts
Posted - 11 March 2010 :  22:59:10  Show Profile
I have added this mod dble checked the changed code,ran the db scripts and changed all 4 files, and uploaded the 2 new files. However I can't seem to figure out how to add a subforum..What am I missing?

Please help me!

Thanks
Callie

cgoldsby
Starting Member

7 Posts
Posted - 11 March 2010 :  23:04:06  Show Profile
ok, now I feel dumb, didn't try to add a new forum before...I just did and figured it out...oops.

thanks no need to reply
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 21 March 2010 :  15:10:27  Show Profile  Visit leatherlips's Homepage
Is there a newer version of this MOD? I'm having trouble finding some of the things it mentions in the files.
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

AnonJr
Moderator

United States
5768 Posts
Posted - 21 March 2010 :  22:41:55  Show Profile  Visit AnonJr's Homepage
No newer version, and the problems are probably a result of it being written for a much earlier version.
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 23 March 2010 :  19:46:56  Show Profile  Visit leatherlips's Homepage
I have it installed but I have some spacing issues to fix but can't find the solution.

Originally my forum had correct spacing on the default.asp page.

See here:



Now it has some extra space in several spots.

See here:



Below is the code I changed.

Here is my original code:

Response.Write " bgcolor=""" & strForumCellColor & """ valign=""top"">" & _
                           "<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """><span class=""spnMessageText""><a href="""
                     if ForumFType = 0 then
                        Response.Write "forum.asp?FORUM_ID=" & ForumID
                     else
                        Response.Write ForumURL
   if instr(ForumURL,"http://www.mangionemagic.com/")=0 then response.write """ target=""_blank"
                     end if
                     Response.Write """>" & chkString(ForumSubject,"display") & "</a><br />" & _
                           "<font size=""" & strFooterFontSize & """>" & _
                           formatStr(ForumDescription) & _
                           "</font></span></font></td>" & vbNewline
                     if ForumFType = 0 then
                        if IsNull(ForumTopics) then 
                           Response.Write "                <td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top""><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>0</font></td>" & vbNewline
                        else
                           Response.Write "                <td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top""><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & ForumTopics & "</font></td>" & vbNewline
                        end if
                        if IsNull(ForumCount) then 
                           Response.Write "                <td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top""><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>0</font></td>" & vbNewline
                        else
                           Response.Write "                <td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top""><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & ForumCount & "</font></td>" & vbNewline
                        end if
                        if IsNull(ForumMemberID) then
                           strLastUser = " "
                        else
                           strLastUser = "<br />by: <span class=""spnMessageText"">" & profileLink(chkString(ForumMemberName,"display"),ForumMemberID) & "</span>"
                           if strJumpLastPost = "1" then strLastUser = strLastUser & " " & DoLastPostLink(true)
                        end if
                        Response.Write "                <td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"" nowrap><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strFooterFontSize & """>" & _
                              "<b>" & ChkDate(ForumLastPost, "</b><br />" ,true) & strLastUser & "</font></td>" & vbNewline
                     else
                        '## Do Nothing
                     end if


Below is what I changed it to:

Response.Write " bgcolor=""" & strForumCellColor & """ valign=""top"">" & _
"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """><span class=""spnMessageText""><a href="""
if ForumFType = 0 then
Response.Write "forum.asp?forum_id=" & ForumID & """>"
else 
Response.Write ForumURL & """ target=""_blank"">"
end if 
Response.Write chkString(ForumSubject,"display") & "</a><br />" & _
"<font size=""" & strFooterFontSize & """>" & formatStr(ForumDescription) & _
"</font></span></font>" & arrSubInfo(0) & "</td>" & vbNewLine
if ForumFType = 0 then
if IsNull(ForumTopics) then 
Response.Write "<td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"">" & _
"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & 0 + cLng(arrSubInfo(1)) & "</font></td>" & vbNewLine
else
Response.Write "<td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"">" & _
"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & cLng(ForumTopics) + cLng(arrSubInfo(1)) & "</font></td>" & vbNewLine
end if 
if IsNull(ForumCount) then 
Response.Write "<td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"">" & _
"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & 0 + cLng(arrSubInfo(2)) & "</font></td>" & vbNewLine
else
Response.Write "<td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"">" & _
"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & cLng(ForumCount) + cLng(arrSubInfo(2)) & "</font></td>" & vbNewLine
end if 
If ForumLastPost <> "" And (arrSubInfo(3) = "none" Or ForumLastPost > arrSubInfo(3)) Then
strLastUser = "<br />by: <span class=""spnMessageText"">" & profileLink(chkString(ForumMemberName,"display"),ForumMemberID) & "</span>"
if strJumpLastPost = "1" then strLastUser = strLastUser & " " & DoLastPostLink(true)
Response.Write "<td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"" nowrap>" & _
"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strFooterFontSize & """>" & _
"<b>" & ChkDate(ForumLastPost, "</b><br />" ,true) & strLastUser & "</font></td>" & vbNewLine
ElseIf (arrSubInfo(4) <> "") Then
Response.Write "<td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"" nowrap>" & _
"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strFooterFontSize & """>" & arrSubInfo(4) & "</font></td>" & vbNewLine
Else
Response.Write "<td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"" nowrap> </td>" & vbNewLine
End If
else
'## Do Nothing 
end if


Also, in my original code I had a change for how links within my own site opened. I lost that ability with the new code but I can't figure out how to add it to the new code.
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 24 March 2010 :  14:09:23  Show Profile  Visit leatherlips's Homepage
While I'm asking help for the above issues I'll go ahead and mention my last layout issue. It's on the forum.asp page.

Here it is correctly displayed:





Here it is with the problem:



Again, I do not know what in the code I need to change to fix it. Any help would be much appreciated.
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Edited by - leatherlips on 24 March 2010 14:10:06
Go to Top of Page

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 24 March 2010 :  19:35:41  Show Profile
Well, you're missing an "end if". Disregard, formatting issue.

What is the value of this "arrSubInfo(0)", if it ever doesn't have a value or has a space/line feed value, it's probably the culprit.


Response.Write " bgcolor=""" & strForumCellColor & """ valign=""top"">" & _
	"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """><span class=""spnMessageText""><a href="""
if ForumFType = 0 then
	Response.Write "forum.asp?forum_id=" & ForumID & """>"
else 
	Response.Write ForumURL & """ target=""_blank"">"
end if 
Response.Write chkString(ForumSubject,"display") & "</a><br />" & _
	"<font size=""" & strFooterFontSize & """>" & formatStr(ForumDescription) & _
	"</font></span></font>" & arrSubInfo(0) & "</td>" & vbNewLine
if ForumFType = 0 then
	if IsNull(ForumTopics) then 
		Response.Write "<td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"">" & _
			"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & 0 + cLng(arrSubInfo(1)) & "</font></td>" & vbNewLine
	else
		Response.Write "<td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"">" & _
			"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & cLng(ForumTopics) + cLng(arrSubInfo(1)) & "</font></td>" & vbNewLine
	end if 
	if IsNull(ForumCount) then 
		Response.Write "<td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"">" & _
			"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & 0 + cLng(arrSubInfo(2)) & "</font></td>" & vbNewLine
	else
		Response.Write "<td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"">" & _
			"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>" & cLng(ForumCount) + cLng(arrSubInfo(2)) & "</font></td>" & vbNewLine
	end if 
	If ForumLastPost <> "" And (arrSubInfo(3) = "none" Or ForumLastPost > arrSubInfo(3)) Then
		strLastUser = "<br />by: <span class=""spnMessageText"">" & profileLink(chkString(ForumMemberName,"display"),ForumMemberID) & "</span>"
		if strJumpLastPost = "1" then strLastUser = strLastUser & " " & DoLastPostLink(true)
		Response.Write "<td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"" nowrap>" & _
		"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strFooterFontSize & """>" & _
		"<b>" & ChkDate(ForumLastPost, "</b><br />" ,true) & strLastUser & "</font></td>" & vbNewLine
	ElseIf (arrSubInfo(4) <> "") Then
		Response.Write "<td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"" nowrap>" & _
			"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strFooterFontSize & """>" & arrSubInfo(4) & "</font></td>" & vbNewLine
	Else
		Response.Write "<td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"" nowrap> </td>" & vbNewLine
	End If
else
	'## Do Nothing
end if
Edited by - Carefree on 25 March 2010 14:09:34
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 24 March 2010 :  20:29:01  Show Profile  Visit leatherlips's Homepage
Not sure where the end if you are referring to is at. When I compared your code to my code (with WinMerge) I couldn't find it. When I used your code it actually gave me an error of a missing end if.
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 25 March 2010 :  14:23:30  Show Profile  Visit leatherlips's Homepage
quote:
Originally posted by Carefree

What is the value of this "arrSubInfo(0)", if it ever doesn't have a value or has a space/line feed value, it's probably the culprit.
I little above the section I posted, the subforum mod adds this to the default.asp page:

If IsNull(ForumParent) Then
arrSubInfo = SubForumStats(ForumID)


The whole section just above the code I pasted earlier is this:

If IsNull(ForumParent) Then
                           arrSubInfo = SubForumStats(ForumID)
                        if Request.Cookies(HideForumCat) <> "Y" then '##### added as part of Minimize Category Mod #####
                     Response.Write "              <tr>" & vbNewline & _
                           "                <td bgcolor=""" & strForumCellColor & """ align=""center"" valign=""top"">"
                     if ForumFType = 0 then
                        ChkIsNew(ForumLastPost)
                     else
                        Response.Write "<a href=""" & ForumURL & """ target=""_blank"">" & getCurrentIcon(strIconUrl,"Visit " & chkString(ForumSubject,"display"),"hspace=""0""") & "</a>"
                     end if
                     Response.Write "</td>" & vbNewline & _
                           "                <td"
                     if ForumFType = 1 then
                        Response.Write " colspan=""4"""
                     end if

Does that help?
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 27 March 2010 :  11:04:06  Show Profile  Visit leatherlips's Homepage
I think I have narrowed down the section of the code that is the culprit. In my original code I have this:

if ForumFType = 0 then
Response.Write "forum.asp?FORUM_ID=" & ForumID
else
Response.Write ForumURL
if instr(ForumURL,"http://www.mangionemagic.com/")=0 then response.write """ target=""_blank"
end if

The new code is this:

if ForumFType = 0 then
Response.Write "forum.asp?forum_id=" & ForumID & """>"
else
Response.Write ForumURL & """ target=""_blank"">"
end if


The green line seems to effecting the spacing issue while the red line is effecting the links issue. Anyone have any idea how I can fix it?
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

modifichicci
Average Member

Italy
787 Posts
Posted - 27 March 2010 :  12:09:44  Show Profile  Visit modifichicci's Homepage
maybe it's not important but I have
"</font></span>" & arrSubInfo(0) & "</font></td>" & vbNewLine

where you have
"</font></span></font>" & arrSubInfo(0) & "</td>" & vbNewLine
Ernia e Laparocele
Forum di Ernia e Laparocele
Acces - MySql Migration Tutorial
Adamantine forum
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 27 March 2010 :  13:52:48  Show Profile  Visit leatherlips's Homepage
Moving the ending font tag didn't do anything.
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

MaD2ko0l
Senior Member

United Kingdom
1053 Posts
Posted - 27 March 2010 :  19:27:00  Show Profile  Visit MaD2ko0l's Homepage
what u can try to do is, open the page as u would, then "view source" of the webpage and save a copy of the page u see, then try changig/moving/deleting thigns that you think may be causing the problems.

then when you have a solution, you should be able to track down the formatting problems in the .asp pages (if that makes sence)
© 1999-2010 MaD2ko0l
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 27 March 2010 :  22:35:29  Show Profile  Visit leatherlips's Homepage
Well, I fixed the formatting issues on both of my cases above. What I did was merge some of the original code with some of the mod code and it is working. The only thing that is missing is where it says SubForums (and then lists the subforums) on the default.asp page. That isn't a big deal to me though. It doesn't seem to be a problem and everything is working the way it should.
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.43 seconds. Powered By: Snitz Forums 2000 Version 3.4.07