quote:

---

I am trying to get my active users to be displayed on my main index page (different directory than the forum) and cant seem to figure out how to get the member name's of people and then the guest count to be displayed. Id like it to be like AZNKnights homepage(s). Can someone help?

---

quote:

---

quote:

---

I am trying to get my active users to be displayed on my main index page (different directory than the forum) and cant seem to figure out how to get the member name's of people and then the guest count to be displayed. Id like it to be like AZNKnights homepage(s). Can someone help?

---

try searching for "active users" or "who's online"

it has been discussed many times before.

---

quote:

---

theres an addon for this mod, but you can add it by puttingthis, it wont have username, just numbers...

<td colspan="100%" bgcolor="<% =strHeadCellColor %>"><a href="active_users.asp">Active Users</a>:
<%=strOnlineMembersCount%> Members and <%=strOnlineGuestsCount%> Guests
</td><tr>

but if you search long enough, oyu`ll find the mod which will show usernames too.

---

<%
function displayOnlineUsers()	

	strConnString = 'put your conn string here, should be similiar to the one on config.asp
	
	dim objConnection
	set objConnection = server.CreateObject("adodb.connection")
	objConnection.Open strConnString
	
	dim rsOnline, intOnlineDisplay
	set rsOnline = server.CreateObject("adodb.recordset")

	' get the online users
	strSql ="SELECT UserID, M_BROWSE, DateCreated"
	strSql = strSql & " FROM " & strMemberTablePrefix & "ONLINE WHERE USERID not like 'Guest%' order by USERID"
						
	rsOnline.Open strSql, objConnection
																	
											
	intOnlineDisplay = 0
	if not rsOnline.EOF then
		do until rsOnline.EOF or intOnlinedisplay > 19
			'Response.Write "<a href="forum/pop_profile.asp?mode=display&id=" & getMemberID(rsOnline("userID")) & """>" & rsOnline("userID") & "</a>"
			Response.Write rsOnline("userID") 
			intOnlineDisplay = intOnlineDisplay + 1
			rsOnline.MoveNext
			if intonlinedisplay = 20 then
				Response.Write ", <a href=" & basehref & "active_users.asp>more...</a>"
			else
				Response.Write ", "
			end if
		loop
		Response.write "and "
	end if
										
	rsOnline.Close
	set rsOnline =nothing
	
	' Get Guest count for display
	set rsGuests = Server.CreateObject("ADODB.Recordset")
	if strDBType = "access" then
		strSqL = "SELECT count(UserID) AS [Guests] "
	else
		strSqL = "SELECT count(UserID) Guests  "
	end if
	strSql = strSql & "FROM " & strTablePrefix & "ONLINE "
	strSql = strSql & " WHERE Right(UserID, 5) = 'Guest' "

	Set rsGuests = objConnection.Execute(strSql)
	Guests = rsGuests("Guests")
	strOnlineGuestsCount = rsGuests("Guests")
	%>
	<font color="green"><%=Guests%></font> <% if Guests=1 then %>Guest<% else %>Guests<% end if %>.</b>
	<br><br>
	<% 
	objConnection.Close
	set objConnection = nothing
end function %>

quote:

---

i understand what you are asking bcooper. however, it's quite a bit of work since you don't have any of the forum variables or functions available to do what you're asking. but here's some code just for your case.

I threw it up and haven't tested it. I set it up as a function. Just paste it to the bottom of the paste you want to do this on. and call it by:

<% call displayOnlineUsers() %>

<%
function displayOnlineUsers()	

	strConnString = 'put your conn string here, should be similiar to the one on config.asp
	
	dim objConnection
	set objConnection = server.CreateObject("adodb.connection")
	objConnection.Open strConnString
	
	dim rsOnline, intOnlineDisplay
	set rsOnline = server.CreateObject("adodb.recordset")

	' get the online users
	strSql ="SELECT UserID, M_BROWSE, DateCreated"
	strSql = strSql & " FROM " & strMemberTablePrefix & "ONLINE WHERE USERID not like 'Guest%' order by USERID"
						
	rsOnline.Open strSql, objConnection
																	
											
	intOnlineDisplay = 0
	if not rsOnline.EOF then
		do until rsOnline.EOF or intOnlinedisplay > 19
			'Response.Write "<a href="forum/pop_profile.asp?mode=display&id=" & getMemberID(rsOnline("userID")) & """>" & rsOnline("userID") & "</a>"
			Response.Write rsOnline("userID") 
			intOnlineDisplay = intOnlineDisplay + 1
			rsOnline.MoveNext
			if intonlinedisplay = 20 then
				Response.Write ", <a href=" & basehref & "active_users.asp>more...</a>"
			else
				Response.Write ", "
			end if
		loop
		Response.write "and "
	end if
										
	rsOnline.Close
	set rsOnline =nothing
	
	' Get Guest count for display
	set rsGuests = Server.CreateObject("ADODB.Recordset")
	if strDBType = "access" then
		strSqL = "SELECT count(UserID) AS [Guests] "
	else
		strSqL = "SELECT count(UserID) Guests  "
	end if
	strSql = strSql & "FROM " & strTablePrefix & "ONLINE "
	strSql = strSql & " WHERE Right(UserID, 5) = 'Guest' "

	Set rsGuests = objConnection.Execute(strSql)
	Guests = rsGuests("Guests")
	strOnlineGuestsCount = rsGuests("Guests")
	%>
	<font color="green"><%=Guests%></font> <% if Guests=1 then %>Guest<% else %>Guests<% end if %>.</b>
	<br><br>
	<% 
	objConnection.Close
	set objConnection = nothing
end function %>

- Alan
www.iamviet.com
www.calvsa.net
Snitz Resource

---