|
TwistedTJ
Starting Member
USA
14 Posts |
 Posted - 28 December 2004 : 23:59:27
|
I have Snitz 3.4.5 With Active users mod, private Messages mod, and avatar mod. Using Mysql database.
Tried installing New Events Calendar Mod by Red1.
Getting this error
Microsoft VBScript compilation error '800a03ea'
Syntax error
/forum/forum.asp, line 693
sub PostNewTopic()
^
Here is what I have at that spot
sub PostNewTopic()
if Cat_Status = 0 or Forum_Status = 0 then
if (AdminAllowed = 1) then
Response.Write " <a href=""post.asp?method=Topic&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconFolderLocked,"Category Locked","align=""absmiddle""") & "</a> <a href=""post.asp?method=Topic&FORUM_ID=" & Forum_ID & """>New Topic</a><br />" & vbNewLine
else
Response.Write " " & getCurrentIcon(strIconFolderLocked,"Category Locked","align=""absmiddle""") & " Category Locked<br />" & vbNewLine
end if
else
if Forum_Status <> 0 then
Response.Write " <a href=""post.asp?method=Topic&FORUM_ID=" & Forum_ID & """>" & getCurrentIcon(strIconFolderNewTopic,"New Topic","align=""absmiddle""") & "</a> <a href=""post.asp?method=Topic&FORUM_ID=" & Forum_ID& """>New Topic</a><br />" & vbNewLine
else
Response.Write " " & getCurrentIcon(strIconFolderLocked,"Forum Locked","align=""absmiddle""") & " Forum Locked<br />" & vbNewLine
end if
end if
' DEM --> Start of Code added to handle subscription processing.
if (strSubscription < 4 and strSubscription > 0) and (Cat_Subscription > 0) and Forum_Subscription = 1 and (mlev > 0) and strEmail = 1 then
Response.Write " "
if InArray(strForumSubs, Forum_ID) then
Response.Write ShowSubLink ("U", Cat_ID, Forum_ID, 0, "Y") & vbNewLine
elseif strBoardSubs <> "Y" and not(InArray(strCatSubs,Cat_ID)) then
Response.Write ShowSubLink ("S", Cat_ID, Forum_ID, 0, "Y") & vbNewLine
end if
end if
' DEM --> End of code added to handle subscription processing.
end sub
Any help would be greatly appreciated. |
|
Topic Locked
