have you got a demo so i can see ?
right i copyed this off of my version
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.Hide 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 just gone to my site and checked to see if its working and it is
so copy the above and see if it works it shouls