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
 Message Icon NOT showing when Using Quick reply		  New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

acoustika
Junior Member

Denmark
311 Posts
Posted - 30 November 2003 :  12:25:13  Show Profile  Visit acoustika's Homepage  Send acoustika an ICQ Message
My message Icons are not showing up in the post when I'm using Quick Reply, It is set to 1 as default value in the DB, but when using quick reply it writes 0 in the DB field?????
Im using MySql anyone who can help, if you like to see a txt file of a page, say so, I wouldn't know which one.
May The Code Be With You
www.UniqueDk.dk *** The Open Forums of Denmark ***

masterao
Senior Member

Sweden
1678 Posts
Posted - 01 December 2003 :  11:34:55  Show Profile  Visit masterao's Homepage
Find the sub QuickReply in topic.asp, and add the red line below:


            "              <form name=""PostTopic"" method=""post"" action=""post_info.asp"" onSubmit=""return validate();"">" & vbNewLine & _
            "              <input name=""strMessageIcon"" type=""hidden"" value=""1"">" & vbNewLine & _
            "              <input name=""ARCHIVE"" type=""hidden"" value=""" & ArchiveView & """>" & vbNewLine & _
            "              <input name=""Method_Type"" type=""hidden"" value=""Reply"">" & vbNewLine & _


Then it should display the default message icon.
Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod
Go to Top of Page

acoustika
Junior Member

Denmark
311 Posts
Posted - 01 December 2003 :  12:00:13  Show Profile  Visit acoustika's Homepage  Send acoustika an ICQ Message
that did the job, thanks alot masterao ;-)
May The Code Be With You
www.UniqueDk.dk *** The Open Forums of Denmark ***
Go to Top of Page

acoustika
Junior Member

Denmark
311 Posts
Posted - 01 December 2003 :  12:12:03  Show Profile  Visit acoustika's Homepage  Send acoustika an ICQ Message
hmm, but now I see it's NOT showing up on TOPIC PREVIEW on the post page, can you help there also :-)
May The Code Be With You
www.UniqueDk.dk *** The Open Forums of Denmark ***
Go to Top of Page

masterao
Senior Member

Sweden
1678 Posts
Posted - 01 December 2003 :  17:14:02  Show Profile  Visit masterao's Homepage
You're welcome.

I haven't added it to show on amongst the topic review or replies, as the mod only replaced the original post icon in topic.asp and forum.asp (and post.asp don't have the post icon in the original code).

The following should accomplish what you want. The line numbers given might not correspond to your post.asp, just so you know. I have marked the code you should add in red.

In post.asp, look for the following (about line 1380-1383):

    '## Forum_SQL
    strSql = "SELECT M.M_NAME, T.T_DATE, T.T_MESSAGE, T.T_MSGICON " 
    strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS M, " & strActivePrefix & "TOPICS T "
    strSql = strSql & " WHERE M.MEMBER_ID = T.T_AUTHOR AND T.TOPIC_ID = " &  strRqTopicID


Then look for the following on lines 1397-1398:

    Response.Write "><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><small>" & getCurrentIcon(getCurrentMsgIcon(rs("T_MSGICON")),"","hspace=""3""") & "Posted - " & ChkDate(rs("T_DATE"), " :" ,true) & "</small><hr size=""" & strFooterFontSize & """><span class=""spnMessageText"">" & formatStr(rs("T_MESSAGE")) & "</span></font></td>" & vbNewline
    Response.Write "              </tr>" & vbNewline


Then look for this on lines 1400-1406:

    rs.close
    set rs = nothing
    '## Forum_SQL - Get all replies to Topic from the DB
    strSql ="SELECT M.M_NAME, R.R_DATE, R.R_MESSAGE, R.R_MSGICON "
    strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS M, " & strActivePrefix & "REPLY R "
    strSql = strSql & " WHERE M.MEMBER_ID = R.R_AUTHOR AND R.TOPIC_ID = " & strRqTopicID
    ' DEM --> Added check for moderation so that only admins and moderators can see the unapproved posts.


Then the following on lines 1435-1443:

        mM_NAME = 0
        rR_DATE = 1
        rR_MESSAGE = 2
        rR_MSGICON = 3

        for iReply = 0 to recReplyCount

            ReplyMemberName = allReplyData(mM_NAME, iReply)
            ReplyDate = allReplyData(rR_DATE, iReply)
            ReplyMessage = allReplyData(rR_MESSAGE, iReply)
            ReplyMsgIcon = allReplyData(rR_MSGICON, iReply)


And the last change, look for lines 1462-1464:

            Response.Write  "><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><small>" & getCurrentIcon(getCurrentMsgIcon(ReplyMsgIcon),"","hspace=""3""") & "Posted - " & ChkDate(ReplyDate, " :" ,true) & "</small><hr size=""" & strFooterFontSize & """><span class=""spnMessageText"">" & formatStr(ReplyMessage) & "</span></font></td>" & vbNewline & _
                    "              </tr>" & vbNewline
            strI = strI + 1
Jan
===========
FR Portal Forums | Active Users 4.0.20 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 1.37 seconds. Powered By: Snitz Forums 2000 Version 3.4.07