| Author |
 Topic  |
|
|
mythrasus
Starting Member
2 Posts |
 Posted - 11 December 2001 : 04:27:59
|
Hi,
I have a board thats been running fairly error free for the last couple of months, then all of a sudden my users start getting this following error:
error '80020009'
Exception occurred.
/forums/inc_functions.asp, line 1298
The error stops the users seeing any of the available forums, however I've found clicking the Active Topics link then the All Forums brings it all back without errors.
I would be really gratefull if anyone has any clus how to fix this, I havent changed or added anything recently in fact nothing since the board went live.
Thanks in advance
Andrew
|
|
|
Davio
Development Team Member
Jamaica
12217 Posts |
Posted - 11 December 2001 : 04:31:50
|
Well, now that you have given us the error, you can now give us some more information so we can help you.
What is on your line 1298 in your inc_functions.asp file? And can you also post 10 lines before that?
What version of the forums are you using?
- David |
 |
|
|
mythrasus
Starting Member
2 Posts |
Posted - 11 December 2001 : 04:52:30
|
Sorry, I missed that, again thanks in advance, I'm using version 3.3
Heres the function call:
function chkDisplayForum(fForum_ID)
dim strSql
dim rsAccess
if (mlev = 4) then
chkDisplayForum= true
exit function
end if
'## Forum_SQL - load the user list
strSql = "SELECT " & strTablePrefix & "FORUM.F_PRIVATEFORUMS, " & strTablePrefix & "FORUM.F_PASSWORD_NEW "
strSql = strSql & " FROM " & strTablePrefix & "FORUM "
strSql = strSql & " WHERE FORUM_ID = " & ChkString(fForum_ID, "SQLString")
Set rsAccess = Server.CreateObject("ADODB.Recordset")
rsAccess.open strSql, my_Conn
select case rsAccess("F_PRIVATEFORUMS")
The last line in bold is the error line: Lines after that are
case 0, 1, 2, 3, 4, 7, 9
chkDisplayForum = true
rsAccess.close
set rsAccess = nothing
exit function
case 5
UserNum = getNewMemberNumber()
if UserNum = - 1 then
chkDisplayForum = false
rsAccess.close
set rsAccess = nothing
exit function
else
chkDisplayForum = true
rsAccess.close
set rsAccess = nothing
exit function
end if
case 6
UserNum = getNewMemberNumber()
if UserNum = - 1 then
chkDisplayForum = false
rsAccess.close
set rsAccess = nothing
exit function
end if
MatchFound = isAllowedMember(fForum_ID,UserNum)
if MatchFound = 1 then
chkDisplayForum = true
Else
chkDisplayForum = false
end if
case 8
chkDisplayForum = false
if strAuthType ="nt" THEN
NTGroupSTR = Split(strNTGroupsSTR, ", ")
for j = 0 to ubound(NTGroupSTR)
NTGroupDBSTR = Split(rsAccess("F_PASSWORD_NEW"), ", ")
for i = 0 to ubound(NTGroupDBSTR)
if NTGroupDBSTR(i) = NTGroupSTR(j) then
chkDisplayForum = true
rsAccess.close
set rsAccess = nothing
exit function
end if
next
next
End if
case else
chkDisplayForum= true
end select
rsAccess.close
set rsAccess = nothing
end function
|
|
|
| |
Topic |
|
|
|
Topic Locked
