| Author |
 Topic  |
|
|
schef
Junior Member
USA
164 Posts |
 Posted - 02 October 2002 : 22:05:23
|
I am in search of a mod that will display a user's status under their avatar in the forums. I made an example of what it should look like, and it is below:
without status
with status
Anyone know of a mod that will do this? or how i could go about making it??
btw... I am using 3.4.02 |
ATV Outdoors |
Edited by - schef on 02 October 2002 22:32:08 |
|
|
schef
Junior Member
USA
164 Posts |
|
|
crash
Advanced Member
Netherlands
2064 Posts |
Posted - 03 October 2002 : 06:12:07
|
| i have it on my site. its part of the WhoIsOnline MOD. search this site and you will find a download link. |
cHosting.nl |
 |
|
|
CodeName
Junior Member
296 Posts |
Posted - 03 October 2002 : 15:11:38
|
crash , I tryed to search that think at your site but I found Who is Inside Mod .. and I tryed that , It hasnt /Online/Offline bar under avatar picture..
schef ,
From where to where that codes for that think in your "my topic.asp" ? |
|
|
|
CodeName
Junior Member
296 Posts |
Posted - 03 October 2002 : 15:16:47
|
And crash , I found something else..
Can we use this code for that thing ?
*****************************************
topic.asp
*****************************************
-----------------------------------------
FIND this code:
-----------------------------------------
<% if strShowRank = 2 or strShowRank = 3 then %>
<br><% = getStar_Level(rsReplies("M_LEVEL"), rsReplies("M_POSTS")) %>
<% end if %>
<br>
-----------------------------------------
ADD (directly below it):
-----------------------------------------
<% '######### Crash's Additional Admin Options MOD 3.00 ######### %>
<% If strAdminOptOn = "1" Then %>
<% If strAdminOptOnOffStatusPosts = "1" Then %>
<%
Dim strUserName
strUserName = rsReplies("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)
If rsOnlineMember.EOF Or rsOnlineMember.BOF Then
%>
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<small>Status:</small>
</font>
<font color="#808080" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize%>">
<small>offline</small>
</font><br>
<% Else %>
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<small>Status:</small>
</font>
<font color="#00C000" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<small><b>online</b></small>
</font><br>
<% End If
Set rsOnlineMember = nothing %>
<% Else
'do nothing
End If
Else
'do nothing
End If
%>
<% '######### Crash's Additional Admin Options MOD 3.00 ######### %>
-----------------------------------------
FIND this code:
-----------------------------------------
<% if strShowRank = 2 or strShowRank = 3 then %>
<br><% = getStar_Level(rsTopic("M_LEVEL"), rsTopic("M_POSTS")) %>
<% end if %>
<br>
-----------------------------------------
ADD (directly below it):
-----------------------------------------
<% '######### Crash's Additional Admin Options MOD 3.00 ######### %>
<!-- Crash's Code For Online/Offline in Posts -->
<% If strAdminOptOn = "1" Then %>
<% If strAdminOptOnOffStatusPosts = "1" Then %>
<%
Dim strUserName
strUserName = rsTopic("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)
If rsOnlineMember.EOF Or rsOnlineMember.BOF Then
%>
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<small>Status:</small>
</font>
<font color="#808080" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize%>">
<small>offline</small>
</font><br>
<% Else %>
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<small>Status:</small>
</font>
<font color="#00C000" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
<small><b>online</b></small>
</font><br>
<% End If
Set rsOnlineMember = nothing %>
<% Else
'do nothing
End If
Else
'do nothing
End If
%>
<% '######### Crash's Additional Admin Options MOD 3.00 ######### %>
*****************************************
FINISHED!
*****************************************
This code is from your "ADDITIONAL ADMIN OPTIONS MOD 3.00" mod 
So Can we use this code for that thing ? |
|
|
|
crash
Advanced Member
Netherlands
2064 Posts |
Posted - 03 October 2002 : 18:08:50
|
you can, but you need the whoisinside mod to make it work... or at least the DB script to update your database.
from what i heard, that DBS file might not be the right one... it is all a bit complicated... after i updated my own site i will try to write a newer version of that mod, compatible with snitz 3.4.xx |
cHosting.nl |
|
|
|
schef
Junior Member
USA
164 Posts |
Posted - 04 October 2002 : 00:18:51
|
| ok, that would be good crash. I will work on it too, but no telling if I will ever get done with it. I did do a little searching, and I can't seem to find a live link to the whoisonline mod. |
ATV Outdoors |
|
|
|
crash
Advanced Member
Netherlands
2064 Posts |
|
| |
Topic |
|
Topic Locked
