Author |
Topic  |
|
mama2000
Junior Member
 
Canada
100 Posts |
Posted - 12 April 2001 : 00:54:16
|
HI!
Here's the error Microsoft VBScript compilation error '800a0400' Expected statement /club/topic.asp, line 650 <% if (AdminAllowed = 1 or rs("MEMBER_ID") = Member_ID) or (strNoCookies = "1") then
Here's the code. Line 650 is purple. Oops.. goofed huh? Maybe I might just be missing a <% or something?
<% end if %> <% end if %> <% ' ############ Poll Mod - 1 line ########### if trim(rs("answer1")) = "" then <% if (AdminAllowed = 1 or rs("MEMBER_ID") = Member_ID) or (strNoCookies = "1") then %> <% ' ############ Poll Mod - 1 line ########### if ((rsCStatus("CAT_STATUS") <> 0) and (rsFStatus("F_STATUS") <> 0) and (rsTStatus("T_STATUS") <> 0)) or (mlev = 4 or mlev = 3) then %> <% if ((rsCStatus("CAT_STATUS") <> 0) and (rsFStatus("F_STATUS") <> 0) and (rsTStatus("T_STATUS") <> 0)) or (AdminAllowed = 1) then %> <a href="post.asp?method=EditTopic&REPLY_ID=<% =rs("TOPIC_ID") %>&TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&auth=<% =rs("T_AUTHOR") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>"><img src="<%=strImageURL %>icon_edit_topic.gif" height=15 width=15 alt="Edit Message" border="0" align="absmiddle" hspace="6"></a> <% end if %> <% end if %>
Thanks, I slapped back my back up copies for now..
:) Kelly http://theparentsite.com/club/default.asp |
|
Davio
Development Team Member
    
Jamaica
12217 Posts |
Posted - 12 April 2001 : 01:02:44
|
<% if (AdminAllowed = 1 or rs("MEMBER_ID") = Member_ID) or (strNoCookies = "1") then %> Delete the tag in red.
|
 |
|
mama2000
Junior Member
 
Canada
100 Posts |
Posted - 12 April 2001 : 01:16:36
|
I found and fixed a second one that I had like that.. now this one baffles me..
Microsoft VBScript compilation error '800a03f4' Expected 'If' /club/topic.asp, line 845 End Sub ----^
I mean.. how could I have goofed up so bad? I took three hours to add the code to the pages. :(
here's the line.. my_conn.Execute (strSql)
set rs = nothing
End Sub sub DisplayIP() usr = (chkForumModerator(Request.QueryString("FORUM_ID"), STRdbntUserName))
As far as I can tell, this is the "sub GetFirst()" if that helps..
Thanks...
Has anyone told you guys lately how wonderful you are?
:) Kelly http://theparentsite.com/club/default.asp |
 |
|
Davio
Development Team Member
    
Jamaica
12217 Posts |
Posted - 12 April 2001 : 15:49:17
|
You probably left out an end if somewhere. When you get errors on a page that you never had before, check the code you just added. Sometimes the error will point you to another file, when the error is where you just added some code.
Post a .txt version of your file and I'll see where the mistake is.
|
 |
|
mama2000
Junior Member
 
Canada
100 Posts |
Posted - 13 April 2001 : 01:50:24
|
Thanks, I spent a lot of time going through the page to see if I could figure something out for myself (for a change) I did find one commented line that had a %> at the end, I moved the %> to the next line (line 899), and tried it again, but the same error came up.
anyway, here's the file
http://theparentsite.com/club/topic.txt
Thanks so much
:) Kelly http://theparentsite.com/club/default.asp |
 |
|
Davio
Development Team Member
    
Jamaica
12217 Posts |
Posted - 13 April 2001 : 18:14:30
|
In the Sub Getfirst() code, you will find this code, starting at line 652:<% ' ############ Poll Mod - 1 line ########### if ((rsCStatus("CAT_STATUS") <> 0) and (rsFStatus("F_STATUS") <> 0) and (rsTStatus("T_STATUS") <> 0)) or (mlev = 4 or mlev = 3) then %> <% if ((rsCStatus("CAT_STATUS") <> 0) and (rsFStatus("F_STATUS") <> 0) and (rsTStatus("T_STATUS") <> 0)) or (AdminAllowed = 1) then %> Delete the code in red. That code was to be replaced by the poll code.
|
 |
|
mama2000
Junior Member
 
Canada
100 Posts |
Posted - 13 April 2001 : 20:17:25
|
hi, I got this error, added a comma in a line above the poll mod addition, now it works.
Microsoft JET Database Engine error '80040e14' Syntax error (missing operator) in query expression 'FORUM_TOPICS.T_MESSAGE FORUM_TOPICS.answer1'. /club/topic.asp, line 597
I may be back later, it doesn't seem to be working right, but I am going to give it a change to kick over to the newly uploaded pages. I can't seem to save the feature config or set a feature poll, and the only place I get an option to add a poll is when I am replying.. Things that drive me crazy!!
Thanks for your help!
:) Kelly http://theparentsite.com/club/default.asp |
 |
|
Davio
Development Team Member
    
Jamaica
12217 Posts |
Posted - 13 April 2001 : 20:43:42
|
Yeah I had seen that, but I forgot to mention. Glad you knew how to fix it. 
I think I'm probably gonna go over this poll mod and clean it up...sometime in the distant future. 
|
 |
|
mama2000
Junior Member
 
Canada
100 Posts |
Posted - 14 April 2001 : 02:12:36
|
OK.. Things seem to be working right, except for one thing. When I click on a forum, I get a 'New Topic' option only. When I am replying to a topic, I get the 'Add Poll' option. When I click on add poll, it does, and makes it a new 'topic' This is screwy isn't it? Have I added some code in the wrong place, but it still works? I have it set so members can't add polls, so I am the only one who sees this, but I would like to fix it, so I have the option.. Thanks...
:) Kelly http://theparentsite.com/club/default.asp |
 |
|
|
Topic  |
|