Snitz Forums 2000 - mini profile

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Help Groups for Snitz Forums 2000 Users

Help: MOD Implementation

mini profile

New Topic

Topic Locked

Printer Friendly

Author

Topic

cyberbuzz
Starting Member

Bhutan
7 Posts

Posted - 30 November 2005 : 20:46:52

useing the site intigration mod i have made a side bar the contains all the login, menu and other information in it. now i am trying to make a mini profile that will go under the login that contains all the inforamion that shows up when someone makes a post. i.e. name, avatar, # of posts and so on.

the only problem is i am a comple novice at asp code. i am more of a butcher then a coder i made this whole mod by taking script from other files. but i cant seem to get the connection to the database right. or something.

here is a link to my site (work in progress) http://landragon.somee.com

< Moved to Help: MOD Implementation by Shaggy />

quote:
why did you not post this at Snitz?

The main reasons why this was not posted at Snitz and why I might not post the bugs I find
directly at Snitz anymore are the ways "ruirib and HuwR" take pleasure to criticize just about
anything I post and seem to resent the fact that I want to improve and correct Snitz which, I agree,
serve as the original base for my own Forum.

These are some of the actions I find unacceptable:
ruirib and HuwR take fun to Delete some of my topics, of my replies, locked or move my topic.

A topic posted last week from me to Davio in "Help: MOD Implementation" Forum as been deleted.

Two replies in my topic as been deleted about a bug on snitz topic page:
http://forum.snitz.com/forum/topic.asp?whichpage=5.96&TOPIC_ID=44136#372029

A Fix to texanman as been deleted (first reply to texanman subject):
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=66162

One of my Multi-Language Topic on Snitz has disappeared last night
Multi-Language and Multi-Language Skin3D
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=40765

etc...

3 times I changed my password and the day after the same game start.

Since I send to HuwR a donation of $200 on December 22, 2006
this guy HuwR has never stop to pick on every thing I post on the Snitz Forum.

I have even received from HuwR and ruirib an e-mail threatening to ban me from Snitz Forum :

Hello

You received the following message from: ruirib (ruirib@ruirib.net)

At: http://forum.snitz.com/forum/

It was a pleasure to have you there, hope you enjoyed the ride ;).
And don't try to sneak in...

Goodbye ;).

Hey as_shole, I know it’s Davio who is a member at your forums, gonna lock him out too

Edited by - Shaggy on 01 December 2005 05:17:35

Jorrit787
Average Member

Netherlands
681 Posts

Posted - 30 November 2005 : 20:49:52

What profile is supposed to show? A random profile, or the one of the person that is logged in?

eXtremeGossip

cyberbuzz
Starting Member

Bhutan
7 Posts

Posted - 30 November 2005 : 20:50:59

the profile of the person that is loged in. if they are not loged in the field should be blank or say please log in to see you profile.

quote:
why did you not post this at Snitz?

cyberbuzz
Starting Member

Bhutan
7 Posts

Posted - 01 December 2005 : 03:50:40

could i use the inforation stored in the cookie to call the # of posts, country, stars, and avatar?

quote:
why did you not post this at Snitz?

Shaggy
Support Moderator

Ireland
6780 Posts

Posted - 01 December 2005 : 05:16:43

As this information will be used throughout your forums, the best place to retrieve the data and populate the variables is in the chkUser function, when assigning a value to the mlev variable. This way you save an additional SQL query. Unfortunately, I'm far too busy today (talking a half day to go home and beuatify meself for an awards dinner tonight!) to go provide detailed code changes, but, hopefully, this post'll give someone else a starting off point and they can jump in.

Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.”

cyberbuzz
Starting Member

Bhutan
7 Posts

Posted - 02 December 2005 : 05:39:02

thanks for the reply shaggy. i am not really looking for someone to wright the whold code for me. i am just looking for someone to give me a steep in the right direction. can you give me an example of how to use the chkUser to do this. i know how to use that to get the user and password that is what i used to make the loging box on my side bar. but i cant figure out how to use it to call the othere inforamtion.

quote:
why did you not post this at Snitz?

Shaggy
Support Moderator

Ireland
6780 Posts

Posted - 02 December 2005 : 05:59:27

Have a look at how the MemberID variable is assigned a value in that function. You'll need to dimension your variables outside the function (as is done with MemberID in config.asp). It's just a case of modifying the SELECT statement in that function to pull the necessary fields from the MEMBERS table and assign them to your variables, a lá MemberID.

Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.”

cyberbuzz
Starting Member

Bhutan
7 Posts

Posted - 03 December 2005 : 17:02:36

ok. i got it to display the inforation that i want using this code....

conn.open

Set rs=Server.CreateObject("ADODB.recordset")

rs.open "SELECT M_NAME, MEMBER_ID, M_TITLE, M_LEVEL, M_POSTS, M_COUNTRY, M_AVATAR_URL from FORUM_MEMBERS", conn

if mlev = 0 then

response.write("<li>please login to view profile</li>")

else

%>
<tr>
<td><a href="pop_profile.asp?mode=display&id=<%response.write(rs("member_id"))%>"> <%Response.Write strDBNTUsername %></a></td>
</tr>
<tr>
<td><% if strShowRank = 1 or strShowRank = 3 then
Response.Write " " & ChkString(getMember_Level((rs("M_TITLE")), (rs("M_LEVEL")), (rs("M_POSTS"))),"display") & " " & vbNewLine
end if
if strShowRank = 2 or strShowRank = 3 then
Response.Write " " & getStar_Level((rs("M_LEVEL")), (rs("M_POSTS"))) & " " & vbNewLine
end if%></td>
</tr>
<tr>
<td><img src="<%response.write(rs("M_AVATAR_URL"))%>" /></td>
</tr>
<tr>
<td><%response.write(rs("M_COUNTRY"))%></td>
</tr>
<tr>
<td><%response.write(rs("M_POSTS"))%> Posts</td>
</tr>
<%
end if
%>

the only problem is it only displays the inforation listed in the first field of the database.
i can not figure out how to get it to call the member that is loged in. and i can not find memberid beging assined a value through chkUser in config.asp or anywhere else. or am i just blind.

and as always thanks for the help.

quote:
why did you not post this at Snitz?

cyberbuzz
Starting Member

Bhutan
7 Posts

Posted - 04 December 2005 : 04:56:37

i have to say thank you shaggy i dont thing i could have done this with out your input. although i dont think i did it as you sugested i did manage to get it to work the way i wanted to and i kinda feel stupid for my last post because the answer was just so obvius and stairing me right in the face that it should have just jumped out and kicked me. i just needed to add

where member_id =" & memberid

to the sql statement and it works perfictly now. thanks alot

quote:
why did you not post this at Snitz?

Shaggy
Support Moderator

Ireland
6780 Posts

Posted - 05 December 2005 : 08:28:10

You're welcome

However, to save yourself a database hit on each page, here's the method I was referring to.

Find the following on line 91 of config.asp and add the code in green:

Dim mLev, strLoginStatus, MemberID, strArchiveTablePrefix, MemberTitle, MemberLevel, MemberPosts, MemberCountry, MemberAvatarURL

Find the following function begining on line 858 of inc_func_common.asp and add the code in green:

function chkUser(fName, fPassword, fAuthor)

	dim rsCheck
	dim strSql

	'## Forum_SQL
	strSql = "SELECT MEMBER_ID, M_LEVEL, M_NAME, M_PASSWORD, M_TITLE, M_POSTS, M_COUNTRY, M_AVATAR_URL "
	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
	strSql = strSql & " WHERE " & strDBNTSQLName & " = '" & ChkString(fName, "SQLString") & "' "
	if strAuthType="db" then	
		strSql = strSql & " AND M_PASSWORD = '" & ChkString(fPassword, "SQLString") &"'"
	End If
	strSql = strSql & " AND M_STATUS = " & 1
	Set rsCheck = my_Conn.Execute(strSql)
	if rsCheck.BOF or rsCheck.EOF or not(ChkQuoteOk(fName)) or not(ChkQuoteOk(fPassword)) then
		MemberID = -1
		chkUser = 0 '##  Invalid Password
		if strDBNTUserName <> "" and chkCookie = 1 then
			Call ClearCookies()
			strDBNTUserName = ""
		end if		
	else
		MemberID = rsCheck("MEMBER_ID")
		MemberLevel = cInt(rsCheck("M_LEVEL"))
		MemberTitle = chkString(rsCheck("M_TITLE"), "display")
		MemberPosts = cLng(rsCheck("M_POSTS"))
		MemberCountry = chkString(rsCheck("M_COUNTRY"), "display")
		MemberAvatarURL = chkString(rsCheck("M_AVATAR_URL"), "display")
		if (rsCheck("MEMBER_ID") & "" = fAuthor & "") and (cLng(rsCheck("M_LEVEL")) <> 3) then 
			chkUser = 1 '## Author
		else
			select case cLng(rsCheck("M_LEVEL"))
				case 1
					chkUser = 2 '## Normal User
				case 2
					chkUser = 3 '## Moderator
				case 3
					chkUser = 4 '## Admin
				case else
					chkUser = cLng(rsCheck("M_LEVEL"))
			end select
		end if	
	end if

	rsCheck.close	
	set rsCheck = nothing

end function

Finally, modify your code above to look like the following:

if mlev=0 then
	response.write	"<li>please login to view profile</li>"
else
	response.write	"<tr><td>"&profileLink(strDBNTUserName, MemberID)&"</td></tr>"
	if strShowRank>0 then
		response.write	"<tr><td>"
		if strShowRank<>2 then
			response.write	"<font color="""&strForumFontColor&""" face="""&strDefaultFontFace&""" size="""&strFooterFontSize&""">"&chkString(getMember_Level(MemberTitle,MemberLevel,MemberPosts),"display")&"</font><br />"
		end if
		if strShowRank>1 then response.write getStar_Level(MemberLevel,MemberPosts)&"<br />"
		response.write	"</td></tr>
	end if
	if MemberAvatar<>"noavatar.gif" then response.write "<tr><td>"&profileLink("<img src="""&MemberAvatar&""" width="""&intAvatarWidth&""" height="""&intAvatarHeight&""" border="""&intAvatarBorder&""" alt="""&strDBNTUserName&""" />",MemberID)&"</td></tr>"
	response.write	"<tr><td>"&MemberCountry&"</td></tr><tr><td><a href=""search.asp?mode=DoIt&MEMBER_ID="&MemberID&""">"&MemberPosts&" Posts</a></td></tr>"
end if

Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.”

cyberbuzz
Starting Member

Bhutan
7 Posts

Posted - 05 December 2005 : 11:30:38

thanks alot shaggy. it didnt even occur to me to add my own dim value. i will give your way a shot and see how it works. thanks again for the help

quote:
why did you not post this at Snitz?

Shaggy
Support Moderator

Ireland
6780 Posts

Posted - 05 December 2005 : 11:46:12

You're welcome

Let us know how you get on.

Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.”

Topic

New Topic

Topic Locked

Printer Friendly

Jump To:

Snitz Forums 2000

This page was generated in 0.4 seconds.