Global.asa...

har du lavet en global.asa fil?
(hvordan ser den ud?)

Altså lige nu har jeg kun en global.asa, der viser hvor mange der er online:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
    Application("ActiveUsers") = 0
End Sub

Sub Application_OnEnd
End Sub

Sub Session_OnStart
    Application.Lock
        Application("online") = Application("online") + 1
    Application.UnLock
End Sub

Sub Session_OnEnd
    Application.Lock
        Application("online") = Application("online") - 1
    Application.UnLock
End Sub
</SCRIPT>

Nu skal den så udbygges med at viser hvor mange brugere der er logget ind, hvem det er og hvor mange "gæster" der er online

så er det noget lidt andet du skal gøre...

global asa...

Sub Application_OnStart
    Application("online") = 0
    Application("loggedinn") = 0
End Sub
(du skal nulstille online variablen og login variabel i global.asa, du nulstiller activeusers (som du ikke bruger))

Sub Session_OnEnd
    Application.Lock
        Application("online") = Application("online") - 1
        Application("loggedinn") = Application("loggedinn") - 1
    Application.UnLock
End Sub

Når folk så logger ind skal du kalde en modificeret version af funktionen
Sub AddOnlineUser()
    Application.Lock
    Application("OnlineUsers") = Application("Onlineusers") & Session("Username") & ","
    Application.UnLock
End Sub
ala
Sub AddUser()
    Application.Lock
    Application("loggedinn") = Application("loggedinn") + 1
    Application("loggedinn") = Application("loggedinn") & Session("Username") & ","
    Application.UnLock
End Sub

du skal jo så også tilpasse de andre funktioner tii at vise loggedinn variablen i stedet for online variablen

:)

Hmm, det virker ikk helt.
Jeg bruger denne kode:
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
    ' Nulstiller antallet af brugere når applikationen (serveren) startes
    Application("online") = 0
    Application("onlineusers") = 0
End Sub

Sub Application_OnEnd
    ' Skriv kode som skal køres når applikationen (serveren) stoppes
End Sub


Sub Session_OnStart
    ' Forøger antallet af brugere med 1, når en session startes
    Application.Lock
        Application("online") = Application("online") + 1
    Application.UnLock
End Sub

Sub Session_OnEnd
    Application.Lock
        Application("online") = Application("online") - 1
        Application("onlineusers") = Application("onlineusers") - 1
    Application.UnLock
End Sub
Sub AddOnlineUser()
    Application.Lock
    Application("onlineusers") = Application("onlineusers") & Session("brugernavn") & ","
    Application.UnLock
End Sub

Sub AddUser()
    Application.Lock
    Application("onlineusers") = Application("onlineusers") + 1
    Application("onlineusers") = Application("onlineusers") & Session("brugernavn") & ","
    Application.UnLock
End Sub
</SCRIPT>

Sub AddOnlineUser()
    Application.Lock
    Application("onlineusers") = Application("onlineusers") & Session("brugernavn") & ","
    Application.UnLock
End Sub

Sub AddUser()
    Application.Lock
    Application("onlineusers") = Application("onlineusers") + 1
    Application("onlineusers") = Application("onlineusers") & Session("brugernavn") & ","
    Application.UnLock
End Sub

skal ikke være i global asa

hov...

men kun denne her der hvor der logges ind

Sub AddUser()
    Application.Lock
    Application("onlineusers") = Application("onlineusers") + 1
    Application("onlineusers") = Application("onlineusers") & Session("brugernavn") & ","
    Application.UnLock
End Sub

de

skal desværre gå nu....:(

Okai, vil det sige at global.asa skal se sådan ud ?
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
    ' Nulstiller antallet af brugere når applikationen (serveren) startes
    Application("online") = 0
    Application("onlineusers") = 0
End Sub

Sub Application_OnEnd
    ' Skriv kode som skal køres når applikationen (serveren) stoppes
End Sub


Sub Session_OnStart
    ' Forøger antallet af brugere med 1, når en session startes
    Application.Lock
        Application("online") = Application("online") + 1
    Application.UnLock
End Sub

Sub Session_OnEnd
    Application.Lock
        Application("online") = Application("online") - 1
        Application("onlineusers") = Application("onlineusers") - 1
    Application.UnLock
End Sub
</SCRIPT>

Skal Sub AddUSer() så stå i selv ASP siden, hvor det skal udskrives ?

ævv... nåede ikke bussen...:)

men ja...

/Lukker

hmmm... hvorfor gav du ikke a1 pointne!? ....

Fordi det ikk virkede