'############# SmileManager Plus MOD ################ line 940
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 (where's the end if for this?
if strRqMethod = "Edit" or strRqMethod = "EditTopic" or _ (where's the end if for this?
strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
strRqMethod = "Topic" or strRqMethod = "TopicQuote" then
%>
<!--#INCLUDE FILE="inc_smilies.asp" -->
<%
'####################################################
'################################## 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
'####EVENTS CALENDAR MOD#########
elseif Request.QueryString("event")="1" or isevent="1" then
Response.Write strCalEventDetails
'################################
What do I do if I get this message when I go to post:
Microsoft JET Database Engine error '80040e37' The Microsoft Jet database engine cannot find the input table or query 'FORUM_SMILES2'. Make sure it exists and that its name is spelled correctly.
Could you please post the solution as I get the same error but when using MS SQL.
- - - - Microsoft OLE DB Provider for ODBC Drivers error '80040e37' [Microsoft][ODBC SQL Server Driver][SQL Server]Invalid object name 'FORUM_SMILES2'.
/scripts/internet/forum/admin_smiles.asp, line 143 - - - -
I guess I should add something to the tables in the database? But how?
Sorry I haven't been on here in a while. I just recieved your email Here's what you have to do. I kinda felt stupid posting the solution to this problem: All you have to do is install the database. Go to Admin Options--->MOD Setup--->SmileManager Plus and install it. After that go to Add Default Smilies and install that. After that it should be working.
That's what I didn't do. I completely overlooked it. I've been used to not having to install my MODs. I've got ones that only take editing some files and adding some other ones.
'############# SmileManager Plus MOD ################ line 940
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 (where's the end if for this?
if strRqMethod = "Edit" or strRqMethod = "EditTopic" or _ (where's the end if for this?
strRqMethod = "Reply" or strRqMethod = "ReplyQuote" or _
strRqMethod = "Topic" or strRqMethod = "TopicQuote" then
%>
<!--#INCLUDE FILE="inc_smilies.asp" -->
<%
'####################################################
'################################## 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
'####EVENTS CALENDAR MOD#########
elseif Request.QueryString("event")="1" or isevent="1" then
Response.Write strCalEventDetails
'################################
Looks like weeweeslap knew what you were talking about but I havent a clue. I am getting the exact same error. You said
quote: (where's the end if for this?
So, here is my question. Where do I put the end if? Or what do I do? Thanks!
It looks like the "end if" code was deleted or moved when you added the Poll MOD. There are a number of topic discussing how to integrate the two MODs.
This is how my code looks, and should fix your problem.
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
Topic Locked
Posted - 30 April 2003 : 16:33:47
