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: General / Classic ASP versions(v3.4.XX)
 Allow Forum Members to Send you E-Mail?		  New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

CXA001
Starting Member

Canada
8 Posts
Posted - 26 November 2009 :  22:54:29  Show Profile  Visit CXA001's Homepage
Hi all,

I would like to disable (or hide) the Allow Forum Members to Send you E-Mail? DropDown List that is displayed when a forum member edits their profile, so that they cannot change the setting that we have set. (M_RECEIVE_EMAIL=0)

Any help on how to do this would be appreciated.
Edited by - CXA001 on 26 November 2009 22:55:06

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 27 November 2009 :  06:38:37  Show Profile
in "inc_profile.asp"

Delete the following lines (appx 652-671):

		Response.Write	"                    <tr valign=""middle"">" & vbNewLine & _
				"                      <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" width=""10%"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Allow Forum Members<br />to Send you E-Mail?: </font></b></td>" & vbNewLine
		if strMode = "Register" then
			Response.Write	"                      <td bgColor=""" & strPopUpTableColor & """ valign=""middle""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
					"                      <select name=""ReceiveEMail"">" & vbNewLine & _
					"                      	<option value=""1"" selected>Yes</option>" & vbNewLine & _
					"                      	<option value=""0"">No</option>" & vbNewLine & _
					"                      </select></font></td>" & vbNewLine
		else
			Response.Write	"                      <td bgColor=""" & strPopUpTableColor & """ valign=""middle""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & vbNewLine & _
					"                      <select name=""ReceiveEMail"">" & vbNewLine & _
					"                      	<option value=""1"""
			if rs("M_RECEIVE_EMAIL") <> "0" then Response.Write(" selected")
			Response.Write	">Yes</option>" & vbNewLine & _
					"                      	<option value=""0"""
			if rs("M_RECEIVE_EMAIL") = "0" then Response.Write(" selected")
			Response.Write	">No</option>" & vbNewLine & _
					"                      </select></font></td>" & vbNewLine
		end if
		Response.Write	"                    </tr>" & vbNewLine



Delete the following lines (appx 81-100):

		Response.Write	"                    <tr valign=""middle"">" & vbNewLine & _
				"                      <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" width=""10%"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Allow Forum Members<br />to Send you E-Mail?: </font></b></td>" & vbNewLine
		if strMode = "Register" then
			Response.Write	"                      <td bgColor=""" & strPopUpTableColor & """ valign=""middle""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
					"                      <select name=""ReceiveEMail"">" & vbNewLine & _
					"                      	<option value=""1"" selected>Yes</option>" & vbNewLine & _
					"                      	<option value=""0"">No</option>" & vbNewLine & _
					"                      </select></font></td>" & vbNewLine
		else
			Response.Write	"                      <td bgColor=""" & strPopUpTableColor & """ valign=""middle""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & vbNewLine & _
					"                      <select name=""ReceiveEMail"">" & vbNewLine & _
					"                      	<option value=""1"""
			if rs("M_RECEIVE_EMAIL") <> "0" then Response.Write(" selected")
			Response.Write	">Yes</option>" & vbNewLine & _
					"                      	<option value=""0"""
			if rs("M_RECEIVE_EMAIL") = "0" then Response.Write(" selected")
			Response.Write	">No</option>" & vbNewLine & _
					"                      </select></font></td>" & vbNewLine
		end if
		Response.Write	"                    </tr>" & vbNewLine
Go to Top of Page

CXA001
Starting Member

Canada
8 Posts
Posted - 27 November 2009 :  08:18:42  Show Profile  Visit CXA001's Homepage
I did not actually delete the lines, just remarked them out and it works like a charm.

Thanks for the quick response.
Go to Top of Page
  Previous Topic Topic Next Topic  
 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.36 seconds. Powered By: Snitz Forums 2000 Version 3.4.07