Problema con un'array.......credo............

[diegoctn]

Ragazzi ho un problema con gli utenti connessi. Mi da il nick di una ventina di utenti connessi anche quando sono connesso solo io. Eppure me ne conta solo uno.........quindi presumo che nel codice del nome degli utenti connessi c'è qualcosa........eccolo:

<% 
Dim arrUtenti 
arrUtenti = Split(Application("Users"),"|") 
dim utenti 
for i = 0 to UBound(arrUtenti)-1 
if i <> UBound(arrUtenti)-1 then 
utenti = utenti & arrUtenti(i) & " , "
else 
utenti = utenti & arrUtenti(i) 
end if
Next 
Response.Write "<font color=#FF9900 size=4 font face=verdana> " & utenti & "</font>" 
%>

[vaargard]

l'errore mi sa che è più nel trattamento della variabile application che nell'array ... anche se a prima vista non capisco ubound(nomearray)-1 ... perchè meno uno? .... non dovrebbe andare in errore ....

[diegoctn]

In effetti questo codice non convince neanche me..........l'ho copiato ma mi ha sempre dato problemi. Consigli?

[vaargard]

cambia il cilco

<% 
Dim arrUtenti 
arrUtenti = Split(Application("Users"),"|") 
dim utenti 
	for i = 0 to UBound(arrUtenti)
		if i < UBound(arrUtenti) then 
			utenti = utenti & arrUtenti(i) & " , "
		else 
			utenti = utenti & arrUtenti(i) 
		end if
	Next 
Response.Write "<font color=#FF9900 size=4 font face=verdana> " & utenti & "</font>" 
%>

e poi controlla il global.asa per vedere se gli utentio vengono cancellati correttam,ente dalla variabuile application .... conta comunque che devio aspettaresempre 20 minuti(di default) prima che si verifichi la session_onmend

[diegoctn]

Nada.....de nada.

[vaargard]

ma il tuo global.asa com'è fatto? ... postalo ...

[diegoctn]

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
	'Imposta a 0 il numero di utenti quando parte il servizio server

  Application("ActiveUsers")  = 0

'PROVA DEL 30-07-2004

  Application("Users") = ""

End Sub
Sub Session_OnStart
	 
	Session("Start") = Now
	'Incremento il numero di utenti all'inizio di una nuova sessione
        Session.Timeout= 14
        Application.Lock
	Application("ActiveUsers") = Application("ActiveUsers") + 1
	Application.UnLock
End Sub
Sub Session_OnEnd
	'Decremento il numero di utenti alla fine di ogni sessione
	Application.Lock
	Application("ActiveUsers") = Application("ActiveUsers") - 1
	Application.UnLock
     
        Application.Lock
            Application("Users") = Replace( Application("Users") , Session("utente") & "|" ,"")
         'quando scade una sessione viene eliminato il nome dell'utente dalla variabile di
          'applicazione che contiene l'elenco degli utenti attivi
        Application.UnLock

End Sub

</SCRIPT>

[vaargard]

pare sia tutto ok ... e il pezzo di codice in cui memorizzi la session utente nella variabile application? scusa se ti chiedo tutto ma ci dev'essere una cosa minuscola da qualche parte, dobbiamo trovarla ...

[diegoctn]

'prova del 30--07-2004
Session("utente") = Request.form("Utentegal")
if InStr(1, Application("Users"), Session("utente") & "|" ) = 0 then
Application.Lock
Application("Users") = Application("Users") & Session("utente") & "|"
Application.UnLock

[vaargard]

magari non c'entra nulla, ma visto che lo user lo prendi da un form non puoi impedire chel'utente scriva sempre tutto minuscolo o tutto maiuscolo o con degli spazi davanti quindi un consiglio comunque è:

Session("utente") = lcase(trim(Request.form("Utentegal")))

così da avere tutti gli user sicuramente senza spazi e sicuramente tutti minuscoli ... fatta questa modifica, stoppa il sito (tanto stai lavorando in locale no?) e ricomincia le prove ...