udskrive sessions

<%
\' --- procedure til at tilføje en online bruger ---
Sub AddOnlineUser()
    Application.Lock
    Application(\"OnlineUsers\") = Application(\"Onlineusers\") & Session(\"Username\") & \",\"
    Application.UnLock
End Sub

\' --- funktion som retunerer antallet af online brugere ---
Function CountOnLineUsers()
    Dim arrUsers
    \' --- lav et array med online brugere ---
    arrUsers = Split(Application(\"Onlineusers\"), \",\")
    \' --- antallet af online brugere er altid størrelsen på arrayet -1 ---
    CountOnLineUsers = UBound(arrUsers) - 1
End Function

\' --- procedure til at udskrive online brugere ---
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(arrUser(n) & \"<br>\")
    Next
End Sub
%>

følger lige med :-)

DNA her er det du søger:
http://www.activeserverpages.dk/julekalender/julegaver/whoson.asp

(samme kode som nse har skrevet.. der er blot forklaringer med på sitet)

...det er noget bedre med noget forklaring til koden, men lortet virker stadig ikke! Er der nogen der har prøvet det?? Jeg får denne besked når jeg vil udskrive de aktive brugere....
-----------
Der opstod en Microsoft VBScript-kørselsfejl error \'800a000d\'
Typerne passer ikke sammen: \'arrUser\'
minside.asp, line 10
----------

dna

hmm! Jeg fik ikke en skid ud af det stykke kode som NSE skrev, men derimod var det en stor hjælp at chris skrev linket, så jeg kunne finde rundt i det...! Det virkede dog ikke optimalt, men, jeg deler bare pointene imellem jer... håber det er ok ??!

dna