utenti online

[leozone]

Questo e' lo script:
Global.asa

<script language="VBScript" runat="server"> 
Sub Application_OnStart
    Application("nomi") = ""
End Sub
Sub Session_OnEnd
    Dim n
    n = Replace(Application("nomi") , Session("nome") & "|" ,"")
    Application.Lock
    Application("nomi") = n
    Application.UnLock
End Sub

login

 
</script> 

If InStr(1, Application("nomi"), Session("nome") & "|" ) = 0 Then
Application.Lock
Application("nomi") = Application("nomi") & Session("nome") & "|"
Application.UnLock
End If

stampa

 



Utenti connessi:


<%
Dim nomi, i
nomi = Split(Application("nomi"), "|")
i = 0
For i = 0 To UBound(nomi)
    Response.Write nomi(i) & " - "
Next
%>
</p>

Mettiamo il caso che ci siano due utenti loggati(leo e mario).
A video stampa così:
--leo-mario
Quando la sessione di leo scade stampa così:
--leomario
Qual'e' l'errore.
Spero di essermi spiegato.
Grazie mille.

[giacomucci]

ciao leo mi interessa il tuo script, ma non riesco a farlo funzionare mi puoi autare
ho provato in mille modi ma sono un zuccone eventualmente ti posso ionviare i file per email te ne sarei immensamente grato.

saluti marco.