problem med online og offline bruger script

Jeg har et problem med at få følgende script til at fungere:
<%
Sub LogActiveUser

Dim strActiveUserList
Dim intUserStart, intUserEnd
Dim strUser
Dim strDate

strActiveUserList = Application("ActiveUserList")

If Instr(1, strActiveUserList, Session.Brugernavn) > 0 Then
Application.Lock
intUserStart = Instr(1, strActiveUserList, Session.brugernavn)
intUserEnd = Instr(intUserStart, strActiveUserList, "|")
strUser = Mid(strActiveUserList, intUserStart, intUserEnd - intUserStart)
strActiveUserList = Replace(strActiveUserList, strUser, Session.brugernavn & ":" & Now())
Application("ActiveUserList") = strActiveUserList
Application.UnLock
Else
Application.Lock
Application("ActiveUsers") = CInt(Application("ActiveUsers")) + 1
Application("ActiveUserList") = Application("ActiveUserList") & Session.brugernavn & ":" & Now() & "|"
Application.UnLock
End If

End Sub
%>

men sjovt nok så virker dette script udemærket:
<%
if session("brugernavn") = "" then Response.Redirect("login.asp?error=Du ikke logget ind") end if
%>

som i kan se bruger jeg samme session, da det er den session som brugerne udregnes efter, men vis jeg bruger Session.Brugernavn i det øverste script får jeg bare følgende fejl:

http://boingz.dk/fejl.jpg

håber der er en der kan få dette til at fungere for mig...