Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 Add feature to display or hide email from users
 New Topic  Topic Locked
 Printer Friendly
Previous Page | Next Page
Author Previous Topic Topic Next Topic
Page: of 5

wii
Free ASP Hosts Moderator

Denmark
2632 Posts

Posted - 28 November 2000 :  11:13:04  Show Profile
is there anyone who has the file for this feature ?

thanks

Go to Top of Page

Mike108
Starting Member

United Kingdom
29 Posts

Posted - 01 December 2000 :  17:15:28  Show Profile  Visit Mike108's Homepage
i tried this

but no success, kept getting too many errors, some complete files would be nice

Mike

Go to Top of Page

wedont
Junior Member

Canada
344 Posts

Posted - 01 December 2000 :  23:13:30  Show Profile
Sorry,
I followed the instruction (except 'Mess''s funny caracters)But when go to "members", the e-mail address still
shows up ! in contact info, only when I
attempt to write do I see in the pop-up the notice (sorry, this mem....)
With the members with the 'No' value(hidden e-mail)There address shows twice (double)
? (ver3.1sr2)
Could 'MesS' be right?(in a funny way !!!)

Wedont



Edited by - wedont on 01 December 2000 23:15:45

Edited by - wedont on 01 December 2000 23:25:18
Go to Top of Page

Davio
Development Team Member

Jamaica
12217 Posts

Posted - 02 December 2000 :  23:53:44  Show Profile
Alright guys, here is the zip file with all the files that you need to edit for this mod. You can easily replace your current files with the ones in the zip or if you want to add the code manually into your files, everything has been commented in the files so you can easily copy and paste the code. Only slight modification i made to the mod is that I changed the 'HideEmail' variable to 'strHideEmail', just for consistency. :-)

<link removed>

Used the files from v3.1 SR2.

<center><font color=green>*----*----*----*----*----*----*----*----*----*----*----*
<font size=2>"However, if you suffer as a Christian, do not be ashamed,
but praise God that you bear that name."</font id=size2>
1 Peter 4:16</font id=green></center>
Go to Top of Page

Mike108
Starting Member

United Kingdom
29 Posts

Posted - 03 December 2000 :  07:11:43  Show Profile  Visit Mike108's Homepage
Perfect!!!

Thanks

Go to Top of Page

wedont
Junior Member

Canada
344 Posts

Posted - 03 December 2000 :  16:21:13  Show Profile
Thanks, Its perfect...

Wedont

Go to Top of Page

Davio
Development Team Member

Jamaica
12217 Posts

Posted - 03 December 2000 :  22:49:23  Show Profile
I get a Data Type mismatch error with this mod when the Extended User profile isn't on. To fix it, open inc_profile.asp. You can do a search for "Email2". You should find 2 occurences. The mod has been added to the first occurence, need to add it to the second.
Add the following code to the second occurence as in the following:
<pre id=code><font face=courier size=2 id=code><INPUT type="hidden" name="Email2" value="<% =RS("M_EMAIL") %>"></font></td>
<% <font color=green>' ################### Hide Email Mod #######################</font id=green> %>
<font color=blue></tr>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right width="10%"" nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Hide Email: </font></b></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<% if (RS("M_HIDE_EMAIL") = 1) then %>
Yes<input type="radio" value="1" checked name="HideMail"> No<input type="radio" value="0" name="HideMail">
<% else %>
Yes<input type="radio" value="1" name="HideMail"> No<input type="radio" value="0" checked name="HideMail">
<% end if %>
</font></td></font id=blue>
<% <font color=green>' ##########################################################</font id=green> %>
</tr>
<% if strICQ = "1" then%></font id=code></pre id=code>

Lines in blue are what have been added.
I have already updated the zip file with the changes.

<center><font color=green>*----*----*----*----*----*----*----*----*
<font size=2>"If you're headed in the wrong direction,
God allows U-turns."</font id=size2>
*----*----*----*----*----*----*----*----*</font id=green></center>
Go to Top of Page

infinity
New Member

New Zealand
90 Posts

Posted - 04 December 2000 :  04:00:44  Show Profile  Visit infinity's Homepage
Davio,
Thanks for the ZIP file. Good of you to do that and much appreciated.

Regards,

Infinity

Life is but a dream... and that dream is Here and Now. Therefore, Be here Now.
Go to Top of Page

Davio
Development Team Member

Jamaica
12217 Posts

Posted - 04 December 2000 :  13:38:19  Show Profile
You're welcome. Glad to help. <img src=icon_smile.gif border=0 align=middle>

<center><font color=green>*----*----*----*----*----*----*----*----*
<font size=2>"If you're headed in the wrong direction,
God allows U-turns."</font id=size2>
*----*----*----*----*----*----*----*----*</font id=green></center>
Go to Top of Page

Hari Seldon
New Member

Italy
67 Posts

Posted - 15 December 2000 :  18:43:07  Show Profile
I've added the mod, but now when a new user want to register, after browser display the registration form it automatically came back the user, and he don't have time to write and complete the registration

Go to Top of Page

Davio
Development Team Member

Jamaica
12217 Posts

Posted - 15 December 2000 :  20:01:58  Show Profile
<BLOCKQUOTE id=quote><font size=1 face="Verdana, Arial, Helvetica" id=quote>quote:<hr height=1 noshade id=quote>
I've added the mod, but now when a new user want to register, after browser display the registration form it automatically came back the user, and he don't have time to write and complete the registration<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Verdana, Arial, Helvetica" size=2 id=quote>
You're being helped in another forum.
<center><font color=green>*----*----*----*----*----*----*----*----*
<font size=2>"To Get To Heaven,
It's Who You Know That Counts."</font id=size2>
*----*----*----*----*----*----*----*----*</font id=green></center>

Edited by - Davio on 15 December 2000 22:22:04
Go to Top of Page

rick7165
Senior Member

USA
1094 Posts

Posted - 22 January 2001 :  17:29:02  Show Profile  Visit rick7165's Homepage
I've got this mod installed, I can hide the email address, but can't unhide it.

Any clues?


UPDATE: Fixed!

Rick

My Demo Site
www.eastpasco.com

Edited by - rick7165 on 22 January 2001 17:59:12
Go to Top of Page

Huntress
New Member

USA
96 Posts

Posted - 03 March 2001 :  12:45:30  Show Profile  Visit Huntress's Homepage
Will this mod work with Version 3.1 SR4?

I did a file compare of the components and I see a number of differences between the two.

Not sure if I should proceeed with just file replacements, or if I should just extract the email mod code.

Wondering if anyone has simply taken the file and replaced the compnents as is with Version 3.1 SR4.

Thanks as always!

Go to Top of Page

lancepr
New Member

73 Posts

Posted - 06 March 2001 :  11:09:08  Show Profile
Is this available anywhere in d/l file?

Go to Top of Page

larango
Starting Member

Colombia
20 Posts

Posted - 16 March 2001 :  00:17:38  Show Profile
I reinstalled SR4 from SR2 ver 3.1 and the hidden email MOD had some bugs, but they are just in the instructions on how to set the MOD.

If you already have the MOD installed, the only files you have to fix are
register.asp
and
pop_profile.asp

Hope this instructions help. This instructions are modifications from the original instructions.

======(Version 3.1 SR4)

1/ Modify register.asp

At line 157 : strSql = strSql & ", M_EMAIL"
Add line 158 :
======
strSql = strSql & ", M_HIDE_EMAIL"
======

Rolling down a few lines -aprox line 202, after changes adding line 158-, you will see :
strSql = strSql & ", " & "'" & ChkString(Request.Form("Email"),"email") & "'"

Add one more line after it:
=======
strSql = strSql & ", " & "'" & Request.Form("HideMail") & "'"
=======

3/ Modify pop_profile.asp

Make sure this string exist in Case "display" , "goEdit" and "goModify" -in Ver 3.1 SR4 the strings already exist:
strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_HIDE_EMAIL "

a. In Case "display" :
after line : strMyBio = rs("M_BIO")
insert this line :
=======
strHideMail = rs("M_HIDE_EMAIL")
=======

Then roll down a little bit untill you see this line:
<td bgColor=<% =strPopUpTableColor %> align=right width="10%" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Email Address: </font></td>

Insert these line after it:
=======
<% if(HideMail = 0) then %>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> <a href= "JavaScript:openWindow('pop_mail.asp?id=<% =rs("MEMBER_ID") %>')"><% =ChkString(rs("M_EMAIL"), "display") %></a> </font></td>
<% else %>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> Hidden Email </font></td>
<% end if %>

=====
Note: In these inserted lines I made a small correction from the original instructions.
Replacing:
JavaScript:openWindow('pop_mail.asp?id=<% =rs("MEMBER_ID") %>')"><% =rs("M_EMAIL") %>

in second line by

"JavaScript:openWindow('pop_mail.asp?id=<% =rs("MEMBER_ID") %>')"><% =ChkString(rs("M_EMAIL"), "display") %>

Then, DELETE the following line that should be the one next to the lines you just added.

=====
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> <a href="JavaScript:openWindow('pop_mail.asp?id=<% =rs("MEMBER_ID") %>')"><% =ChkString(rs("M_EMAIL"), "display") %></a> </font></td>
====
if you don't delete this line, when you check a profile of a member with a hidden email, you will find the "hidden email" text and besides that the real email.


c. In Case "EditIt" and "ModifyIt"
Look for these string (begin of SQL update)
strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " SET M_PASSWORD = '" & ChkString(Request.Form("Password"),"") & "', "
strSql = strSql & " M_COUNTRY = '" & ChkString(Request.Form("Country"),"") & "', "

Add this line after that :
=====
strSql = strSql & " M_HIDE_EMAIL = " & Request.Form("HideMail") & ", "
====

Warning: in case "ModifyIt"
There are not strings as mentioned in point c. -from original instructions-

strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " SET M_PASSWORD = '" & ChkString(Request.Form("Password"),"") & "', "
strSql = strSql & " M_COUNTRY = '" & ChkString(Request.Form("Country"),"") & "', "


instead these are the strings

strSql = "SELECT M_NAME FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE M_NAME = '" & Trim(Request.Form("Name")) &"' "
strSql = strSql & " AND MEMBER_ID <> " & Trim(Request.Form("Member_ID")) &" "


after these I just added as instructed in point c. the line
===
strSql = strSql & " M_HIDE_EMAIL = " & Request.Form("HideMail") & ", "
===

But I don't know if it works or not. I gues it works.

Hope this helps

See you





Edited by - larango on 18 March 2001 00:47:14
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.09 seconds. Powered By: Snitz Forums 2000 Version 3.4.07