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
 Active Users 4.0
 New Topic  Topic Locked
 Printer Friendly
Previous Page | Next Page
Author Previous Topic Topic Next Topic
Page: of 5

Rasyr
Junior Member

USA
199 Posts

Posted - 20 August 2002 :  08:14:05  Show Profile
ok, I made those changes, and I am now getting another error... <sigh>


Error Type:
Microsoft VBScript runtime (0x800A01C2)
Wrong number of arguments or invalid property assignment: 'chkForumAccess'
/iceforums/active_users.asp, line 449


The block of code this is in looks like this (with the error line in red):


case "reply"
strQuery = fQuery
fTopic_ID = analyzeQuery(strQuery, "TOPIC_ID")
strQuery = fQuery
fForum_ID = analyzeQuery(strQuery, "FORUM_ID")
if fTopic_ID = "" or fForum_ID = "" then
strPage = fLang(strLangMOD_Ls3kAU_01270)
else
strSql = "SELECT T_SUBJECT FROM " & strTablePrefix & "TOPICS WHERE TOPIC_ID=" & fTopic_ID
set rst = my_conn.execute(strSql)
if rst.EOF or rst.BOF then
strPage = fLang(strLangMOD_Ls3kAU_01270)
else
fSubject = rst("T_SUBJECT")
rst.close
set rst = nothing
if chkForumAccess(fForum_ID, MemberID) then
strPage = fLang(strLangMOD_Ls3kAU_01340) & "<br><a href=""link.asp?TOPIC_ID=" & fTopic_ID & """>"
strPage = strPage & fSubject
else
strOnlineLocation = fLang(strLangMOD_Ls3kAU_01350)
end if
end if
end if


PLease help... I just want to display the pages were a person is....

**TANSTAAFL**
Go to Top of Page

Rasyr
Junior Member

USA
199 Posts

Posted - 20 August 2002 :  08:15:54  Show Profile
but on the good side... my Active Users record and recod date ar enow working...

**TANSTAAFL**
Go to Top of Page

lir
New Member

USA
67 Posts

Posted - 20 August 2002 :  10:22:22  Show Profile
Try changing this:


if chkForumAccess(fForum_ID, MemberID) then


to this:


if chkForumAccess(fForum_ID, MemberID, false) then



lir
Go to Top of Page

lir
New Member

USA
67 Posts

Posted - 20 August 2002 :  10:24:19  Show Profile

BTW - I was able to replicate your *original* problem:

Microsoft VBScript runtime error '800a000d'

Type mismatch: '[string: ""]'

/forum/inc_func_common.asp, line 731

So I'll check it out and get back to you.


lir
Go to Top of Page

lir
New Member

USA
67 Posts

Posted - 20 August 2002 :  11:14:10  Show Profile
Nevermind,

Jan - thanks for the fix

lir
Go to Top of Page

masterao
Senior Member

Sweden
1678 Posts

Posted - 20 August 2002 :  11:18:10  Show Profile  Visit masterao's Homepage
No problems, lir.


Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod
Go to Top of Page

Nathan
Help Moderator

USA
7664 Posts

Posted - 20 August 2002 :  14:08:12  Show Profile  Visit Nathan's Homepage
Ok, heres the current bug list, let me know if I've missed anything.


  • Change "0" to "00000000000000"

  • Alirt 3.3.x upgrades who had 4.0 installed before that they dont need to update their db

  • active_users.asp missing an include

  • chkForumAccess is missing a property

  • missing those 4 cInt's

  • icons need changed to new system


Nathan Bales
CoreBoard | Active Users Download
Go to Top of Page

Rasyr
Junior Member

USA
199 Posts

Posted - 20 August 2002 :  14:40:00  Show Profile
quote:
Originally posted by lir

Try changing this:


if chkForumAccess(fForum_ID, MemberID) then


to this:


if chkForumAccess(fForum_ID, MemberID, false) then





will give it a try once I get home from work...

now, there are a number of thos function calls, should I make that change to all of them, or just the one?

**TANSTAAFL**
Go to Top of Page

lir
New Member

USA
67 Posts

Posted - 20 August 2002 :  14:44:15  Show Profile
Well, if you change it and it works, make it to all of them. But I didnt have to change mine...

lir
Go to Top of Page

Nathan
Help Moderator

USA
7664 Posts

Posted - 20 August 2002 :  14:55:53  Show Profile  Visit Nathan's Homepage
That might be because you don't have any private forums lir

Nathan Bales
CoreBoard | Active Users Download
Go to Top of Page

NOTONEOFUS
Starting Member

12 Posts

Posted - 20 August 2002 :  17:06:33  Show Profile
The forum access fixes arent working for me.
Go to Top of Page

lir
New Member

USA
67 Posts

Posted - 20 August 2002 :  17:10:53  Show Profile
quote:
Originally posted by Nathan

That might be because you don't have any private forums lir



ah, but i do....

lir
Go to Top of Page

masterao
Senior Member

Sweden
1678 Posts

Posted - 20 August 2002 :  17:31:55  Show Profile  Visit masterao's Homepage
active_users.asp worked fine for me, but didn't have any private forums on my test-server. I added a private forum, and tested to go into the private forum. Then I checked active_users.asp and I got the chkForumAccess error.

Error Type: Microsoft VBScript runtime (0x800A01C2) Wrong number of arguments or invalid property assignment: 'chkForumAccess' /iceforums/active_users.asp, line 449


So I changed the following line in every instance on active_users.asp(six instances):

if chkForumAccess(fForum_ID, MemberID) then

to

if chkForumAccess(fForum_ID, MemberID, true) then

Then it worked for me.


Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod
Go to Top of Page

Rasyr
Junior Member

USA
199 Posts

Posted - 20 August 2002 :  19:45:53  Show Profile
quote:
Originally posted by lir

quote:
Originally posted by Nathan

That might be because you don't have any private forums lir



ah, but i do....



but I don't have any private forums...

**TANSTAAFL**
Go to Top of Page

Nathan
Help Moderator

USA
7664 Posts

Posted - 20 August 2002 :  19:46:38  Show Profile  Visit Nathan's Homepage
lol, well, maybe thats it then.

Nathan Bales
CoreBoard | Active Users Download
Go to Top of Page
Page: of 5 Previous Topic Topic Next Topic  
Previous Page | Next Page
 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.38 seconds. Powered By: Snitz Forums 2000 Version 3.4.07