Hvordan med Global.asa?

Prøv med....

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart
Application("ActiveUsers") = 0
End Sub

Sub Session_OnStart
Session.Timeout = 5  ' Ændring af Session Timeout kan foretages her (20 = 20 minutter)
Session("Start") = Now
Application.Lock
'Application("ActiveUsers") = Application("ActiveUsers") + 1
Application.UnLock
End Sub

Sub Session_OnEnd
Application.Lock
if session("id")<>"" then Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub

</SCRIPT>

Så tæller den kun ned når det er en registreret bruger der logger ud.. og tæl op er slået fra..

Så mangler du bare på din login side at skrive

Application("ActiveUsers") = Application("ActiveUsers") + 1

Når en logger ind..

OK... det prøver jeg lige...
Er det så på nogen måde muligt at få global.asa til også at vise listen over de Session("id")´s som der er logget ind lige nu...?
Sådan at jeg kan sammenligne dem i min database og så skrive navnene på dem...

\Dan

tror ik lige du kan få global.asa til at vise dem ..

men du kunne lave en application variabel som indeholder dem alle

ved når man logger ind :

Application("ActiveUsers") = Application("ActiveUsers") + 1
Application("ActiveUsersID") = Application("ActiveUsersID") & right("00000000"&session("id"),8)&","

her er linjen fra før samt en ny linje som lægger session("id") samme med de andre session("id")'s i en variabel.

Så skal du have linjen der fjerne dem igen ..

gøres nemmest ved at skrive denne om :
if session("id")<>"" then Application("ActiveUsers") = Application("ActiveUsers") - 1

til :
if session("id")<>""
then Application("ActiveUsers") = Application("ActiveUsers") - 1
Apllication("ActiveUsersID")=replace(Apllication("ActiveUsersID"),right("00000000"&session("id"),8)&",","")
end if


Apllication("ActiveUsersID") skulle nu gerne se sådan ud : 00000001,00000006,00000013,

osv.. alt efter hvor mange og hvilke id der er logget ind..

herfra skulle det bare være at hente dem ud igen :)