Jeg får alle brugere til værende offline ?

jeg får alle brugere til værende offline selvom de er online ? hvad kan der være gjort galt ?


<%
'Database connection åben
Set UserConn = Server.CreateObject("ADODB.Connection")
UserConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};pwd=Cleopatra;DBQ=" & Server.MapPath("user.mdb")

strSQL = "SELECT * FROM UserConfig Order by User_Name"
Set rs = UserConn.Execute(strSQL)

Do while not rs.EOF

Dim status

If Instr(Application("OnlineUsers"),"," & rs.fields("User_Name").Value & ",")>0 Then
Status = "Online"
Else
Status = "Offline"
End If

Dim tid

If Status = "Online" Then
tid = "Online nu!"
Else
tid = "D. "&rs.fields("dato")&" kl. "&rs.fields("tid")
End If

Response.Write "<tr><td width='100'><p>"&rs.fields("User_Name")&"</p></td><td width='100'><a href='mailto:'>Mailadresse</a></td><td width='100'><p>"&status&"</p></td><td width='100'><p>"&tid&"</p></td></tr>"
rs.movenext
Loop


UserConn.Close
Set UserConn = Nothing
%>