how i do that , ?

Try This, you will have to enable active users in your control panel to use it

<%
'Declaration of variables
Dim rsUserOnline
Dim rsActiveUsers

If NOT strUsername = "Guest" Then
     Set rsUserOnline = Server.CreateObject("ADODB.Recordset")
     Set rsActiveUsers = Server.CreateObject("ADODB.Recordset")

     'Initalise the strSQL variable with an SQL statement to query the database
     strSQL = "SELECT " & strDbTable & "activeUser.* FROM " & strDbTable & "ActiveUser WHERE " & strDbTable & "ActiveUser.Author_ID=" & lngUserID

     rsUserOnline.Open strSQL, strCon
     rsActiveUsers.Open strSQL, strCon   

     If NOT rsUserOnline.EOF Then blnHideActiveUser = CBool(rsActiveUsers("Hide"))

     If rsUserOnline.EOF Then
          Response.Write "<center>Offline</center>"

     ElseIf blnHideactiveUser = True Then
          
                  'display the user as an annoy
                  Response.Write("<center>Offline</center>")
       
     Else
          Response.Write "<center>Online</center>"
     End If

     rsUserOnline.Close
     Set rsUserOnline = Nothing
     rsActiveUsers.Close
     Set rsActiveUsers = Nothing
End If
%>

Enter this at line 804 in the forum_posts.asp in ver. 7.0

strSQL = "SELECT * from tblActiveUser where Author_ID = " & lngUserID
rsCommon.open strSQL, adoCon

if rsCommon.eof or rsCommon.bof then
Response.write("<BR><BR><BR><B><FONT COLOR=""#FF0000"">Offline</FONT></B>")
else
Response.write("<BR><BR><BR><B><FONT COLOR=""#0000FF"">Online</FONT></B>")
end if

rsCommon.close

Nice mod I have been looking for a way to do this

All I did is mod the OG code.

The first reply had some code that would error all I did is change the line in blue.

strSQL = "SELECT * from tblActiveUser where Author_ID = " & lngUserID
rsCommon.open strSQL, adoCon

if rsCommon.eof or rsCommon.bof then
Response.write("<BR><BR><BR><B><FONT COLOR=""#FF0000"">Offline</FONT></B>")
else
Response.write("<BR><BR><BR><B><FONT COLOR=""#0000FF"">Online</FONT></B>")
end if

rsCommon.close

Edited by vdub

vdub wrote: Enter this at line 804 in the forum_posts.asp in ver. 7.0 strSQL = "SELECT * from tblActiveUser where Author_ID = " & lngUserID rsCommon.open strSQL, adoCon if rsCommon.eof or rsCommon.bof then Response.write("<BR><BR><BR><B><FONT COLOR=""#FF0000"">Offline</FONT></B>") else Response.write("<BR><BR><BR><B><FONT COLOR=""#0000FF"">Online</FONT></B>") end if rsCommon.close Nice mod I have been looking for a way to do this

Read the whole post.