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
 SmileManager vs. Poll Mod		  New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

RonTampaBay
New Member

USA
59 Posts
Posted - 19 September 2003 :  11:04:58  Show Profile  Visit RonTampaBay's Homepage
Hi,
I installed the poll mod a few days ago and it works great. I found some cool smilies that I thought would be neat to add, but I noticed that there is code overlap with the SmileManager and the Poll mod in several asps. Anyone install both? Any guidance is appreciated.

Thanks!
Edited by - RonTampaBay on 20 September 2003 00:50:33

Davio
Development Team Member

Jamaica
12217 Posts
Posted - 20 September 2003 :  00:00:07  Show Profile
Post a link to a txt version of the file you are having problems inserting the code.
Support Snitz Forums
Go to Top of Page

RonTampaBay
New Member

USA
59 Posts
Posted - 20 September 2003 :  10:22:58  Show Profile  Visit RonTampaBay's Homepage
Hi Davio,

Here are the conflicting code line. Sorry but I do not know ASP code, but I can see that there is adifference in the parameters of the Response.Write line.

Thanks

Poll Mod Code

Response.Write " <tr>" & vbNewLine
'################################## Poll Mod ###################################
'Remember to remove the &_ code from the end of the line above.
Response.Write " <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & vbNewLine
if strRqMethod = "Topic" or strRqMethod = "EditTopic" then
if Request.QueryString("poll") = "1" then
Response.Write "Poll Question:"
else
Response.Write "Message:"
end if
else
Response.Write "Message:"
end if
Response.Write "</b><br />" & vbNewLine
' Remember to start the 2nd line below with Response.Write.
'###############################################################################
Response.Write " <br />" & vbNewLine & _
" <table border=""0"">" & vbNewLine & _



SmileManager Code



Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""middle"" height=""40"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Message:</b><br />" & vbNewLine & _
" <br /><table border=""0"" cellpadding=0 cellspacing=0 width=""100%"">" & vbNewLine & _
Edited by - RonTampaBay on 22 September 2003 12:05:19
Go to Top of Page

RonTampaBay
New Member

USA
59 Posts
Posted - 20 September 2003 :  10:43:26  Show Profile  Visit RonTampaBay's Homepage
I probably could have asked for assistance in a more general fashion, because there are many instances of code overlap in the mods. I am sure that these are perfectly OK, but without knowing the code language, I am reluctant to simply integrate the parameters of one with another. A good example of this is the Ban IP Mod, which is really something that I want to install. There are many overlaps in the code among the asp files. Is there an easy way/process or some other indicator that I might be pointed to that would help me understand the currency of the code changes? How to properly integrate when code overlaps? Also - if there is a book you recommend that I may read on the coding language, I would appreciate that as well.

Many thanks!
Go to Top of Page

Davio
Development Team Member

Jamaica
12217 Posts
Posted - 22 September 2003 :  12:12:20  Show Profile
You need to post a link to txt version of your file, that you are having problems with. I will either post the changes you need to make, or send you the corrected file. I have done this for users many times over so I know how the code should blend in with each other to make them work.

The code you posted for the Smile Manager code is just the normal snitz forum code. That's what you would replace with the poll mod code.
Support Snitz Forums
Go to Top of Page

aratak
Starting Member

12 Posts
Posted - 25 October 2003 :  07:46:48  Show Profile
Attention Davio!!!!

I have a conflict trying to install Poll Mod Version: 2.0.6.

The following is an excerpt from my current post.asp which is stock 3.4.03 snitz forum code, modded with SmileManager Plus
Author: Aaron Shagrin, Version: 1.3.

if strRqMethod = "URL" or _
strRqMethod = "EditURL" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Address:</b></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><input maxLength=""150"" name=""Address"" value="""
if (TxtURL <> "") then Response.Write(TxtURL) else Response.Write("http://")
Response.Write """ size=""40""><a href=""Javascript:openWindow3('pop_help.asp?mode=options#address')"">" & getCurrentIcon(strIconSmileQuestion,"Click here to get more help on this option","") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if

'############# SmileManager Plus MOD ################
if strRqMethod = "Edit" or strRqMethod = "URL" or strRqMethod = "EditURL" or _
strRqMethod = "Forum" or strRqMethod = "EditForum" or _
strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
strRqMethod = "EditTopic" or strRqMethod = "Topic" or strRqMethod = "TopicQuote" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""middle"" height=""40"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Message:</b><br />" & vbNewLine & _
" <br /><table border=""0"" cellpadding=0 cellspacing=0 width=""100%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine


if strIcons = "1" and strShowSmiliesTable = "1" then
if strRqMethod = "Edit" or strRqMethod = "EditTopic" or _
strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
strRqMethod = "Topic" or strRqMethod = "TopicQuote" then
%>
<!--#INCLUDE FILE="inc_smilies.asp" -->
<%
'####################################################

end if
end if
Response.Write " </font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><textarea cols=""" & intCols & """ name=""Message"" rows=""" & intRows & """ wrap=""VIRTUAL"" onselect=""storeCaret(this);"" onclick=""storeCaret(this);"" onkeyup=""storeCaret(this);"" onchange=""storeCaret(this);"">" & Trim(CleanCode(TxtMsg)) & "</textarea><br /></td>" & vbNewLine & _
" </tr>" & vbNewLine
'############# SmileManager Plus MOD ################
Response.Write " <tr>" & vbnewline &_
" <td bgColor=""" & strPopUpTableColor & """> </td>" & vbNewline &_
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
if strAllowHTML = "1" then
Response.Write "  -  HTML is ON | " & vbNewLine
else
Response.Write "  -  HTML is OFF | " & vbNewLine
end if
if strAllowForumCode = "1" then
Response.Write " <a href=""JavaScript:openWindow6('pop_forum_code.asp')"" tabindex=""-1"">Forum Code</a> is ON<br />" & vbNewLine
else
Response.Write " Forum Code is OFF<br />" & vbNewLine
end if
Response.Write " </font></td>" & vbnewline
Response.Write " </tr>" & vbnewline
'####################################################
end if
select case strRqMethod
case "Reply", "ReplyQuote", "TopicQuote"
Response.Write " <script language=""JavaScript"" type=""text/javascript"">document.PostTopic.Message.focus();</script>" & vbNewLine
end select

'#################################################################################
'## Forum Moderators - listbox Code
'#################################################################################


Polls wants me to modify the following block of code:

Response.Write """ size=""40""><a href=""Javascript:openWindow3('pop_help.asp?mode=options#address')"">" & getCurrentIcon(strIconSmileQuestion,"Click here to get more help on this option","") & "</a></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if

if strRqMethod = "Edit" or strRqMethod = "URL" or strRqMethod = "EditURL" or _
strRqMethod = "Forum" or strRqMethod = "EditForum" or _
strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
strRqMethod = "EditTopic" or strRqMethod = "Topic" or strRqMethod = "TopicQuote" then
Response.Write " <tr>" & vbNewLine
'################################## Poll Mod ###################################
'Remember to remove the &_ code from the end of the line above.
Response.Write " <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & vbNewLine
if strRqMethod = "Topic" or strRqMethod = "EditTopic" then
if Request.QueryString("poll") = "1" then
Response.Write "Poll Question:"
else
Response.Write "Message:"
end if
else
Response.Write "Message:"
end if
Response.Write "</b><br />" & vbNewLine
' Remember to start the 2nd line below with Response.Write.
'###############################################################################
Response.Write " <br />" & vbNewLine & _
" <table border=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine

... which overlaps with the Smiles Manager modifications I have already made.

HELP!!

You can get a current text copy of my post.asp file (stock 3.4.03 + smilie manager) HERE.
Go to Top of Page

aratak
Starting Member

12 Posts
Posted - 25 October 2003 :  08:17:42  Show Profile
Note: This is the only code overlap I found. RonTampaBay says "several" but I got all the other modifications done except this one conflict in post.asp.

Unless I missed something.

Go to Top of Page

aratak
Starting Member

12 Posts
Posted - 25 October 2003 :  21:03:28  Show Profile
bump up
Go to Top of Page

crazee
Starting Member

30 Posts
Posted - 28 October 2003 :  02:56:24  Show Profile  Visit crazee's Homepage
I too have the same prob. I have the latest vers. of snitz and installed the smile mod first, then the poll mod. The only prob I had thus far is that I have two new topic folders, and I think one if them should be a New Poll link instead. I too, have found the same overlap in code. Any help is appreciated.
I am always learning...
Go to Top of Page

aratak
Starting Member

12 Posts
Posted - 01 November 2003 :  08:59:01  Show Profile
ATTENTION DAVIO

No response?
Go to Top of Page

NiteOwl
Junior Member

Canada
403 Posts
Posted - 02 November 2003 :  00:30:16  Show Profile  Visit NiteOwl's Homepage
Update - This appears to be a non-issue as this is only for the menu and both entries appear to work.


I installed Smile Manager, and now am looking to install Poll
I found the following conflict:
Poll - admin_home.asp on or about line 147

'################################# Poll Mod ###################################
Response.Write "                <LI><span class=""spnMessageText""><a href=""admin_poll.asp"">Poll Configuration</a></span> <font size=""" & strFooterFontSize & """>(<a href=""poll_upgrade.asp"">Upgrade Poll</a>)</font></LI>" & vbNewLine
'##############################################################################
Smile - admin_home.asp on or about line 147

'############# SmileManager Plus MOD ################
Response.Write	"                <LI><span class=""spnMessageText""><a href=""admin_smiles.asp"">SmileManager Plus Admin</a></span></LI>" & vbNewLine
'####################################################
-=NiteOwl=-
Edited by - NiteOwl on 02 November 2003 03:14:26
Go to Top of Page

NiteOwl
Junior Member

Canada
403 Posts
Posted - 02 November 2003 :  01:40:51  Show Profile  Visit NiteOwl's Homepage
I installed Smile Manager, and now am looking to install Poll (not sure if this will make the above from aratak any easier to understand.)

I found the following conflict:

Poll - post.asp on or about line 913

end if
 
if strRqMethod = "Edit" or strRqMethod = "URL" or strRqMethod = "EditURL" or _
strRqMethod = "Forum" or strRqMethod = "EditForum" or _
strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
strRqMethod = "EditTopic" or strRqMethod = "Topic" or strRqMethod = "TopicQuote" then 
	Response.Write	"              <tr>" & vbNewLine
	'################################## Poll Mod ###################################
	'Remember to remove the &_ code from the end of the line above.
	Response.Write	"                <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & vbNewLine
	if strRqMethod = "Topic" or strRqMethod = "EditTopic" then 
		if Request.QueryString("poll") = "1" then
			Response.Write "Poll Question:"
		else 
			Response.Write "Message:"
		end if 
	else 
		Response.Write "Message:"
	end if 
	Response.Write "</b><br />" & vbNewLine
	' Remember to start the 2nd line below with Response.Write.
	'###############################################################################
	Response.Write	"                <br />" & vbNewLine & _
			"                  <table border=""0"">" & vbNewLine & _
			"                    <tr>" & vbNewLine & _
			"                      <td align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
	if strAllowHTML = "1" then
		Response.Write	"                      * HTML is ON<br />" & vbNewLine
	else
		Response.Write	"                      * HTML is OFF<br />" & vbNewLine
	end if
	if strAllowForumCode = "1" then
		Response.Write	"                      * <a href=""JavaScript:openWindow6('pop_forum_code.asp')"" tabindex=""-1"">Forum Code</a> is ON<br />" & vbNewLine
	else
		Response.Write	"                      * Forum Code is OFF<br />" & vbNewLine
	end if
	if strIcons = "1" and strShowSmiliesTable = "1" then
		if strRqMethod = "Edit" or strRqMethod = "EditTopic" or _
			strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
			strRqMethod = "Topic" or strRqMethod = "TopicQuote" then 
%>
<!--#INCLUDE FILE="inc_smilies.asp" -->
<%


Smile - post.asp on or about line 913

end if
'############# SmileManager Plus MOD ################
if strRqMethod = "Edit" or strRqMethod = "URL" or strRqMethod = "EditURL" or _
strRqMethod = "Forum" or strRqMethod = "EditForum" or _
strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
strRqMethod = "EditTopic" or strRqMethod = "Topic" or strRqMethod = "TopicQuote" then 
	Response.Write	"              <tr>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""middle"" height=""40"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Message:</b><br />" & vbNewLine & _
			"                  <br /><table border=""0"" cellpadding=0 cellspacing=0 width=""100%"">" & vbNewLine & _
			"                    <tr>" & vbNewLine & _
			"                      <td align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
	

	if strIcons = "1" and strShowSmiliesTable = "1" then
		if strRqMethod = "Edit" or strRqMethod = "EditTopic" or _
			strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
			strRqMethod = "Topic" or strRqMethod = "TopicQuote" then 
%>
<!--#INCLUDE FILE="inc_smilies.asp" -->
<%
'####################################################
	end if
-=NiteOwl=-
Go to Top of Page

Faizan
Average Member

United Kingdom
592 Posts
Posted - 02 November 2003 :  09:19:06  Show Profile  Visit Faizan's Homepage  Send Faizan an AOL message  Send Faizan an ICQ Message  Send Faizan a Yahoo! Message
quote:
Originally posted by NiteOwl

Update - This appears to be a non-issue as this is only for the menu and both entries appear to work.


I installed Smile Manager, and now am looking to install Poll
I found the following conflict:
Poll - admin_home.asp on or about line 147

'################################# Poll Mod ###################################
Response.Write "                <LI><span class=""spnMessageText""><a href=""admin_poll.asp"">Poll Configuration</a></span> <font size=""" & strFooterFontSize & """>(<a href=""poll_upgrade.asp"">Upgrade Poll</a>)</font></LI>" & vbNewLine
'##############################################################################
Smile - admin_home.asp on or about line 147

'############# SmileManager Plus MOD ################
Response.Write	"                <LI><span class=""spnMessageText""><a href=""admin_smiles.asp"">SmileManager Plus Admin</a></span></LI>" & vbNewLine
'####################################################



Why not put the Smilie one just after the Poll one, that would fix the problem I guess. But I am not someone who knows asp.

»Snitz Graphics
Go to Top of Page

gahfe
Starting Member

Argentina
12 Posts
Posted - 02 November 2003 :  11:07:17  Show Profile
the correct code-insert must be like that:

find this:
if strRqMethod = "Edit" or strRqMethod = "URL" or strRqMethod = "EditURL" or _
strRqMethod = "Forum" or strRqMethod = "EditForum" or _
strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
strRqMethod = "EditTopic" 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>Message:</b><br />" & vbNewLine & _
			"                <br />" & vbNewLine & _
			"                  <table border=""0"">" & vbNewLine & _
			"                    <tr>" & vbNewLine & _
			"                      <td align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
	if strAllowHTML = "1" then
		Response.Write	"                      * HTML is ON<br />" & vbNewLine
	else
		Response.Write	"                      * HTML is OFF<br />" & vbNewLine
	end if
	if strAllowForumCode = "1" then
		Response.Write	"                      * <a href=""JavaScript:openWindow6('pop_forum_code.asp')"" tabindex=""-1"">Forum Code</a> is ON<br />" & vbNewLine
	else
		Response.Write	"                      * Forum Code is OFF<br />" & vbNewLine
	end if
	if strIcons = "1" and strShowSmiliesTable = "1" then
		if strRqMethod = "Edit" or strRqMethod = "EditTopic" or _
			strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
			strRqMethod = "Topic" or strRqMethod = "TopicQuote" then 
%>
<!--#INCLUDE FILE="inc_smilies.asp" -->
<%
		end if
	end if
	Response.Write	"                      </font></td>" & vbNewLine & _
			"                    </tr>" & vbNewLine & _
			"                  </table>" & vbNewLine & _
			"                </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><textarea cols=""" & intCols & """ name=""Message"" rows=""" & intRows & """ wrap=""VIRTUAL"" onselect=""storeCaret(this);"" onclick=""storeCaret(this);"" onkeyup=""storeCaret(this);"" onchange=""storeCaret(this);"">" & Trim(CleanCode(TxtMsg)) & "</textarea><br /></td>" & vbNewLine & _
			"              </tr>" & vbNewLine
end if

replace with the follow:

'############# SmileManager Plus MOD ################
if strRqMethod = "Edit" or strRqMethod = "URL" or strRqMethod = "EditURL" or _
strRqMethod = "Forum" or strRqMethod = "EditForum" or _
strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
strRqMethod = "EditTopic" or strRqMethod = "Topic" or strRqMethod = "TopicQuote" then 
	Response.Write	"              <tr>" & vbNewLine
	'################################## Poll Mod ###################################
	'Remember to remove the &_ code from the end of the line above.
	Response.Write	"                <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & vbNewLine
	if strRqMethod = "Topic" or strRqMethod = "EditTopic" then 
		if Request.QueryString("poll") = "1" then
			Response.Write "Poll Question:"
		else 
			Response.Write "Message:"
		end if 
	else 
		Response.Write "Message:"
	end if 
	Response.Write "</b><br />" & vbNewLine
	' Remember to start the 2nd line below with Response.Write.
	'###############################################################################
	'		"                <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""middle"" height=""40"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Message:</b><br />" & vbNewLine & _
	Response.Write	"                  <br /><table border=""0"" cellpadding=0 cellspacing=0 width=""100%"">" & vbNewLine & _
			"                    <tr>" & vbNewLine & _
			"                      <td align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
	

	if strIcons = "1" and strShowSmiliesTable = "1" then
		if strRqMethod = "Edit" or strRqMethod = "EditTopic" or _
			strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
			strRqMethod = "Topic" or strRqMethod = "TopicQuote" then 
%>
<!--#INCLUDE FILE="inc_smilies.asp" -->
<%
'####################################################
		end if
	end if
	Response.Write	"                      </font></td>" & vbNewLine & _
			"                    </tr>" & vbNewLine & _
			"                  </table>" & vbNewLine & _
			"                </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><textarea cols=""" & intCols & """ name=""Message"" rows=""" & intRows & """ wrap=""VIRTUAL"" onselect=""storeCaret(this);"" onclick=""storeCaret(this);"" onkeyup=""storeCaret(this);"" onchange=""storeCaret(this);"">" & Trim(CleanCode(TxtMsg)) & "</textarea><br /></td>" & vbNewLine & _
			"              </tr>" & vbNewLine
'############# SmileManager Plus MOD ################
	Response.Write	"		<tr>" & vbnewline &_
					"			<td bgColor=""" & strPopUpTableColor & """> </td>" & vbNewline &_
					"			<td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" 
	if strAllowHTML = "1" then
		Response.Write	"                       -  HTML is ON | " & vbNewLine
	else
		Response.Write	"                       -  HTML is OFF | " & vbNewLine
	end if
	if strAllowForumCode = "1" then
		Response.Write	"                      <a href=""JavaScript:openWindow6('pop_forum_code.asp')"" tabindex=""-1"">Forum Code</a> is ON<br />" & vbNewLine
	else
		Response.Write	"                      Forum Code is OFF<br />" & vbNewLine
	end if
	Response.Write	"	</font></td>" & vbnewline 
	Response.Write	"		</tr>" & vbnewline
'####################################################
end if

• il morto qui parla
• test forum il morto parla (demo|demo)
• snitz mods (not available)
Edited by - gahfe on 02 November 2003 11:15:48
Go to Top of Page

NiteOwl
Junior Member

Canada
403 Posts
Posted - 02 November 2003 :  12:55:27  Show Profile  Visit NiteOwl's Homepage
Thankyou!!! It looks like its working for me now!!!
-=NiteOwl=-
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 2.49 seconds. Powered By: Snitz Forums 2000 Version 3.4.07