| Author |
 Topic Search  Topic Options
|
123Simples 
Senior Member
Joined: 08 July 2007
Location: United Kingdom
Status: Offline
Points: 1192
|
 Post Options
 Thanks(0)
 Quote  Reply
 Posted: 07 April 2009 at 4:27pm |
Thanks to Scotty who finalised the answer as shown here in this image:  Which is a person who is not logged in and they will only see that The answer is as above except, on lines 836 you would normally see this:
Response.Write(strTxtOurUserHavePosted & " " & FormatNumber(lngTotalNumberOfPosts, 0) & " " & strTxtPostsIn & " " & FormatNumber(lngTotalNumberOfTopics, 0) & " " & strTxtTopicsIn & " " & intNumberofForums & " " & strTxtForums & _
"<br />" & strTxtLastPost & "; " & DateFormat(dtmLastEntryDateAllForums) & " " & strTxtAt & " " & TimeFormat(dtmLastEntryDateAllForums) & " " & strTxtBy & " <a href=""member_profile.asp?PF=" & lngLastEntryUserIDAllForums & strQsSID2 & """ rel=""nofollow"">" & strLastEntryUserAllForums & "</a>")
'Display some statistics for the members
If lngNoOfMembers > 0 Then
Response.Write("<br />" & strTxtWeHave & " " & FormatNumber(lngNoOfMembers, 0) & " " & strTxtForumMembers & _
"<br />" & strTxtTheNewestForumMember & " <a href=""member_profile.asp?PF=" & saryMemebrStats(1,0) & strQsSID2 & """ rel=""nofollow"">" & saryMemebrStats(0, 0) & "</a>") |
Change those lines to this:
if intGroupID <> 2 then Response.Write(strTxtOurUserHavePosted & " " & FormatNumber(lngTotalNumberOfPosts, 0) & " " & strTxtPostsIn & " " & FormatNumber(lngTotalNumberOfTopics, 0) & " " & strTxtTopicsIn & " " & intNumberofForums & " " & strTxtForums & _
"<br />" & strTxtLastPost & "; " & DateFormat(dtmLastEntryDateAllForums) & " " & strTxtAt & " " & TimeFormat(dtmLastEntryDateAllForums) & " " & strTxtBy & " <a href=""member_profile.asp?PF=" & lngLastEntryUserIDAllForums & strQsSID2 & """ rel=""nofollow"">" & strLastEntryUserAllForums & "</a>")
'Display some statistics for the members
If lngNoOfMembers > 0 Then
if intGroupID <> 2 then Response.Write("<br />" & strTxtWeHave & " " & FormatNumber(lngNoOfMembers, 0) & " " & strTxtForumMembers & _
"<br />" & strTxtTheNewestForumMember & " <a href=""member_profile.asp?PF=" & saryMemebrStats(1,0) & strQsSID2 & """ rel=""nofollow"">" & saryMemebrStats(0, 0) & "</a>") |
The if intGroup ID <> 2 then makes the person who is not logged in not see the forum statistics
Edited by MrTWS - 08 April 2009 at 4:11pm
|
|
|
 |
Rudy81
Groupie
Joined: 11 November 2008
Location: Dallas, Texas
Status: Offline
Points: 53
|
Post Options
Thanks(0)
Quote Reply
Posted: 07 April 2009 at 5:28pm |
Thank you both very much. I will give it a try and report back.
How can I do the same thing for the Active Users? I know I can turn it on or off, but I would like it to be availabe to members, but not to non-registered users.
I'm grateful for your assistance.
|
|
123Simples
Senior Member
Joined: 08 July 2007
Location: United Kingdom
Status: Offline
Points: 1192
|
Post Options
Thanks(0)
Quote Reply
Posted: 07 April 2009 at 5:29pm |
|
It will be available to active users rudy, but not to non registered users
|
|
|
|
123Simples
Senior Member
Joined: 08 July 2007
Location: United Kingdom
Status: Offline
Points: 1192
|
Post Options
Thanks(0)
Quote Reply
Posted: 07 April 2009 at 5:30pm |
|
In other words registered users will see whois online and who posted what and when. People who turn up who have not registered or logged in will only see a blank
|
|
|
|
Rudy81
Groupie
Joined: 11 November 2008
Location: Dallas, Texas
Status: Offline
Points: 53
|
Post Options
Thanks(0)
Quote Reply
Posted: 07 April 2009 at 5:53pm |
|
Perfect, Thank you!
|
|
123Simples
Senior Member
Joined: 08 July 2007
Location: United Kingdom
Status: Offline
Points: 1192
|
Post Options
Thanks(0)
Quote Reply
Posted: 07 April 2009 at 5:56pm |
Your welcome  If you get stuck PM me or Scotty
|
|
|
|
Rudy81
Groupie
Joined: 11 November 2008
Location: Dallas, Texas
Status: Offline
Points: 53
|
Post Options
Thanks(0)
Quote Reply
Posted: 07 April 2009 at 11:37pm |
It worked, I was able to take remove the Forum Statistics to non-registered users.
How can I do the same for the Active users? I also PM'd you regarding same, but am posting here for the benefit of others.
|
|
123Simples
Senior Member
Joined: 08 July 2007
Location: United Kingdom
Status: Offline
Points: 1192
|
Post Options
Thanks(0)
Quote Reply
Posted: 08 April 2009 at 2:32pm |
Its pretty easy Rudy - on line 890 of the same default.asp file you will see this:
Response.Write(strTxtInTotalThereAre & " " & intActiveUsers & " <a href=""active_users.asp" & strQsSID1 & """>" & strTxtActiveUsers & "</a> " & strTxtOnLine & ", " & intActiveGuests & " " & strTxtGuests & ", " & intActiveMembers & " " & strTxtMembers & ", " & intAnonymousMembers & " " & strTxtAnonymousMembers)
If strMembersOnline <> "" Then Response.Write(vbCrLf & " <br />" & strTxtMembers & " " & strTxtOnLine & ": " & strMembersOnline)
End If |
Just change that to:
if intGroupID <> 2 then Response.Write(strTxtInTotalThereAre & " " & intActiveUsers & " <a href=""active_users.asp" & strQsSID1 & """>" & strTxtActiveUsers & "</a> " & strTxtOnLine & ", " & intActiveGuests & " " & strTxtGuests & ", " & intActiveMembers & " " & strTxtMembers & ", " & intAnonymousMembers & " " & strTxtAnonymousMembers)
If strMembersOnline <> "" Then Response.Write(vbCrLf & " <br />" & strTxtMembers & " " & strTxtOnLine & ": " & strMembersOnline)
End If |
Prefixing that line with as Scotty said: if intGroupID <> 2 thenAnd then active users too will not appear unless you are registered and logged in
Edited by MrTWS - 08 April 2009 at 4:12pm
|
|
|
|
