Users changing their own title.. - Snitz™ Forums 2000

The Forum has been Updated

The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.

Users changing their own title.. - Posted 23 May 2006 08:57 (1391 Views)

i011877

Junior Member

Posts: 169

169

Hmm this is not actually a MOD, but kindda.. I have seen this topic before, but are not able to find it

How do I change the code, so that users can change their own title in their profile?
Anyone..<

Posted 10 Jul 2006 04:09

Davecl

Junior Member

Posts: 105

105

Try these

changes made at line 224 in inc_profile.asp
1204 in pop_profile.asp

www.parrotlinks.com/profile.rar
let me know when you got it then i can take it down<

Dave

Last edited by Davecl on 10 July 2006, 04:11

Posted 10 Jul 2006 05:37

i011877

Junior Member

Posts: 169

169

Nope did not work, ****! Can not even show the profile, when I click a member.
Thanks for giving it a shot anyway

Posted 11 Jul 2006 04:15

Davecl

Junior Member

Posts: 105

105

mmm maybe some conflicting mods or something.. sorry i couldn't help

Dave

Posted 27 Jul 2006 15:56

i011877

Junior Member

Posts: 169

169

inc_profile:

Code:

if strMode = "goModify" or (strMode = "goEdit" and (rs("M_POSTS") >= CInt(intRankLevel1) or rs("M_LEVEL") > 1 ))then
	Response.Write " <tr>" & vbNewLine & _
	" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Titel:</font></b></td>" & vbNewLine & _
	" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Title"" size=""25"" maxLength=""50"" value=""" & CleanCode(rs("M_TITLE")) & """></font></td>" & vbNewLine & _
	" </tr>" & vbNewLine
	end if

pop_profile.asp:

Code:

set rs = my_conn.Execute("SELECT M_POSTS FROM " & strMemberTablePrefix & "MEMBERS WHERE M_NAME = '" & ChkString(Request.Form("Name"), "SQLString") & "'")
		if rs("M_POSTS") >= CInt(intRankLevel1) then
		strSql = strSql & " 	   M_TITLE = '" & ChkString(Request.Form("Title"),"SQLString") & "', "
		end if
		rs.Close
		set rs = nothing

WORKED!
Is there a problem with this solution?<

Posted 28 Jul 2006 02:13

Davecl

Junior Member

Posts: 105

105

can't see why this works yet it didn't before when all you've changed is the mlev check in pop_profile.asp which allowed mods & admins to change peoples titles.
can't see any problem with it though. <

Dave