Snitz Forums 2000 - events calender problem

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Help Groups for Snitz Forums 2000 Users

Help: MOD Implementation

events calender problem

New Topic

Topic Locked

Printer Friendly

Author

Topic

groggo
Starting Member

Belarus
35 Posts

Posted - 03 March 2005 : 06:33:51

im getting this error
Microsoft VBScript compilation error '800a0400'

Expected statement

/forums/forum.asp, line 772

end sub
^

i cant work out whats wrong in the code any ideas

sub ForumAdminOptions() 
	if (AdminAllowed = 1) then 
		if Cat_Status = 0 then 
			if mlev = 4 then
				Response.Write	"                <a href=""JavaScript:openWindow('pop_open.asp?mode=Category&CAT_ID=" & Cat_ID & "')"">" & getCurrentIcon(strIconFolderUnlocked,"Un-Lock Category","") & "</a>" & vbNewLine
			else
				Response.Write	"                " & getCurrentIcon(strIconFolderLocked,"Category Locked","") & vbNewLine
			end if 
		else 
			if Forum_Status <> 0 then
				Response.Write	"                <a href=""JavaScript:openWindow('pop_lock.asp?mode=Forum&FORUM_ID=" & Forum_ID & "&CAT_ID=" & Cat_ID & "')"">" & getCurrentIcon(strIconFolderLocked,"Lock Forum","") & "</a>" & vbNewLine
			else
				Response.Write	"                <a href=""JavaScript:openWindow('pop_open.asp?mode=Forum&FORUM_ID=" & Forum_ID & "&CAT_ID=" & Cat_ID & "')"">" & getCurrentIcon(strIconFolderUnlocked,"Un-Lock Forum","") & "</a>" & vbNewLine
			end if 
		end if 
		if (Cat_Status <> 0 and Forum_Status <> 0) or (AdminAllowed = 1) then
			Response.Write	"                <a href=""post.asp?method=EditForum&FORUM_ID=" & Forum_ID & "&CAT_ID=" & Cat_ID & "&type=0"">" & getCurrentIcon(strIconFolderPencil,"Edit Forum Properties","hspace=""0""") & "</a>" & vbNewLine
		end if 
		if mLev = 4 or (lcase(strNoCookies) = "1") then
			Response.Write	"                <a href=""JavaScript:openWindow('pop_delete.asp?" & ArchiveLink & "mode=Forum&FORUM_ID=" & Forum_ID & "&CAT_ID=" & Cat_ID & "')"">" & getCurrentIcon(strIconFolderDelete,"Delete Forum","") & "</a>" & vbNewLine
			if strArchiveState = "1" then Response.Write("                <a href=""admin_forums.asp?action=archive&id=" & Forum_ID & """>" & getCurrentIcon(strIconFolderArchive,"Archive Forum","") & "</a>" & vbNewLine)
		end if
		' DEM --> Start of Code for Moderated Posting
	        if (UnModeratedPosts > 0) and (AdminAllowed = 1) then
			Response.Write "                <a href=""moderate.asp"">" & getCurrentIcon(strIconFolderModerate,"View All UnModerated Posts","") & "</a>" & vbNewline
	        end if
        	' DEM --> End of Code for Moderated Posting
	end if
end sub

sorry i posted the wrong mod its the events mod not the poll mod

quote:
why did you not post this at Snitz?

The main reasons why this was not posted at Snitz and why I might not post the bugs I find
directly at Snitz anymore are the ways "ruirib and HuwR" take pleasure to criticize just about
anything I post and seem to resent the fact that I want to improve and correct Snitz which, I agree,
serve as the original base for my own Forum.

These are some of the actions I find unacceptable:
ruirib and HuwR take fun to Delete some of my topics, of my replies, locked or move my topic.

A topic posted last week from me to Davio in "Help: MOD Implementation" Forum as been deleted.

Two replies in my topic as been deleted about a bug on snitz topic page:
http://forum.snitz.com/forum/topic.asp?whichpage=5.96&TOPIC_ID=44136#372029

A Fix to texanman as been deleted (first reply to texanman subject):
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=66162

One of my Multi-Language Topic on Snitz has disappeared last night
Multi-Language and Multi-Language Skin3D
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=40765

etc...

3 times I changed my password and the day after the same game start.

Since I send to HuwR a donation of $200 on December 22, 2006
this guy HuwR has never stop to pick on every thing I post on the Snitz Forum.

Edited by - groggo on 04 March 2005 06:58:45

Shaggy
Support Moderator

Ireland
6780 Posts

Posted - 03 March 2005 : 09:39:43

That's usually caused by a stray &_ elsewhere in the file. Double check any changes you may have made to forum.asp recently.

Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.”

modifichicci
Average Member

Italy
787 Posts

Posted - 03 March 2005 : 15:17:10

It could be also a missing end if
Try insert and end if before end sub and look what happens

Ernia e Laparocele
Forum di Ernia e Laparocele
Acces - MySql Migration Tutorial
Adamantine forum

Topic

New Topic

Topic Locked

Printer Friendly

Jump To:

Snitz Forums 2000

This page was generated in 0.25 seconds.