I was trying to install the smile manager plus and I am getting the following error:
Microsoft VBScript compilation error '800a03f6'
Expected 'End'
/funforum/forum/post.asp, line 1553
Looks like Alfred asked the same question but he just started with a fresh forum. My post.asp has been moded but I spent a lot of time to make sure I pasted the code in the right spot.
I have been re-looking at it for hours but can't figure it out I can read the posts but not reply to them
and i take a look to your post.txt, it's obviously, you've many duplicate code for SmileManager Mod. (2 inc_smiles.asp including !?) maybe try this.....
remove line.811 ~ line.830 '############# 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" --> <% '####################################################
after above doing, (new line number..)remove line.831 ~ line.840 again 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
Would know if there is a way to put a link to the extra smiles instead of showing them on the left side. Some of mine are big. I know you can set the size for each but I think it would look better with just a link to the non-stock smiles.
Topic Locked
Posted - 24 December 2002 : 02:18:55
)
) maybe try this.....
