View sig options for members

Snitz™ Forums 2000
https://forum.snitz.com/forumTopic/Posts/68234?pagenum=1
05 November 2025, 02:43

Topic

Lon2
View sig options for members
15 February 2009, 11:01


As admin (ID=1), I would like to be able to see, and perhaps change, the "View Signatures in Posts?" and "Signature checkbox checked by default?" drop-down menus in member's profile. Has this mod been done before?<

 

Replies ...

AnonJr
15 February 2009, 11:12


Never noticed that it didn't let you. What you need is likely in inc_profile.asp<
Lon2
15 February 2009, 12:51


Thanks Anon. I guess it would be nice to be available to members as well, in case they change their mind about the options after registration. I guess I'll see what I can do on my own. Hopefully I don't corrupt everything! bigsmile<
AnonJr
15 February 2009, 14:11


Members should be able to change it on their own, its just the Admins that don't seem to be able to change that on someone else's profile.<
Carefree
15 February 2009, 15:45


In "inc_profile.asp", search for the following line:
Code:

		if strMode <> "goModify" then
Change it to say:
Code:

		if strMode <> "goModify" or intAdminMemberID=MemberID then
<
Lon2
17 February 2009, 10:42


That was easy! Thank you Carefree! [^]
P.S. You can move this topic to your Mod w/Code forum. bigsmile<
Lon2
19 February 2009, 13:13


You are correct, AnonJr. As admin, when I change the options and submit, they don't stay changed. How involved would it be to change the code to allow this?<
AnonJr
19 February 2009, 16:21


Its been a while since I last looked at the profile code... couldn't say off the top of my head.<
Lon2
25 February 2009, 12:29


Ok strangest thing, after looking at the code in pop_profile.asp I noticed it was already there but commented out. What?
Code:
if strSignatures = "1" and strDSignatures = "1" then
     strSql = strSql & ", M_VIEW_SIG = " & cLng("0" & Request.Form("ViewSig"))
end if
if strSignatures = "1" then
     strSql = strSql & ", M_SIG_DEFAULT = " & cLng("0" & Request.Form("fSigDefault"))
end if
I uncommented the 6 lines and it works perfectly. Weird!
If anyone wants to add the code and don't already have it, insert the above 6 lines after this:

Code:
if strSignatures = "1" then
     strSql = strSql & ", M_SIG = '" & chkString(Request.Form("Sig"),"message") & "'"
end if
And before this:

Code:
strSql = strSql & ", M_LEVEL = " & cLng("0" & Request.Form("Level"))
Toward the end of case "ModifyIt" around line 1480 of an unmodified pop_profile.asp.
P.S. If anyone knows why it would have been commented out of the original, I would appreciate knowing why.
<
HuwR
25 February 2009, 13:02


it was probably commented out because the code was simply copied from the previous section, and it was deemed inappropriate for an admin to be able to set these values so they were commented out.
Why should it be the admins choice as to whether or not I can view signatures ?<
texanman
25 February 2009, 13:10


Hmmm mine is commented too. Anyway, what are you trying to do. I don't really get it.<
HuwR
25 February 2009, 13:34


everyones is commented out, it is commented out in the base code and allways has been.
he is trying to allow the admin the ability to change these values for a members profile, which currently is not possible.<
Lon2
25 February 2009, 14:15


Originally posted by HuwR
Why should it be the admins choice as to whether or not I can view signatures?
The reason we want to be able to change the settings is to help our forum members. We would not change the setting to view signatures if the member does not want to view them. Many times when our members sign up they set these two options to "No" not knowing exactly what they do or having an incorrect idea of what they do. Then they forget. We have had members ask why they can't see something that other members make reference to in a signature. You and I know the options are available in our profile but for new members, until they learn their way around, they'll never find it. I don't know how it is for you and any forums you run, but for ours, I would say less than half of all members actually read FAQs, instructions, policies, etc. Case in point, texanman above. No offense, texanman! bigsmile
It has always been our goal to try and educate our frequent visitors on the different features of our online applications and how they work. And it helps if they are as user friendly as possible.<
bobby131313
25 February 2009, 16:46


Many times when our members sign up they set these two options to "No" not knowing exactly what they do or having an incorrect idea of what they do. Then they forget.
Well this is funny, I come here and this topic is in the active topics and I just had this topic pop up in my support section a few hours ago. bigsmile<
texanman
25 February 2009, 17:26


Case in point, texanman above. No offense, texanman!
I invented the FAQS, what are you talking about??!!!!!!! wink I also invented the internet, right before Al Gore!!!!<
HuwR
26 February 2009, 01:38


so why not just tell them how to change them themselves ? after all changing them for them is not educating them. better to just tell them how to rather than rewrite the code so you can do it for them<
bobby131313
26 February 2009, 08:46


I agree, a picture is worth a thousand words. Teach a person to fish....<
garyrobar
28 February 2009, 17:51


sounds like you want to monitor the signatures of your members, and so thought you might find this useful...It's a quick view admin page I build to display members WITH profiles that include hyperlinks. It would be easy to mod for members with links in their signatures.
Code:

<%
response.write "<table cellpadding=""0"" cellspacing=""0""><tr><td>" & theMessageToShowNow & "</td></tr></table>"
%>

			
			<p>This table shows the contents of the url fields in the user profiles.</p> 		
			<table cellpadding="3" class="stattable" style="border-collapse: collapse;">
				<tr bgcolor="#e0e0e0">
					<td align="center">Member ID</td>
					<td align="center">Posts</td>
					<td align="center">Member Name</td>
					<td align="center">IP Address</td>
					<td align="center">Email</td>
					<td align="center">Links URLs</td>
					<td align="center">Signature URLs</td>
				</tr>
				<%	
dim gfn, grs, gSQL


Set gfn = Server.CreateObject("ADODB.Connection")
gfn.Open strdbpathforum
Set grs = Server.CreateObject("ADODB.RecordSet")

gSQL = "select * from forum_members where (m_homepage <> null and m_homepage <> '') or (m_link1 <> null and m_link1 <> '') or (m_link2 <> null and m_link2 <> '')"

grs.Open gSQL, gfn, adOpenStatic

if grs.eof then
	response.write "<tr><td> -na- </td><td>0</td><td>0</td></tr>"
else

	do while not grs.eof
	i=i+1
	
		response.write "<tr><td><a href=""_remove_links.asp?id=" & grs("member_id") & """>" & grs("member_id") & "</a></td><td>" & grs("m_posts") & "</td><td>" & grs("m_name") & "</td><td>" & grs("m_ip") & "</td>"
		response.write "<td>" & grs("m_email") & "</td><td>"
		
		if grs("m_homepage") = "" or isnull(grs("m_homepage")) or grs("m_homepage") = " " then
		else
			response.write "<strong>homepage:</strong> " & grs("m_homepage") & ""
		end if
		
		if grs("m_link1") = "" or isnull(grs("m_link1")) or grs("m_link1") = " " then
		else
			response.write "<br /><strong>Link 1:</strong> " & grs("m_link1") & ""
		end if

		if grs("m_link2") = "" or isnull(grs("m_link2")) or grs("m_link2") = " " then
		else	
			response.write "<br /><strong>Link 2:</strong> " & grs("m_link2") & ""
		end if
		
		response.write "</td><td>" & grs("m_sig") & "</td></tr>"
			
		grs.movenext
	
	loop
end if

grs.Close 
Set grs = Nothing 
gfn.Close 
Set gfn= Nothing
Set gSQL = Nothing
%>				
</table>
of course it's not the complete code, but it's what you need to dump a list of members with hyperlinks in their profile.
Carefree
01 March 2009, 00:21


Code:
	
		response.write "<tr><td><a href=""_remove_links.asp?id=" & grs("member_id") & """>" & grs("member_id") & "</a></td><td>" & grs("m_posts") & "</td><td>" & grs("m_name") & "</td><td>" & grs("m_ip") & "</td>"

Hey Gary, you have the code for your referenced link?
garyrobar
18 June 2009, 08:00


Originally posted by Carefree
Hey Gary, you have the code for your referenced link?

Yah, it's real simple/basic, and there is probably a better way, but here ya go...
[word of warning...this code is susceptible to SQL injection if available outside of your secure admin area. I have not accommodated for it, since this was my own little app...not available to public users of my site.]
Code:

<%	
dim gfn, grs, gSQL, m_id

'---get the id out of the querystring
m_id = request.querystring("id")


'---check for null id
'---check for empty id
'---check for val can't be converted to integer
if (isnull(m_id) or m_id = "") or isnumeric(m_id) = 0 then

	'---bad value passed, redirect to error page
    response.redirect "URL OF YOUR CHOICE---when error happens"
else

	'---convert string to integer
	m_id = cInt(m_id)

	'---open the connection
	Set gfn = Server.CreateObject("ADODB.Connection")
	gfn.Open strdbpathforum
	
	
	'---clear out their spammy crap
	upd = "update forum_members set m_homepage = null, m_link1 = null, m_link2 = null where member_id = " & m_id
	gfn.execute(upd)
	
	'---back to the list
	response.redirect "monitor_member_links.asp?done=1"
	
	
	'---close connections
	gfn.Close 
	Set gfn= Nothing
	Set upd = Nothing

end if
%>


© 2000-2021 Snitz™ Communications