| Author |
 Topic  |
|
GauravBhabu
Advanced Member
4288 Posts |
 Posted - 22 June 2001 : 17:52:56
|
Let me include more descriptive installation instructions and I will update you all on it
Thanks
GauravBhabu
|
 |
|
|
GauravBhabu
Advanced Member
4288 Posts |
Posted - 22 June 2001 : 18:06:08
|
quote:
quote:
i got it working. but step five remains confusing. it collapses, but leaves a big black table cel hanging out in the world. did i put this in the right place:
---Step 5:
Add the following line after the above code but before the tag <tr>
----------------------------------------------------------------------------------------------------------------
<% if Request.Cookies(HideForumCat) <> "Y" then %>
---
<%
if chkDisplayHeader then %>
<tr>
<!--#INCLUDE FILE="inc_catsumm.asp" -->
</tr>
<%chkDisplayHeader = false
end if
if Request.Cookies(HideForumCat) <> "Y" then
'## collapse cats
Response.Write " <tr>" & vbcrlf & _
" <td bgcolor=""" & strForumCellColor & """ align=center valign=top>" & vbcrlf
You might want to check where you placed the "end if" explained in step 6.
GauravBhabu
The big Black Box. Yes it is there , I will fix it and inform you.
GauravBhabu
|
|
|
|
GauravBhabu
Advanced Member
4288 Posts |
Posted - 22 June 2001 : 18:56:19
|
quote:
i got it working. but step five remains confusing. it collapses, but leaves a big black table cel hanging out in the world. did i put this in the right place:
---Step 5:
Add the following line after the above code but before the tag <tr>
----------------------------------------------------------------------------------------------------------------
<% if Request.Cookies(HideForumCat) <> "Y" then %>
---
<%
if chkDisplayHeader then %>
<tr>
<!--#INCLUDE FILE="inc_catsumm.asp" -->
</tr>
<%chkDisplayHeader = false
end if
if Request.Cookies(HideForumCat) <> "Y" then
'## collapse cats
Response.Write " <tr>" & vbcrlf & _
" <td bgcolor=""" & strForumCellColor & """ align=center valign=top>" & vbcrlf
I have made a change in the inc_catsumm.asp file that should fix your problem of Black Box.
Search for the following line in inc_catsumm.asp
<%if rsForum("F_TYPE") = 0 or rsForum("F_TYPE") = 1 then
'<!--Column 2 -->
You need to make changes to the code after this line: After changes your code should look like as below:
-----------------------------------------------------------------------------------
<% if rsForum("F_TYPE") = 0 or rsForum("F_TYPE") = 1 then
'<!--Column 2 -->
if TotalTopics = 0 then %>
<td bgcolor="<% =strForumCellColor %>" align="center" valign="top"><font face="<% =strDefaultFontFace %>" color="<% =strForumFontColor %>" size="<% =strDefaultFontSize %>">0</font></td>
<% else %>
<td bgcolor="<% =strForumCellColor %>" align="center" valign="top"><font face="<% =strDefaultFontFace %>" color="<% =strForumFontColor %>" size="<% =strDefaultFontSize %>"><% =TotalTopics %></font></td>
<% end if
'<!--Column 3 -->
if TotalPosts = 0 then %>
<td bgcolor="<% =strForumCellColor %>" align="center" valign="top"><font face="<% =strDefaultFontFace %>" color="<% =strForumFontColor %>" size="<% =strDefaultFontSize %>">0</font></td>
<% else %>
<td bgcolor="<% =strForumCellColor %>" align="center" valign="top"><font face="<% =strDefaultFontFace %>" color="<% =strForumFontColor %>" size="<% =strDefaultFontSize %>"><% =TotalPosts %></font></td>
<% end if
'<!--Column 4 --> 'the remaining code continues as is...
---------------------------------------------------------------------
GauravBhabu
|
|
|
|
GauravBhabu
Advanced Member
4288 Posts |
Posted - 22 June 2001 : 19:24:12
|
quote:
would you kindly post the sections of your default.asp for step 5, both this and the end if. again, it works, but it doens't look right. big black box.
new thing:
after installing your mod, if i go to change config, the whole script now pukes.
thanks!
I have not found any errors if i change the config.asp. Please explain.
GauravBhabu
|
|
|
|
dayve
Forum Moderator
USA
5820 Posts |
Posted - 23 June 2001 : 13:49:30
|
ok, got the mod installed finally. it was harder to do because I had an existing collapse mod that I had to strip away the old and put the new.
http://www.nineinchnailz.com/forum/
2 caveats:
1. if you are using images for the category HEADER cells, you might need to make them taller or they will do a weird wrap. nothing major...
2. if you collapse a category, I would think the most recent topic should show next to the bar and not the first category. for instance, prior to collapsing a forum I have 3 categories:
+ Forum Last Post
[] Music 1-May-01
[] Movies 3-May-01
[] Sports 2-June-01
when I collapse the forum it now looks like this
- Forum Last Post
1-May-01
It should really show the one for the latest post which would be 2-June-01
Does anybody else agree??
Dayve
Edited by - dayve on 23 June 2001 14:02:27 |
|
|
|
samyot
Junior Member
Canada
242 Posts |
|
|
samyot
Junior Member
Canada
242 Posts |
Posted - 23 June 2001 : 14:07:21
|
quote:
2. if you collapse a category, I would think the most recent topic should show next to the bar and not the first category. for instance, prior to collapsing a forum I have 3 categories:
+ Forum Last Post
[] Music 1-May-01
[] Movies 3-May-01
[] Sports 2-June-01
when I collapse the forum it now looks like this
- Forum Last Post
1-May-01
It should really show the one for the latest post which would be 2-June-01
Does anybody else agree??
Dayve
I just noticed that, good eye !
|
|
|
|
GauravBhabu
Advanced Member
4288 Posts |
Posted - 23 June 2001 : 14:11:09
|
quote:
I have successfully implemented your new MOD Mod_CollapseCats_1.0.
Excellent work and great response on a fix !
Thanks....
Take a look
http://members.home.net/sylvainamyot/index.html
Thanks! I should have been more descriptive with instruction. Download the Mod_CollapseCats_1.0 at GauravBhabu Forums.
GauravBhabu
|
|
|
|
GauravBhabu
Advanced Member
4288 Posts |
Posted - 23 June 2001 : 14:21:57
|
quote:
quote:
2. if you collapse a category, I would think the most recent topic should show next to the bar and not the first category. for instance, prior to collapsing a forum I have 3 categories:
+ Forum Last Post
[] Music 1-May-01
[] Movies 3-May-01
[] Sports 2-June-01
when I collapse the forum it now looks like this
- Forum Last Post
1-May-01
It should really show the one for the latest post which would be 2-June-01
Does anybody else agree??
Dayve
I just noticed that, good eye !
Thanks! I am working to fix that. I hope to have this fixed today.
GauravBhabu
|
|
|
|
GauravBhabu
Advanced Member
4288 Posts |
Posted - 23 June 2001 : 14:41:57
|
I have two fixes to make as I have noticed.
1. When the cats are collapsed it counts the URL links as forums.
2. Last Post date shown is not correct.
Has anyone noticed other than this.
GauravBhabu
|
|
|
|
dayve
Forum Moderator
USA
5820 Posts |
Posted - 23 June 2001 : 15:54:09
|
quote:
I have two fixes to make as I have noticed.
1. When the cats are collapsed it counts the URL links as forums.
2. Last Post date shown is not correct.
Has anyone noticed other than this.
GauravBhabu
are the fixes on your site???
Dayve |
|
|
|
GauravBhabu
Advanced Member
4288 Posts |
Posted - 23 June 2001 : 16:58:32
|
quote:
quote:
I have two fixes to make as I have noticed.
1. When the cats are collapsed it counts the URL links as forums.
2. Last Post date shown is not correct.
Has anyone noticed other than this.
GauravBhabu
are the fixes on your site???
Dayve
Fixed:
Last Post Date error has been fixed. Go to GauravBhabu Forums. If you wish to test please use the Testing Area. There is a topic specific to the fix.
GauravBhabu
From our Errors we find the solutions.
|
|
|
|
@tomic
Senior Member
USA
1790 Posts |
Posted - 23 June 2001 : 17:33:38
|
OK this MOD is driving me crazy. I have gone over everything many times and can't find an error. I have wondered what the <b> tag is doing there in step 1, though it doesn't seem to hurt anything.
If I include the end if in step 6 I get this error
Microsoft VBScript compilation error '800a03fb'
Expected 'Loop'
/forum/default8.asp, line 427
else
^
If I comment it out, the page loads but I have duplicates of every category. Everything else functions perfectly.
Take a look at this http://www.skepticfriends.org/forum/default8.asp
Does anyone have any idea what could cause that?
@tomic
|
|
|
|
GauravBhabu
Advanced Member
4288 Posts |
Posted - 23 June 2001 : 17:57:01
|
quote:
OK this MOD is driving me crazy. I have gone over everything many times and can't find an error. I have wondered what the <b> tag is doing there in step 1, though it doesn't seem to hurt anything.
If I include the end if in step 6 I get this error
Microsoft VBScript compilation error '800a03fb'
Expected 'Loop'
/forum/default8.asp, line 427
else
^
If I comment it out, the page loads but I have duplicates of every category. Everything else functions perfectly.
Take a look at this http://www.skepticfriends.org/forum/default8.asp
Does anyone have any idea what could cause that?
@tomic
The error is probably because you are using default.asp as default8.asp
If you want to use the default8.asp then you need to change the default.asp in inc_catsmumm as default8.asp. Please use Mod_CollapseCats_1.0.1.zip.
Hope you get it.
Thanks
GauravBhabu
|
|
|
|
GauravBhabu
Advanced Member
4288 Posts |
Posted - 23 June 2001 : 18:30:04
|
For those who have used the Mod_CollapseCats_1.0.zip and have installed it correctly, please make the changes noted below to correct the error in Last Post Date, Time and Author:
This is step4 in the readme.tst with the MOD
You need to replace the code or modify it as below
Run a search for the following line in default.asp This is about or near line # 190.
set rsForum = my_Conn.Execute (strSql)
You will find something like this:
----------------After changes suggested in the redme.txt in ModCollapseCats_1.0.zip-------------------
set rsForum = my_Conn.Execute (strSql)
chkDisplayHeader = true
TotalForums = 0
TotalTopics = 0
TotalPosts = 0
do until rsforum.eof
if ChkDisplayForum(rsForum("Forum_ID")) then
TotalForums = TotalForums + 1
TotalTopics = TotalTopics + rsForum("F_TOPICS")
TotalPosts = TotalPosts + rsForum("F_Count")
end if
rsForum.movenext
loop
if TotalForums <> 0 then
rsForum.movefirst
end if
if rsForum.eof or rsForum.bof then
------------------------------------------------------------------------------------------------------
Modify that as noted below
-----------------------The modified code will look similar to this-------------------------------------
set rsForum = my_Conn.Execute (strSql)
chkDisplayHeader = true
TotalForums = 0
TotalTopics = 0
TotalPosts = 0
strLastPost = ""
catsLastPost = ""
forumLastPost = ""
catsLastUser = ""
catsUserName = ""
do until rsforum.eof
if ChkDisplayForum(rsForum("Forum_ID")) then
TotalForums = TotalForums + 1
TotalTopics = TotalTopics + rsForum("F_TOPICS")
TotalPosts = TotalPosts + rsForum("F_Count")
forumLastPost = ChkDate(rsForum("F_LAST_POST")) & ChkTime(rsForum("F_LAST_POST"))
if catsLastPost < forumLastPost then
catsLastPost = forumLastPost
strLastPost = (rsForum("F_LAST_POST"))
catsLastUser = (rsForum("MEMBER_ID"))
catsUserName = (rsForum("M_NAME"))
end if
end if
rsForum.movenext
loop
if TotalForums <> 0 then
rsForum.movefirst
end if
if rsForum.eof or rsForum.bof then
----------------------------------------------------------------------------------------------
Search for the following line in inc_catsumm.asp
if IsNull(rsForum("MEMBER_ID")) then
you will find something similar as below:
--------------------------------------------------------------
if IsNull(rsForum("MEMBER_ID")) then
strLastUser = ""
else
strLastUser = "<br>by: "
if strUseExtendedProfile then
strLastUser = strLastUser & "<a href=""pop_profile.asp?mode=display&id="& RsForum("MEMBER_ID") & """>"
else
strLastUser = strLastUser & "<a href=""JavaScript:openWindow2('pop_profile.asp?mode=display&id=" & rsForum("MEMBER_ID") & "')"">"
end if
strLastUser = strLastUser & ChkString(rsForum("M_NAME"),"display") & "</a>"
end if
%>
<td bgcolor="<% =strForumCellColor %>" align="center" valign="top" nowrap>
<font face="<% =strDefaultFontFace %>" color="<% =strForumFontColor %>" size="<% =strFooterFontSize %>">
<b><% =ChkDate(rsForum("F_LAST_POST")) %></b><br>
<% =ChkTime(rsForum("F_LAST_POST")) %><%= strLastUser%></font></td>
<%else
'## Do nothing
end if
-----------------Replace the above as below------------------------------------------------------------
if IsNull(catsLastUser) then
strLastUser = ""
else
strLastUser = "<br>by: "
if strUseExtendedProfile then
strLastUser = strLastUser & "<a href=""pop_profile.asp?mode=display&id="& catsLastUser & """>"
else
strLastUser = strLastUser & "<a href=""JavaScript:openWindow2('pop_profile.asp?mode=display&id=" & catsLastUser & "')"">"
end if
strLastUser = strLastUser & ChkString(catsUserName ,"display") & "</a>"
end if
%>
<td bgcolor="<% =strForumCellColor %>" align="center" valign="top" nowrap>
<font face="<% =strDefaultFontFace %>" color="<% =strForumFontColor %>" size="<% =strFooterFontSize %>">
<b><% =ChkDate(strLastPost) %></b><br>
<% =ChkTime(strLastPost) %><%= strLastUser%></font></td>
<%
else
'## Do nothing
end if
--------------------------------------------------------------------------------
This will correct the Last Post date after the Cats are collapsed.
GauravBhabu
|
|
|
|
Topic |
|
Topic Locked
