Changing the Thank you message

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

Topic

leesh695
Changing the Thank you message
02 March 2008, 18:40


I want the Thank you message in post_info.asp to add the users title and name at the end.
I know I can use "" & strDBNTUserName & "" to add the name but not sure of the title can anyone help me please? bigsmile
<

 

Replies ...

muzishun
02 March 2008, 19:15


There's really no "quick" way to do it, since the title is not stored in any forum variables. If you only want to use it in that one location, it would be as simple as running a quick SQL query to get the user's title from the database and use it on post_info.asp. However, if you think you'll want to use it in other places as well, you might consider adding the code to inc_header.asp and storing it in a variable for use throughout your site.<
leesh695
02 March 2008, 19:31


Thanks for the info bigsmile
Could you help me with the code for that please?
I really lack knowledge<
muzishun
02 March 2008, 19:49


I am on my way out the door just at the moment, but if nobody has replied when I get home this evening, I'll take a look. It should only be a couple lines of code.<
leesh695
02 March 2008, 19:51


Thanks alot smile<
muzishun
02 March 2008, 23:44


This is untested, but it should work for you. You can include it in post_info.asp or in inc_header.asp, which will give you a little more flexibility with using the title on other pages.
Code:
strSql = "SELECT M_TITLE FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID = " & MemberID

set rsMTitle = Server.CreateObject("ADODB.Recordset")
rsMTitle.open strSql, my_Conn

MemberTitle = rsMTitle("M_TITLE")

rsMTitle.close
set rsMTitle = nothing
<
leesh695
03 March 2008, 08:46


Worked Great, I included it in Inc_header.
Thanks loads bigsmile<
leesh695
03 March 2008, 09:31


Oh, I noticed an error when i include it in Inc_header, when people are not logged in.
"ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/forum/forum/inc_header.asp, line 595"

Its not really important, It works fine just in post_info.asp.
Thanks alot for writing this for me :)<
muzishun
03 March 2008, 10:55


You're welcome. I forgot to include a check for users who aren't logged in. It's a fairly simple change. Make this line:
Code:
MemberTitle = rsMTitle("M_TITLE")
Look like this:
Code:

if not (rsMTitle.BOF or rsMTitle.EOF) then
	MemberTitle = rsMTitle("M_TITLE")
end if
That'll cover your rear for users who aren't logged in.<
AnonJr
03 March 2008, 12:02


Why not do this instead? This way you don't hit the database if they aren't logged in... it will save you a little overhead in the long-run.
Code:
If mLev > 0 Then
	strSql = "SELECT M_TITLE FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID = " & MemberID

	set rsMTitle = Server.CreateObject("ADODB.Recordset")
	rsMTitle.open strSql, my_Conn
	
	MemberTitle = rsMTitle("M_TITLE")
	
	rsMTitle.close
	set rsMTitle = nothing
End If

There's probably an even better way of doing it during the login process, but I'd have to go back and dig up a clean copy of the code...<
muzishun
03 March 2008, 14:38


Good idea, Anon. I agree that it could probably be done more efficiently during the login process, but I was going for "quick and dirty" to save time.<
leesh695
03 March 2008, 15:38


Well, I have added the fix that anon posted because you both seem to agree thats better:p

Thanks again for everything bigsmile<
muzishun
03 March 2008, 17:47


You're quite welcome.<
cgcarter1
01 April 2008, 12:00


I decide that having the user's number of posts was better. For instance:
Thank you JohnQSmith for your 123456 posts!
This is how I changed your code...
If mLev > 0 Then
strSql = "SELECT M_POSTS FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID = " & MemberID

set rsMposts = Server.CreateObject("ADODB.Recordset")
rsMposts.open strSql, my_Conn

MemberPosts = rsMposts("M_POSTS")

rsMposts.close
set rsMposts = nothing
End If<
© 2000-2021 Snitz™ Communications