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
 Bug in Complaint to moderator
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

jgs
New Member

Netherlands
95 Posts

Posted - 24 January 2009 :  11:05:32  Show Profile
I've added the Complaint to Moderator but it's not completely workin correct.
The original posting has no complaint link, all the following have it twice.

The part of code responsible is:

Response.Write " <tr>" & vbNewLine & _
" <td valign=""bottom""><hr noshade size=""" & strFooterFontSize & """ color=""" & CColor & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & _
"Bewerkt door: - " & Reply_LastEditByName & " op " & chkDate(Reply_LastEdit, " " ,true) & "</font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
Response.Write " <tr>" & vbNewLine & _
" <td valign=""bottom"" align=""right"" height=""20"">" & vbNewLine & _
" <a href=""javascript:openWindow3('pop_report.asp?IsTopic=0&action=REPORT&REPLY_ID=" & Reply_ReplyId & "&TOPIC_ID=" & TopicId & "&FORUM_ID=" & Forum_ID & "&CAT_ID=" & Cat_Id & "&TOPIC_TITLE=" & Topic_Subject & "');""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>report to moderator</a> " & vbNewLine & _
" </tr>" & vbNewLine
Response.Write " <tr>" & vbNewLine & _
" <td valign=""bottom"" align=""right"" height=""20""><a href=""javascript:openWindow3('pop_report.asp?IsTopic=0&action=REPORT&REPLY_ID=" & Reply_ReplyId & "&TOPIC_ID=" & TopicId & "&FORUM_ID=" & Forum_ID & "&CAT_ID=" & Cat_Id & "&TOPIC_TITLE=" & Topic_Subject & "');""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Report to Moderator</a> <a href=""#top"">" & getCurrentIcon(strIconGoUp,"Go to Top of Page"," ") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine
intI = intI + 1
if intI = 2 then
intI = 0


I'm new with ASP coding, so if it's obviously what's wrong, I'm a newbie at this.

Hmmm, a bit unreadable, so here's a link to the file: http://www.govvd.nl/forum/complainttopic.txt

Search for "Bewerkt door" to find the lines (Dutch for Edited by).<

Info about my forum: http://www.govvd.nl/forumsoftware.htm list of Mods included.
Most of userinterface translated into Dutch.

Edited by - jgs on 24 January 2009 11:11:27

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 24 January 2009 :  15:06:24  Show Profile
Search for the following lines:
Response.Write  "                    <tr>" & vbNewLine & _
          "                      <td valign=""bottom"" align=""right"" height=""20"">" & vbNewLine & _
          "                          <a href=""javascript:openWindow3('pop_report.asp?IsTopic=0&action=REPORT&REPLY_ID=" & Reply_ReplyId & "&TOPIC_ID=" & TopicId & "&FORUM_ID=" & Forum_ID & "&CAT_ID=" & Cat_Id & "&TOPIC_TITLE=" & Topic_Subject & "');""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>report to moderator</a>  " & vbNewLine & _
          "                    </tr>" & vbNewLine
            Response.Write  "                    <tr>" & vbNewLine & _
                    "                      <td valign=""bottom"" align=""right"" height=""20""><a href=""javascript:openWindow3('pop_report.asp?IsTopic=0&action=REPORT&REPLY_ID=" & Reply_ReplyId & "&TOPIC_ID=" & TopicId & "&FORUM_ID=" & Forum_ID & "&CAT_ID=" & Cat_Id & "&TOPIC_TITLE=" & Topic_Subject & "');""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Report to Moderator</a>  <a href=""#top"">" & getCurrentIcon(strIconGoUp,"Go to Top of Page"," ") & "</a></td>" & vbNewLine & _
                    "                    </tr>" & vbNewLine & _


Change them to say:
Response.Write  "                    <tr>" & vbNewLine & _
                    "                      <td valign=""bottom"" align=""right"" height=""20""><a href=""javascript:openWindow3('pop_report.asp?IsTopic=0&action=REPORT&REPLY_ID=" & Reply_ReplyId & "&TOPIC_ID=" & TopicId & "&FORUM_ID=" & Forum_ID & "&CAT_ID=" & Cat_Id & "&TOPIC_TITLE=" & Topic_Subject & "');""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Report to Moderator</a>  <a href=""#top"">" & getCurrentIcon(strIconGoUp,"Go to Top of Page"," ") & "</a></td>" & vbNewLine & _
                    "                    </tr>" & vbNewLine & _


Then, search for the following:
Response.Write  "                    <tr>" & vbNewLine & _
                "                      <td valign=""bottom""><hr noshade size=""" & strFooterFontSize & """ color=""" & strForumFirstCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" &_
                "Bewerkt door: - " & Topic_LastEditByName & " op " & chkDate(Topic_LastEdit, " ", true) & "</font></td>" & vbNewLine & _
                "                    </tr>" & vbNewLine
    end if
    Response.Write  "                  </table>" & vbNewLine & _
            "                </td>" & vbNewLine & _
            "              </tr>" & vbNewLine


Change that to say:
Response.Write  "                    <tr>" & vbNewLine & _
                "                      <td valign=""bottom""><hr noshade size=""" & strFooterFontSize & """ color=""" & strForumFirstCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" &_
                "Bewerkt door: - " & Topic_LastEditByName & " op " & chkDate(Topic_LastEdit, " ", true) & "</font></td>" & vbNewLine & _
                "                    </tr>" & vbNewLine
    end if
		Response.Write  "                    <tr>" & vbNewLine & _
			"                      <td valign=""bottom"" align=""right"" height=""20""><a href=""javascript:openWindow3('pop_report.asp?IsTopic=0&action=REPORT&REPLY_ID=" & Reply_ReplyId & "&TOPIC_ID=" & TopicId & "&FORUM_ID=" & Forum_ID & "&CAT_ID=" & Cat_Id & "&TOPIC_TITLE=" & Topic_Subject & "');""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Report to Moderator</a>  <a href=""#top"">" & getCurrentIcon(strIconGoUp,"Go to Top of Page"," ") & "</a></td>" & vbNewLine & _
			"                    </tr>" & vbNewLine & _
			"                  </table>" & vbNewLine & _
			"                </td>" & vbNewLine & _
			"              </tr>" & vbNewLine
<
Go to Top of Page

jgs
New Member

Netherlands
95 Posts

Posted - 24 January 2009 :  16:44:24  Show Profile
Thanks, it was driving me crazy.
Did the Mod three times over, same result. What was wondering me the most was that in the instructions the 2 modifications where more then 100 lines apart and in mine where very close.
I've applied your instructions and now the reply's have a single link.
In the opening message the link is still missing.

Thanks sofar, it's already looking better. (seeing double gives immidiately complaints, not seeing something takes a while.

The link above shows now the new topic.asp<

Info about my forum: http://www.govvd.nl/forumsoftware.htm list of Mods included.
Most of userinterface translated into Dutch.

Edited by - jgs on 24 January 2009 16:45:02
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 25 January 2009 :  05:45:17  Show Profile
In "topic.asp" search for:
Response.Write  "                    <tr>" & vbNewLine & _
                "                      <td valign=""bottom""><hr noshade size=""" & strFooterFontSize & """ color=""" & strForumFirstCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" &_
                "Bewerkt door: - " & Topic_LastEditByName & " op " & chkDate(Topic_LastEdit, " ", true) & "</font></td>" & vbNewLine & _
                "                    </tr>" & vbNewLine
    end if
    Response.Write  "                  </table>" & vbNewLine & _
            "                </td>" & vbNewLine & _
            "              </tr>" & vbNewLine

Change that to say:
Response.Write  "                    <tr>" & vbNewLine & _
                "                      <td valign=""bottom""><hr noshade size=""" & strFooterFontSize & """ color=""" & strForumFirstCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" &_
                "Bewerkt door: - " & Topic_LastEditByName & " op " & chkDate(Topic_LastEdit, " ", true) & "</font></td>" & vbNewLine & _
                "                    </tr>" & vbNewLine
    end if
Response.Write  "                    <tr>" & vbNewLine & _
	"                      <td valign=""bottom"" align=""right"" height=""20""><a href=""javascript:openWindow3('pop_report.asp?IsTopic=0&action=REPORT&REPLY_ID=" & Reply_ReplyId & "&TOPIC_ID=" & TopicId & "&FORUM_ID=" & Forum_ID & "&CAT_ID=" & Cat_Id & "&TOPIC_TITLE=" & Topic_Subject & "');""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Report to Moderator</a>  <a href=""#top"">" & getCurrentIcon(strIconGoUp,"Go to Top of Page"," ") & "</a></td>" & vbNewLine & _
	"                    </tr>" & vbNewLine & _
	"                  </table>" & vbNewLine & _
	"                </td>" & vbNewLine & _
	"              </tr>" & vbNewLine
<
Go to Top of Page

jgs
New Member

Netherlands
95 Posts

Posted - 25 January 2009 :  06:39:34  Show Profile
Still no luck, replies have the link, the OP not.

http://www.govvd.nl/forum/complainttopic.txt

But thanks again, hope you can find the fault.<

Info about my forum: http://www.govvd.nl/forumsoftware.htm list of Mods included.
Most of userinterface translated into Dutch.
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 25 January 2009 :  09:57:35  Show Profile
Go to Top of Page

jgs
New Member

Netherlands
95 Posts

Posted - 25 January 2009 :  11:30:32  Show Profile
I copied your entire file and changed it to .asp and uploaded.
first it gave an error:
Microsoft VBScript compilation error '800a0408'

Invalid character

/forum/topic.asp, line 840

" </tr>" & vbNewLine & _ intI = intI + 1
-------------------------------------------------------^

Which I corrected by splitting it in to lines.

Then I could open the topic. Now the OP has the report line including go to top of page, but the replies are messed up.

I'll replace the old topic.asp from the topic.txt and replace only the parts concerning the report to mod.

I'll let you now.


EDIT Yes, that way it works. Sorry, I'd searched on "Bewerk" to find the location. Thought this word was only once in the file. Stupid of me, normally I hit search again to be sure.

Thanks a lot.<

Info about my forum: http://www.govvd.nl/forumsoftware.htm list of Mods included.
Most of userinterface translated into Dutch.

Edited by - jgs on 25 January 2009 11:40:17
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.3 seconds. Powered By: Snitz Forums 2000 Version 3.4.07