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 Problem		  New Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

MaGraham
Senior Member

USA
1297 Posts
Posted - 13 September 2012 :  11:33:13  Show Profile  Reply with Quote

When I first did the "Message Icon Mod" I had 12 message icons. My message icons are longer so I have 3 on each row. I have now added 3 more message icons but they're not displaying in the message icon area when creating a post or a reply. I know this is simple but for the life of me I can't remember what I am supposed to do to get another row to display properly.

Please help! :)
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 13 September 2012 :  12:23:19  Show Profile
post a link to your "inc_messageicons.asp" file in .txt format. There's a routine in there something like this, which controls the line feeds and which lines have how many icons:

	for intMI = 1 to 14
		Response.Write	"                <input type=""radio"" class=""radio"" name=""strMessageIcon"" value=""" & intMI & """" & chkRadio(intMI,1,true) & "> " & getCurrentIcon(getCurrentMsgIcon(intMI),"","")
		select case intMI
			case 1,2,3,4,5,6,8,9,10,11,12,13
				Response.Write	"" & vbNewLine
			case 7
				Response.Write	"<br>" & vbNewLine
			case 14
				Response.Write	"</td>" & vbNewLine
		end select
	next
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts
Posted - 13 September 2012 :  14:59:08  Show Profile


Sorry! I really intended to post a link to my inc_messageicons.asp in my previous post.


copy of inc_messageicons.asp in txt format
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Go to Top of Page

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 16 September 2012 :  23:45:33  Show Profile
The two sections regarding the line feeds didn't match. This should fix it.


<%
if strRqMethod = "Reply" or _
strRqMethod = "ReplyQuote" or _
strRqMethod = "Topic" or _
strRqMethod = "TopicQuote" then
   Response.Write "              <tr>" & vbNewLine & _
         "                <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b><br>Select an icon that will   <br> best describe your post: </b></font></td>" & vbNewLine & _
         "                <td bgColor=""" & strPopUpTableColor & """ vAlign=""top"">" & vbNewLine
    for intMI = 1 to 15
        Response.Write    "                <input type=""radio""radio"" name=""strMessageIcon"" value=""" & intMI & """" & chkRadio(intMI,1,true) & "> " & getCurrentIcon(getCurrentMsgIcon(intMI),"","")
        select case intMI
            case 1,2,4,5,7,8,10,11,13,14
                Response.Write    "" & vbNewLine
            case 3,6,9,12
                Response.Write    "<br>" & vbNewLine
            case 15
                Response.Write    "</td>" & vbNewLine
        end select
    next
   Response.Write "              </tr>" & vbNewLine
end if

if strRqMethod = "Edit" or _
strRqMethod = "EditTopic" then
   Response.Write "              <tr>" & vbNewLine & _
         "                <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Message Icon:</b></font></td>" & vbNewLine & _
         "                <td bgColor=""" & strPopUpTableColor & """ vAlign=""top"">" & vbNewLine
   for intMI = 1 to 15
      Response.Write "                <input type=""radio"" class=""radio"" name=""strMessageIcon"" value=""" & intMI & """" & chkRadio(intMI,MsgIcon,true) & "> " & getCurrentIcon(getCurrentMsgIcon(intMI),"","")
      select case intMI
         Case 1,2,4,5,7,8,10,11,13,14
            Response.Write "" & vbNewLine
         case 3,6,9,12
            Response.Write "<br>" & vbNewLine
         case 15
            Response.Write "</td>" & vbNewLine
      end select
   next
   Response.Write "              </tr>" & vbNewLine
end if
%>
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts
Posted - 16 September 2012 :  23:58:08  Show Profile

That worked PERFECT! YEA! :)

Thank you so much, Carefree!!
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Go to Top of Page

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 17 September 2012 :  00:08:31  Show Profile
You're welcome
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.47 seconds. Powered By: Snitz Forums 2000 Version 3.4.07