wfusco wrote:
Thank you for getting back to me both of you! I will look for it.
Happy Holidays,
|
heres my code
response.write ("<br/>Status : ")
Dim rsUserOnline
Set rsUserOnline = Server.CreateObject("ADODB.Recordset")
'Initalise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT tblActiveUser.* FROM tblActiveUser WHERE tblActiveUser.Author_ID=" & lngUserID
rsUserOnline.Open strSQL, strCon
If rsUserOnline.EOF Then
Response.Write "Offline"
ElseIf CBool(rsUserOnline("Hide")) = True Then Response.Write "Offline"
Else
Response.Write "Online"
End If
i have added it on line 727 of forum posts
just cut and paste ...