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
 Error message		  New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

mikeg001
Starting Member

6 Posts
Posted - 18 April 2002 :  09:35:52  Show Profile
When setting up the easy moderation mod i get this error when complete and goto the forum page. Iam not a asp programer so it makes no since to me Please help Thanks.

Microsoft VBScript compilation error '800a03ea'

Syntax error

/Default.asp, line 720

<img src=""" & strImageURL & "icon_edit_mod.gif" & """ border=""0"" alt=""Edit Moderators for this Category"" WIDTH=""12"" HEIGHT=""12""></a>" & vbNewLine
^

ruirib
Snitz Forums Admin

Portugal
26364 Posts
Posted - 18 April 2002 :  09:51:13  Show Profile  Send ruirib a Yahoo! Message
Please post the 5 or 10 lines before that one.

-------------------------------------------------
Installation Guide | Do's and Dont's | MODs
Go to Top of Page

mikeg001
Starting Member

6 Posts
Posted - 18 April 2002 :  10:16:56  Show Profile
sub CategoryAdminOptions()
if (mlev = 4) or (lcase(strNoCookies) = "1") then
if (rs("CAT_STATUS") <> 0) and (mlev = 4) then
Response.write vbNewLine & _
"<a href=""Javascript: openWindow3('pop_admin_moderators.asp?CatID=" & rs("CAT_ID") & "&ModType=Category')"">" & vbNewLine & _
<img src=""" & strImageURL & "icon_edit_mod.gif" & """ border=""0"" alt=""Edit Moderators for this Category"" WIDTH=""12"" HEIGHT=""12""></a>" & vbNewLine
end if
if (rs("CAT_STATUS") <> 0) then
Response.Write " <a href=""JavaScript:openWindow('pop_lock.asp?mode=Category&CAT_ID=" & rs("CAT_ID") & "&Cat_Title=" & chkString(rs("CAT_NAME"),"jsURLPath") & "')""><img src=""icon_lock.gif"" alt=""Lock Category"" border=0 hspace=0></a>" & vbNewline
else
Response.Write " <a href=""JavaScript:openWindow('pop_open.asp?mode=Category&CAT_ID=" & rs("CAT_ID") & "')""><img src=""icon_unlock.gif"" alt=""Un-Lock Category"" border=0 hspace=0></a>" & vbNewline
end if
if (rs("CAT_STATUS") <> 0) or (mlev = 4) then
Response.Write " <a href=""post.asp?method=EditCategory&CAT_ID=" & rs("CAT_ID") & "&Cat_Title=" & chkString(rs("CAT_NAME"),"urlpath") & """><img src=""icon_pencil.gif"" alt=""Edit Category Name"" border=0 hspace=0></a>" & vbNewline
end if
Response.Write " <a href=""JavaScript:openWindow('pop_delete.asp?mode=Category&CAT_ID=" & rs("CAT_ID") & "&Cat_Title=" & chkString(rs("CAT_NAME"),"JSurlpath") & "')""><img src=""icon_trashcan.gif"" alt=""Delete Category"" border=0 hspace=0></a>" & vbNewline
if (rs("CAT_STATUS") <> 0) or (mlev = 4) then
Response.Write " <a href=""post.asp?method=Forum&CAT_ID=" & rs("CAT_ID") & "&type=0""><img src=""icon_folder_new_topic.gif"" alt=""Create New Forum"" border=0 hspace=0></a>" & vbNewline
end if
if (rs("CAT_STATUS") <> 0) or (mlev = 4) then
Response.Write " <a href=""post.asp?method=URL&CAT_ID=" & rs("CAT_ID") & "&type=1""><img src=""icon_url.gif"" alt=""Create New Web Link"" border=0 hspace=0></a>" & vbNewline
end if
if (rs("CAT_STATUS") <> 0) or (mlev = 4) then
'## Forum_SQL
strSQL = "SELECT FORUM_ID FROM " & strTablePrefix & "FORUM WHERE CAT_ID=" & rs("CAT_ID")

Set rsArchive = Server.CreateObject("ADODB.Recordset")
rsArchive.open strSql, my_Conn
Go to Top of Page

ruirib
Snitz Forums Admin

Portugal
26364 Posts
Posted - 18 April 2002 :  10:49:22  Show Profile  Send ruirib a Yahoo! Message
You have a quote " missing:


sub CategoryAdminOptions() 
	if (mlev = 4) or (lcase(strNoCookies) = "1") then
if (rs("CAT_STATUS") <> 0) and (mlev = 4) then
			Response.write vbNewLine & _
			"<a href=""Javascript: openWindow3('pop_admin_moderators.asp?CatID=" & rs("CAT_ID") & "&ModType=Category')"">" & vbNewLine & _
			"<img src=""" & strImageURL & "icon_edit_mod.gif" & """ border=""0"" alt=""Edit Moderators for this Category"" WIDTH=""12"" HEIGHT=""12""></a>" & vbNewLine ...


-------------------------------------------------
Installation Guide | Do's and Dont's | MODs
Go to Top of Page

mikeg001
Starting Member

6 Posts
Posted - 18 April 2002 :  10:54:43  Show Profile
Thanks !!
Go to Top of Page

ruirib
Snitz Forums Admin

Portugal
26364 Posts
Posted - 18 April 2002 :  10:58:50  Show Profile  Send ruirib a Yahoo! Message
You are welcome .

-------------------------------------------------
Installation Guide | Do's and Dont's | MODs
Go to Top of Page

Ra1ney
Junior Member

United Kingdom
113 Posts
Posted - 07 May 2002 :  07:05:43  Show Profile
Had that error, fixed it - LOVELY
But for some reason I can't see the little 'm' icon on the Member's page, in fact it doesn't seem to have changed at all

What have I done wrong? Grrrr! It was easy as pie to implement, how come I broke it?? (rhetorical question...don't answer that ). It doesn't really matter as I can operate it from default, but curious why I can't get it to work properly...can anyone shed some light?

Ta!!
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.33 seconds. Powered By: Snitz Forums 2000 Version 3.4.07