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
 using Slemmie poll - error in topic.asp
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

mama2000
Junior Member

Canada
100 Posts

Posted - 12 April 2001 :  00:54:16  Show Profile  Visit mama2000's Homepage
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  Show Profile
<%	if (AdminAllowed = 1 or rs("MEMBER_ID") = Member_ID) or (strNoCookies = "1") then %>
Delete the tag in red.

Go to Top of Page

mama2000
Junior Member

Canada
100 Posts

Posted - 12 April 2001 :  01:16:36  Show Profile  Visit mama2000's Homepage
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
Go to Top of Page

Davio
Development Team Member

Jamaica
12217 Posts

Posted - 12 April 2001 :  15:49:17  Show Profile
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.

Go to Top of Page

mama2000
Junior Member

Canada
100 Posts

Posted - 13 April 2001 :  01:50:24  Show Profile  Visit mama2000's Homepage
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
Go to Top of Page

Davio
Development Team Member

Jamaica
12217 Posts

Posted - 13 April 2001 :  18:14:30  Show Profile
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.

Go to Top of Page

mama2000
Junior Member

Canada
100 Posts

Posted - 13 April 2001 :  20:17:25  Show Profile  Visit mama2000's Homepage
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
Go to Top of Page

Davio
Development Team Member

Jamaica
12217 Posts

Posted - 13 April 2001 :  20:43:42  Show Profile
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.

Go to Top of Page

mama2000
Junior Member

Canada
100 Posts

Posted - 14 April 2001 :  02:12:36  Show Profile  Visit mama2000's Homepage
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
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 0.34 seconds. Powered By: Snitz Forums 2000 Version 3.4.07