Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: General / Classic ASP versions(v3.4.XX)
 moving Newest Member
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

jbjbjb4
Starting Member

11 Posts

Posted - 20 May 2006 :  01:32:04  Show Profile  Visit jbjbjb4's Homepage
I would like to move my newest member info that now shows on the stats area. It would be nice if it showed in the active members mod. Is it possible?

PPSSWeb
Junior Member

312 Posts

Posted - 23 May 2006 :  10:47:49  Show Profile
It is certainly possible. You will need to copy the "newest member" code from default.asp and move it to active_users.asp.

You will need to comment out or delete it from default.asp and play with formatting a bit, but it shouldn't be to difficult.

Go to Top of Page

PPSSWeb
Junior Member

312 Posts

Posted - 24 May 2006 :  16:43:16  Show Profile
Had a reason to be in the required code areas so I looked at this.

Copy the following from default.asp and comment it out there.


Dim NewMember_Name, NewMember_Id, Member_Count
Dim LastPostDate, LastPostLink

Forum_Count = intForumCount
'## Forum_SQL - Get newest membername and id from DB

strSql = "SELECT M_NAME, MEMBER_ID FROM " & strMemberTablePrefix & "MEMBERS " &_
" WHERE M_STATUS = 1 AND MEMBER_ID > 1 " &_
" ORDER BY MEMBER_ID desc;"

set rs = Server.CreateObject("ADODB.Recordset")
rs.open TopSQL(strSql,1), my_Conn

if not rs.EOF then
NewMember_Name = chkString(rs("M_NAME"), "display")
NewMember_Id = rs("MEMBER_ID")
else
NewMember_Name = ""
end if

rs.close
set rs = nothing


and

if NewMember_Name <> "" then
Response.Write " <tr>" & vbNewline & _
" <td bgcolor=""" & strForumCellColor & """ colspan=""" & sGetColspan(6,5) &_
""">" & _
"<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>Please welcome our newest member: " & _
"<span class=""spnMessageText"">" & profileLink(NewMember_Name,NewMember_Id) & "</span>.</font></td>" & vbNewline & _
" </tr>" & vbNewline
end if

Then add them to the file inc_active_users.asp where you want it to appear. Make sure to copy the table row formatting for the entry and to change the rowspan value to accomodate for the new entry.

Let me know if you have any troubles.

-Steve
Go to Top of Page

jbjbjb4
Starting Member

11 Posts

Posted - 31 May 2006 :  08:32:38  Show Profile  Visit jbjbjb4's Homepage
Thanks alot this work great. I was able to place it right where I wanted it. I had broken the sitestat mode while doing this but was able to figure it out after messing around for a while. Thanks again.
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.39 seconds. Powered By: Snitz Forums 2000 Version 3.4.07