Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/O Code)
 Hiding Members List - Private Forums

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
   

T O P I C    R E V I E W
ssneumann Posted - 06 February 2007 : 21:54:37
I have used these forums many times since launching one of my forums a few years ago and happy to say I have never had to register and ask a question... until now.

I have searched for a resolution for quite some time and get results but not for exactly what I am trying to accomplish. I hope someone can help me.

I operate a forum/message board as a feature on one of my community portals. I have several groups or councils that I have set up private forum areas reserved just for them. The problem is that these groups would like to use their real names as their usernames, ie. JohnDoe.

To them, this is great because it's like wearing a name tag at a conference. Of course, I have suggested they not do this, but am determined to find them a solution.

What they don't want is obvious - their usernames showing up in the member list and being visible to any registered member. They would like them to only be visible from inside their own private forum.

I know that it can be done by ranking level if I make them all moderators. I also know I can completely remove access to the member list, but don't want to do that either.

Sorry if this sounds stupid, but I can't seem to figure out the best way to do this. Any ideas?

<moved from="Help: General / Current Version (v3.4.xx)" by="Shaggy" /><
15   L A T E S T    R E P L I E S    (Newest First)
campinmom03 Posted - 04 February 2008 : 16:21:12
Here is the info I was able to get so that First, Last Name and Country was required upon registration along with *'s for those fields.

I would like to add, that I only wanted the those fields required upon registration. (If your looking for other fields to be required, do a search cause plenty of them will turn up). For those though that want what I did, go here:

http://forum.snitz.com/forum/topic.asp?TOPIC_ID=61025&SearchTerms=adding,first,and,last,name

The above link explains exactly how to get those fields required for members when they register. (Be sure to always back up before attempting any code changes). Once this has been implemented successfully, do the following below in pop_profile.asp only! (My site is loaded with mods, so I'm not sure where you would find the following code, but for mine the line needed was found on around 541)

Look for this block of code

Response.Write	"                    <tr>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """ align=""right"" nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Real Name: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & ChkString(rs("M_FIRSTNAME"), "display") & " " & ChkString(rs("M_LASTNAME"), "display") & "</font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if






Now add this line of code directly above the code you found.
if strFullName = "1" and mlev > 3 and (Trim(rs("M_FIRSTNAME")) <> "" or Trim(rs("M_LASTNAME")) <> "" ) then


So that it looks like this:

 if strFullName = "1" and mlev > 3 and (Trim(rs("M_FIRSTNAME")) <> "" or Trim(rs("M_LASTNAME")) <> "" ) then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """ align=""right"" nowrap valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Real Name: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strAltForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & ChkString(rs("M_FIRSTNAME"), "display") & " " & ChkString(rs("M_LASTNAME"), "display") & "</font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if


This last step just above, will only make the members First and Last name private from other members when they are viewing other members profiles, as that is all I needed. Again, if your looking to make other fields private do a search and you will find what your looking for... hopefully anyway.

I surely hope this helps someone in the future. <
AnonJr Posted - 04 February 2008 : 08:59:37
Being a Patriots fan, last night was a heart-breaker. At least it was a hard-fought game. I'll start a different topic for that though.

Glad you figured out what you needed. Just don't forget to share... <
campinmom03 Posted - 03 February 2008 : 17:26:06
JJenson,

I figured it out and it works! I'll post everthing I did to achieve this for the next member who wants this done.

The Super Bowl is gonna start soon. So I'll gather this all up and have it ready to post on this thread this week coming.

Go Giants!

<
campinmom03 Posted - 02 February 2008 : 19:51:05
JJenson, or maybe this code I found will work?

If (mLev >= 3) or (CLng(rs("MEMBER_ID")) = MemberId) Then
... display the fields here
end if

I tried it out with no luck. Profiles wouldn't come up at all. But then again maybe I added it to the wrong line. Not sure. At least I have some stuff to go on and check out.

Let me know what you think.<
campinmom03 Posted - 01 February 2008 : 20:50:08
JJenson, no problem. You know I had a thought. It might work but I wanted to run it by you to see if you think it would work.

I thought maybe I could use my bad word filter. The idea is to enter in the members name as a "bad word" and have XXX appear like a bad word would. I tried it and the name still appears as name instead of XXXX.

This would probably be a good solution if I could just figure out how to do it. Maybe less code work? What do you think?

<
JJenson Posted - 01 February 2008 : 12:52:15
I will take a look this weekend I am sorry I had some things come up outside of work I really had to take care of. But I haven't forgotten <
campinmom03 Posted - 31 January 2008 : 16:46:43
JJ here you go. So that you know, I did try your code. It wouldn't work that way. Our profiles wouldn't even show up. I tried another way, that didn't work either. Here are good txt copies of the successful changes I made earlier with the required fields for Firs and Last Name. On pop_ profile change is on 1123 - 1133, inc_profile change is on 355 - 368. If you need any other info let me know.

http://www.myfamilyforumz.com/inc_profile.txt

http://www.myfamilyforumz.com/pop_profile.txt

Thank you.<
JJenson Posted - 31 January 2008 : 15:10:39
Campinmom03

post a txt file of you pop_profile.asp and also inc_profile.asp<
campinmom03 Posted - 31 January 2008 : 13:58:59
JJ, I'm checking that now. The code I posted above in the scrollcode is actually from my in_profile.asp. (Sorry about that... still learning here) I will post my findings in just a bit. I have to stop to the market and then to pick up the kids. Be back as soon to let you know.<
JJenson Posted - 31 January 2008 : 13:33:19
Actually I believe you will want the change in both but I could be wrong on that.<
campinmom03 Posted - 31 January 2008 : 13:31:41
JJ, I think I made error above. I'm trying to sort it out now by following back through my steps. If my haunch is correct, the appropriate change for what I'm wanting to do would not be in pop_profile.asp but rather inc_profile.asp.

I will let you know my findings in just a bit. Thanks for your help and patience. <
JJenson Posted - 31 January 2008 : 12:46:07
Yeah I got it . Basically you want to add the code in green above the if strfullname ="1" then and then add another end if after the one in the code you posted above.<
campinmom03 Posted - 31 January 2008 : 12:24:32
JJ,

I have never done that... bear with me. When you say wrap, do you mean that I should add that bit of code above the strFullname= "1"?

BTW, did you get the email with the attached file I sent. If not, I'll re-send it. <
JJenson Posted - 31 January 2008 : 12:11:57
OK lets give this a shot you have the required mod working here as well I was just going of the base version.

basically that whole chunk of code you will just wrap the mlev code in the mlev code

if mlev=4 then
if strFullBane = "1" then
rest of the code
end if
end if<
campinmom03 Posted - 31 January 2008 : 11:59:45
AnonJr sorry about that.. really. I am using 3.4.06

if strFullName = "1" then
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Firstname: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""FirstName"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(rs("M_FIRSTNAME"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><font color=""" & strHiLiteFontColor & """>*</font> Surname: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""LastName"" size=""25"" maxLength=""50"" value="""
if strMode <> "Register" then Response.Write(rs("M_LASTNAME"))
Response.Write """></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if


This is what I have in inc_profile.asp (edited to show correct file that this code came from)<

Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.05 seconds. Powered By: Snitz Forums 2000 Version 3.4.07