• dbs file - Copy this code and save as dbs_mute.asp - then update database
  

  Mute Mod
  [ALTER]
  MEMBERS
  ADD#M_MUTE#smallint#NULL#1
  [END]

  
  


• In inc_profile
  find this code line 471
  

  		if rs("MEMBER_ID") = intAdminMemberID then
  			Response.Write	"                      <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Administrator</font>" & vbNewLine & _
  					"                      <input type=""hidden"" value=""3"" name=""Level"">" & vbNewLine
  		else
  			Response.Write	"                      <select value=""1"" name=""Level"">" & vbNewLine & _
  					"                           <option value=""1"""
  			if rs("M_LEVEL") = 1 then Response.Write(" selected")
  			Response.Write	">Normal User</option>" & vbNewLine & _
  					"                           <option value=""2"""
  			if rs("M_LEVEL") = 2 then Response.Write(" selected")
  			Response.Write	">Moderator</option>" & vbNewLine & _
  					"                           <option value=""3"""
  			if rs("M_LEVEL") = 3 then Response.Write(" selected")
  			Response.Write	">Administrator</option>" & vbNewLine & _
  					"                      </select>" & vbNewLine
  		end if
  		Response.Write	"                      </td>" & vbNewLine & _
  				"                    </tr>" & vbNewLine
  

  
  ADD this right after
  

  '## Mute Mod ### ADD the code below ## If you remove this line ADD "& _" to the line above ################################################################################
                  Response.Write  "                    <tr>" & vbNewLine & _
  				"                      <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Mute Member: </font></b></td>" & vbNewLine & _
  				"                      <td bgColor=""" & strPopUpTableColor & """ valign=""top"">" & vbNewLine & _
  			        "                      <select value=""1"" name=""Mute"">" & vbNewLine & _
  			        "                           <option value=""1"""
  			        if rs("M_MUTE") = 1 then Response.Write(" selected")
  			        Response.Write	"> Off </option>" & vbNewLine & _
  				"                           <option value=""2"""
  			        if rs("M_MUTE") = 2 then Response.Write(" selected")
  			        Response.Write	"> On </option>" & vbNewLine & _
  					"                      </select>" & vbNewLine & _
  		        	"                      </td>" & vbNewLine & _
  				"                    </tr>" & vbNewLine
  '## End code add on ### THATS ALL OR INC_PROFILE ######################################################################################################
  

  
  


• In pop_profile
  find this code line 958
  

  				strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_AGE"
  				strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_DOB"
  				strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_MARSTATUS"
  				strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_SEX"
  

  
  ADD this line right after
  

  strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_MUTE"
  

  
  find this code line 1499
  

  					strSql = strSql & ", M_LEVEL = " & cLng("0" & Request.Form("Level"))
  

  
  ADD this line right after
  

  strSql = strSql & ", M_MUTE = " & cLng("0" & Request.Form("Mute"))
  

  
  


• In inc_func_common ADD this code close to the bottom, before the "%>"
  

  function chkMute(mID)
  
  	dim strSql
  	dim rs
  
  	'## Forum_SQL 
  	strSql ="SELECT MEMBER_ID "
  	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
  	strSql = strSql & " WHERE MEMBER_ID = " & clng(mID)
  	strSql = strSql & " AND M_MUTE = " & 1
  
  	Set rs = Server.CreateObject("ADODB.Recordset")
  	rs.open strSql, my_Conn
  
          if clng(mID) <> -1 then
  	        if rs.BOF or rs.EOF then
  		        chkMute = 0
  	        else
  		        chkMute = 1
  	        end if
          else
                  chkMute = 1
          end if
  
  	rs.close
  	set rs = nothing
  end function
  

  
  

sub PostingOptions()
if chkMute(MemberID) = 1 then 
	Response.Write	"          <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
	if (mlev = 4 or mlev = 3 or mlev = 2 or mlev = 1) or (lcase(strNoCookies) = "1") or (strDBNTUserName = "") then

if chkMute(MemberID) <> 1 then
        Response.Redirect "default.asp"
end if

quote:

---

Originally posted by wii

Thanks

Maybe I should upload a testforum for this ?

---