Here's the fix for the problem dimitris was having:
In inc_activeusers.asp make the following changes:
NOTE: before making these change, you need to carry out the changes in my previous reply (13 January 2002 22:16:21).
Line 78
Change from:
Forum_Subject = rst("F_SUBJECT")
intOnlineForumType = rst("FORUM_ID")
to:
If rst.BOF Or rst.EOF Then
Forum_Subject = Null
intOnlineForumType = Null
Else
Forum_Subject = rst("F_SUBJECT")
intOnlineForumType = rst("FORUM_ID")
End If
Line 87
Change from:
if ChkForumType(intOnlineForumType) then
strOnlineLocation = "Viewing Topics in: <a href=""link.asp?FORUM_ID=" & Request.QueryString("FORUM_ID") & """>"
strOnlineLocation = strOnlineLocation & TrimString(Forum_Subject, 25)
else
strOnlineLocation = "Viewing: <a href=""link.asp?FORUM_ID=" & Request.QueryString("FORUM_ID") & """>Private Forum"
end if
to:
If IsNull(intOnlineForumType) Then
strOnlienLocation = "Forum has been deleted!!"
Else
if ChkForumType(intOnlineForumType) then
strOnlineLocation = "Viewing Topics in: <a href=""link.asp?FORUM_ID=" & Request.QueryString("FORUM_ID") & """>"
strOnlineLocation = strOnlineLocation & TrimString(Forum_Subject, 25)
else
strOnlineLocation = "Viewing: <a href=""link.asp?FORUM_ID=" & Request.QueryString("FORUM_ID") & """>Private Forum"
end if
End If
Line 104
Change from:
Topic_Subject = rst("T_SUBJECT")
intOnlineForumType = rst("FORUM_ID")
to:
If rst.BOF Or rst.EOF Then
Topic_Subject = Null
intOnlineForumType = Null
Else
Topic_Subject = rst("T_SUBJECT")
intOnlineForumType = rst("FORUM_ID")
End If
Line 113
Change from:
if ChkForumType(intOnlineForumType) then
strOnlineLocation = "Viewing Topic: <a href=""link.asp?TOPIC_ID=" & Request.QueryString("TOPIC_ID") & """>"
strOnlineLocation = strOnlineLocation & TrimString(Topic_Subject, 25)
else
strOnlineLocation = "Viewing Topic in: <a href=""link.asp?TOPIC_ID=" & Request.QueryString("TOPIC_ID") & """>Private Forums"
end if
to:
If IsNull(intOnlineForumType) Then
strOnlineLocation = "Topic has been deleted!!"
Else
if ChkForumType(intOnlineForumType) then
strOnlineLocation = "Viewing Topic: <a href=""link.asp?TOPIC_ID=" & Request.QueryString("TOPIC_ID") & """>"
strOnlineLocation = strOnlineLocation & TrimString(Topic_Subject, 25)
else
strOnlineLocation = "Viewing Topic in: <a href=""link.asp?TOPIC_ID=" & Request.QueryString("TOPIC_ID") & """>Private Forums"
end if
End If
Line 128
Change from:
intOnlineForumType = rst("FORUM_ID")
to:
If rst.BOF Or rst.EOF Then
intOnlineForumType = Null
Else
intOnlineForumType = rst("FORUM_ID")
End If
Line 135
Change from:
if ChkForumType(intOnlineForumType) then
strOnlineLocation = "Replying To Message: <a href=""link.asp?TOPIC_ID=" & Request.QueryString("TOPIC_ID") & """>" & TrimString(Request.QueryString("Topic_Title"), 25)
else
strOnlineLocation = "Replying To Message in: <a href=""link.asp?TOPIC_ID=" & Request.QueryString("TOPIC_ID") & """>Private Forum"
end if
to:
If IsNull(intOnlineForumType) Then
strOnlineLocation = "Topic has been deleted!!"
Else
if ChkForumType(intOnlineForumType) then
strOnlineLocation = "Replying To Message: <a href=""link.asp?TOPIC_ID=" & Request.QueryString("TOPIC_ID") & """>" & TrimString(Request.QueryString("Topic_Title"), 25)
else
strOnlineLocation = "Replying To Message in: <a href=""link.asp?TOPIC_ID=" & Request.QueryString("TOPIC_ID") & """>Private Forum"
end if
End If