| Author |
 Topic  |
|
red1
Junior Member
355 Posts |
|
|
The Impact
Junior Member
Australia
398 Posts |
 Posted - 25 January 2005 : 10:05:06
|
I've installed it, was quite quick and easy. The change in inc_header.asp won't work, you should just add <!--#include file="active_users_inc.asp"--> to the bottom of the page.
On default.asp there seems to be some table layout problems as well.
Just out of interest, what's wrong with using a database to store Active Users ?  Nice MOD overall though, simple but gets the job done. |
 |
|
|
Podge
Support Moderator
Ireland
3775 Posts |
|
|
mama2000
Junior Member
Canada
100 Posts |
Posted - 25 January 2005 : 12:41:21
|
Does this need the other mod installed or is this stand alone? I added the files and updated the changes, but I am not seeing anything show up. Show Detailed Statistics is on.
Thaks,
Kelly |
:)
Kelly
http://atruckerswife.com/community/ |
|
|
|
mama2000
Junior Member
Canada
100 Posts |
Posted - 25 January 2005 : 12:56:28
|
on active_users I get this:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'UBound'
/community/active_users.asp, line 57
That line is:
For intPassNumber = 1 To UBound(saryActiveUsers, 2) |
|
|
|
mama2000
Junior Member
Canada
100 Posts |
Posted - 25 January 2005 : 19:18:11
|
I had added it, but switched back to the back up files. I just checked the changed files, uploaded them again and it worked. Sorry, not sure what happened there.
Thanks for this.. it's perfect for what I need. (I just removed some specifics on the active_users page. I think some folks get a little freaked out seeing that you know their OS, IP etc...) |
:)
Kelly
http://atruckerswife.com/community/ |
|
|
|
measlick
Starting Member
1 Posts |
Posted - 26 January 2005 : 00:02:40
|
Hey, I gave it a shot, works great, no DB needs, really flippin cool man...
Thanks! |
|
|
|
groggo
Starting Member
Belarus
35 Posts |
Posted - 26 January 2005 : 01:00:29
|
works great  |
quote:
why did you not post this at Snitz?
The main reasons why this was not posted at Snitz and why I might not post the bugs I find
directly at Snitz anymore are the ways "ruirib and HuwR" take pleasure to criticize just about
anything I post and seem to resent the fact that I want to improve and correct Snitz which, I agree,
serve as the original base for my own Forum.
These are some of the actions I find unacceptable:
ruirib and HuwR take fun to Delete some of my topics, of my replies, locked or move my topic.
A topic posted last week from me to Davio in "Help: MOD Implementation" Forum as been deleted.
Two replies in my topic as been deleted about a bug on snitz topic page:
http://forum.snitz.com/forum/topic.asp?whichpage=5.96&TOPIC_ID=44136#372029
A Fix to texanman as been deleted (first reply to texanman subject):
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=66162
One of my Multi-Language Topic on Snitz has disappeared last night
Multi-Language and Multi-Language Skin3D
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=40765
etc...
3 times I changed my password and the day after the same game start.
Since I send to HuwR a donation of $200 on December 22, 2006
this guy HuwR has never stop to pick on every thing I post on the Snitz Forum. |
|
|
|
groggo
Starting Member
Belarus
35 Posts |
Posted - 26 January 2005 : 02:03:42
|
whoops thought it worked when i load a topic
is this line correct
if strCountry = "1" and trim(Reply_MemberCountry) <> "" then
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Reply_MemberCountry & "</small></font><br />" & vbNewLine
If Instr(strMembersOnline,Reply_Author & Reply_Membername) > 0 then response.write getCurrentIcon(strIconOnline,"Online","align=""absmiddle""") & "<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small><b>online</b></small></font><br/>" _ else response.write getCurrentIcon(strIconOffline,"Offline","align=""absmiddle""") & "<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>offline</small></font><br/>"
end if
|
quote:
why did you not post this at Snitz?
The main reasons why this was not posted at Snitz and why I might not post the bugs I find
directly at Snitz anymore are the ways "ruirib and HuwR" take pleasure to criticize just about
anything I post and seem to resent the fact that I want to improve and correct Snitz which, I agree,
serve as the original base for my own Forum.
These are some of the actions I find unacceptable:
ruirib and HuwR take fun to Delete some of my topics, of my replies, locked or move my topic.
A topic posted last week from me to Davio in "Help: MOD Implementation" Forum as been deleted.
Two replies in my topic as been deleted about a bug on snitz topic page:
http://forum.snitz.com/forum/topic.asp?whichpage=5.96&TOPIC_ID=44136#372029
A Fix to texanman as been deleted (first reply to texanman subject):
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=66162
One of my Multi-Language Topic on Snitz has disappeared last night
Multi-Language and Multi-Language Skin3D
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=40765
etc...
3 times I changed my password and the day after the same game start.
Since I send to HuwR a donation of $200 on December 22, 2006
this guy HuwR has never stop to pick on every thing I post on the Snitz Forum. |
Edited by - groggo on 26 January 2005 02:04:29 |
|
|
|
MarcelG
Retired Support Moderator
Netherlands
2625 Posts |
Posted - 26 January 2005 : 03:51:27
|
Mmmm...sounds quite interesting.
Just wondering ; how would this perform if there were let's say 50 active users and 100 guests? Will it be faster/just as fast/slower compared to the 'old active users' mod ? |
portfolio - linkshrinker - oxle - twitter |
|
|
|
groggo
Starting Member
Belarus
35 Posts |
Posted - 26 January 2005 : 05:07:04
|
quote:
Originally posted by red1
groggo: That's almost correct. You're supposed to insert the "If Instr" line *after* the end if, like so:
if strCountry = "1" and trim(Reply_MemberCountry) <> "" then
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Reply_MemberCountry & "</small></font><br />" & vbNewLine
end if
If Instr(strMembersOnline, Reply_Author & Reply_Membername) > 0 then response.write getCurrentIcon(strIconOnline,"Online","align=""absmiddle""") & "<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small><b>online</b></small></font><br/>" _
else response.write getCurrentIcon(strIconOffline,"Offline","align=""absmiddle""") & "<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>offline</small></font><br/>"
marcelgoertz: Using variables in memory is always faster than database access
thanks i thought i was close hehehe awesome mod  |
quote:
why did you not post this at Snitz?
The main reasons why this was not posted at Snitz and why I might not post the bugs I find
directly at Snitz anymore are the ways "ruirib and HuwR" take pleasure to criticize just about
anything I post and seem to resent the fact that I want to improve and correct Snitz which, I agree,
serve as the original base for my own Forum.
These are some of the actions I find unacceptable:
ruirib and HuwR take fun to Delete some of my topics, of my replies, locked or move my topic.
A topic posted last week from me to Davio in "Help: MOD Implementation" Forum as been deleted.
Two replies in my topic as been deleted about a bug on snitz topic page:
http://forum.snitz.com/forum/topic.asp?whichpage=5.96&TOPIC_ID=44136#372029
A Fix to texanman as been deleted (first reply to texanman subject):
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=66162
One of my Multi-Language Topic on Snitz has disappeared last night
Multi-Language and Multi-Language Skin3D
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=40765
etc...
3 times I changed my password and the day after the same game start.
Since I send to HuwR a donation of $200 on December 22, 2006
this guy HuwR has never stop to pick on every thing I post on the Snitz Forum. |
|
|
|
Chuck McB
Junior Member
WooYay
196 Posts |
Posted - 26 January 2005 : 08:12:15
|
quote:
marcelgoertz: Using variables in memory is always faster than database access
Anyone know the memory footprint of a application variable? |
|
|
|
johnny bravo
New Member
78 Posts |
Posted - 26 January 2005 : 11:09:58
|
Red1
This is a really good MOD, Thanks very much
I have one small problem, The status shows up in the topic as offline when a user is offline.
If you would like to have a look my forum is www.elvethamheathforum.info/forum |
|
|
|
johnny bravo
New Member
78 Posts |
Posted - 26 January 2005 : 13:29:04
|
| Did you notice it works when I am loged in as Moderator |
|
|
|
red1
Junior Member
355 Posts |
Posted - 26 January 2005 : 13:45:53
|
No I didn't see. That would have been useful. Anyway, this one is guaranteed to work, just a bit slower:
1. remove all the edits you did (from this mod) with topic.asp
2. Find this:
if strCountry = "1" and trim(Reply_MemberCountry) <> "" then
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Reply_MemberCountry & "</small></font><br />" & vbNewLine
end if
Below that insert this:
blnUserFound = false
For i = 1 to Ubound(saryActiveUsers, 2)
if clng(Reply_MemberID) = clng(saryActiveUsers(1, i)) then
blnUserFound = true
exit for
end if
Next
If blnUserFound then response.write getCurrentIcon(strIconOnline,"Online","align=""absmiddle""") & "<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small><b>online</b></small></font><br/>" _
else response.write getCurrentIcon(strIconOffline,"Offline","align=""absmiddle""") & "<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>offline</small></font><br/>"
3. Find this:
if strCountry = "1" and trim(Member_Country) <> "" then
Response.Write " <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>" & Member_Country & "</small></font><br />" & vbNewLine
end if
below that insert this:
blnUserFound = false
For i = 1 to Ubound(saryActiveUsers, 2)
if clng(TMember_ID) = clng(saryActiveUsers(1, i)) then
blnUserFound = true
exit for
end if
Next
If blnUserFound then response.write getCurrentIcon(strIconOnline,"Online","align=""absmiddle""") & "<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small><b>online</b></small></font><br/>" _
else response.write getCurrentIcon(strIconOffline,"Offline","align=""absmiddle""") & "<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><small>offline</small></font><br/>"
sorry there were a bunch of typos there, had to edit a few times |
Edited by - red1 on 26 January 2005 13:51:37 |
|
|
|
johnny bravo
New Member
78 Posts |
Posted - 26 January 2005 : 14:00:26
|
Magic
Thanks very much for your help |
|
|
|
Topic |
|
Topic Locked
