Liste navne på brugere..

Hej

Jeg vil gerne lave en liste over de brugere der er online og dem som ikke er - vi er kun 15 brugere af vores website, så det skal altså være lidt ligsom MSN..!

Min global.asa ser sådan ud:

<script language=vbscript runat=server>
SUB Application_OnStart
Application.Lock
Application("OnlineUsers") = ","
Application.UnLock
END SUB

SUB Application_OnEnd
END SUB

SUB Session_OnStart
END SUB

SUB Session_OnEnd
If Len(Session("UserName")) > 0 Then
    Application.Lock
    Application("OnlineUsers") = Replace(Application("OnlineUsers"), Session("Username") & ",", "")
    Application.UnLock
End If
END SUB
</script>

Min login-script ser sådan ud:

<%

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("db/hr.mdb")
Conn.Open DSN

username = Trim(Replace(Request.Form("username")," ' "," " ))
password = Trim(Replace(Request.Form("password")," ' "," " ))

strSQL = "SELECT tbl_admin.id, tbl_admin.fornavn, tbl_admin.username, tbl_admin.password FROM tbl_admin Where username = '"&username&"' And password = '"&password&"'"
Set rs = Conn.Execute(strSQL)

If Not RS.EOF Then

brugerid = rs("id")
Username = rs("fornavn")

Session("Username") = Username
Session.Timeout = 5

Session("brugerid") = brugerid
Session.Timeout = 5

Session("allow") = True
Session.Timeout = 20

Sub AddOnlineUser()
    Application.Lock
    Application("OnlineUsers") = Application("Onlineusers") & Session("Username") & ","
    Application.UnLock
End Sub

end if

%>

Der hvor jeg vil trække listen ud bruger jeg:

    <tr>
    <td><span class="tekst">
    <%                        Sub WriteOnLineUsers()                    Dim arrUsers                    Dim n                        ' --- lav et array med online brugere ---
    arrUsers = Split(Application("Onlineusers"), ",")
                                ' --- udskriv liste ---                For n = 1 To UBound(arrUsers) -1
        Response.Write(arrUsers(n) & "<br>")
    Next
    End Sub
    %>
    </span></td>
</tr>


----------------------------------------------


Jeg får ingen fejl, men den skriver heller ingen liste ud - jeg har brugt vejledningen fra dette link:
http://activedeveloper.dk/julekalender/julegaver/whoson.asp