quote:

---

<% '######### START Crash's Additional Admin Options MOD 3.00 #########
If strAdminOptOn = "1" Then

'Show Member Password
If strAdminOptShowPsw = "1" Then
If Cstr(mLev) = Cstr(4) Then 'check for Administrator level %>
<tr>
<td valign="top" align=center colspan="2" bgcolor="<% =strCategoryCellColor %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">Informazioni per l'Amministratore</font></b></td>
</tr>

<tr>
<td bgColor="<% =strPopUpTableColor %>" align="right"> <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Password:</b></font></td>
<td bgColor="<% =strPopUpTableColor %>"><small><% =rs("M_PASSWORD") %></small>
</tr>
<% Else
'do nothing %>
<% End If
Else
'do nothing
End If

'Show Last Here Date
If strAdminOptLastHere = "1" Then
If Cstr(mLev) = Cstr(4) Then 'check for Administrator level %>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align="right"> <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Ultima Visita:</b></font></td>
<td bgColor="<% =strPopUpTableColor %>"><small><% =ChkDate(rs("M_LASTHEREDATE")) %></small>
</tr>
<% Else
'do nothing %>
<% End If
Else
'do nothing
End If

'Show Online/Offline Status on Profile
If strAdminOptOnOffStatusProfile = "1" Then
Dim strUserName
strUserName = rs("M_NAME")
Set rsOnline = Server.CreateObject("ADODB.Recordset")
strOnlineSql ="SELECT USERID, CHECKEDIN"
strOnlineSql = strOnlineSql & " FROM FORUM_ACTIVE_USERS"
strOnlineSql = strOnlineSql & " WHERE FORUM_ACTIVE_USERS.MemberID = '" & strUserName &"'"
strOnlineSql = strOnlineSql & " AND CHECKEDIN <> ''"
Dim rsOnlineMember
Set rsOnlineMember = my_Conn.Execute (strOnlineSql)

If rsOnlineMember.EOF Or rsOnlineMember.BOF Then
%>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align="right"> <font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><b>Stato:</b></font></td>
<td bgColor="<% =strPopUpTableColor %>">
<font color="#808080" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize%>"><small>offline</small></font><br>
</td>
</tr>
<%
Else
%>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align="right"> <font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><b>Stato:</b></font></td>
<td bgColor="<% =strPopUpTableColor %>">
<font color="#00C000" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><small><b>online</b></small></font><br>
</td>
</tr>
<%
End if
Set rsOnlineMember = Nothing

Else
'do nothing
End If

Else
'do nothing
End If
'######### END Crash's Additional Admin Options MOD 3.00 ######### %>

---

quote:

---

hey, snitz is free and ought to be kept free!

do whatever you see fit! just as long as you give me some credit for it (add my url in the readme...)

---

Thanks for that, Crash, I'll get onto it as soon as I've got the Who's Here Mod done. No need to ask for your URL in the readme, it's already there!

quote:

---

If a member has anonymous selected in their profile wouldn't it be better to display them offline regardless if they are online?

---

Good idea, MDGamezz, I'll ask around, see what a few other people think, but I'd tend to agree with you. Maybe show nothing, instead of just offline constantly.

c ya in the funny books
MeTV - tvthemetunes.net - forums
house of design - graphic design consultants
"No one can earn a million dollars honestly."

	'Show Online/Offline Status on Profile
	If strAdminOptOnOffStatusProfile = "1" Then
			Dim strUserName
			strUserName = rs("M_NAME")
			Set rsOnline = Server.CreateObject("ADODB.Recordset")
			strOnlineSql ="SELECT USERID, CHECKEDIN"
			strOnlineSql = strOnlineSql & " FROM FORUM_ONLINE"
			strOnlineSql = strOnlineSql & " WHERE FORUM_ONLINE.UserID = '" & strUserName &"'"
			strOnlineSql = strOnlineSql & " AND CHECKEDIN <> ''"
			Dim rsOnlineMember
			Set rsOnlineMember =  my_Conn.Execute (strOnlineSql)

	'Show Online/Offline Status on Profile
	'Modified by MeTV to work with Active Users 4
	If strAdminOptOnOffStatusProfile = "1" Then
			Dim strUserName
			strUserName = rs("MEMBER_ID")
			Set rsOnline = Server.CreateObject("ADODB.Recordset")
			strOnlineSql ="SELECT MEMBER_ID, AU_LOGINTIME"
			strOnlineSql = strOnlineSql & " FROM FORUM_ACTIVE_USERS"
			strOnlineSql = strOnlineSql & " WHERE FORUM_ACTIVE_USERS.MEMBER_ID = " & strUserName
			strOnlineSql = strOnlineSql & " AND AU_LOGINTIME <> ''"
			Dim rsOnlineMember
			Set rsOnlineMember =  my_Conn.Execute (strOnlineSql)

c ya in the funny books
MeTV - tvthemetunes.net - forums
house of design - graphic design consultants