Una virgola davanti al nick utente

[orcim]

Perchè questo code mi visualizza quando l'utente connesso è uno solo:

Utenti connessi: , Pietro

la virgola davanti al nome.... :master:

<%
Dim arrUtenti
Response.Write "<font color=blue size=1 font face=verdana>Utenti Attivi: </font>"
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=red size=1 font face=verdana> " & utenti & "</font>"
%>

[weppos]

Probabilmente uno dei valori dell'array (il primo) è vuoto.

[orcim]

Originariamente inviato da weppos
Probabilmente uno dei valori dell'array (il primo) è vuoto.

Grazie, ma come risolvo?

[weppos]

Originariamente inviato da orcim
Grazie, ma come risolvo?

Con un controllo sul valore.
MEtti un If che stampi il campo solo se è valorizzato.

[gold]

utenti = utenti & arrUtenti(i) & ", "
...
...
...
if left(utenti,1) = "," then
utenti = mid(utenti,2,len(utenti)-1)
end if

[orcim]

così non si visualizza più nessun utente connesso: <%

Dim arrUtenti
Response.Write "<font color=blue size=1 font face=verdana>Utenti Attivi: </font>"
arrUtenti = Split(Application("Users"),"|")

dim utenti 
for i = 0 to Ubound(arrUtenti)-1

if left(utenti,1) = "," then 
utenti = mid(utenti,2,len(utenti)-1) 
end if

Next 
Response.Write "<font color=red size=1 font face=verdana> " & utenti & "</font>"
%>

[gold]

Dim arrUtenti
Response.Write "<font color=blue size=1 font face=verdana>Utenti Attivi: </font>"
arrUtenti = Split(Application("Users"),"|")


for i = 0 to Ubound(arrUtenti)-1

if left(arrUtenti(i),1) = "," then 
arrUtenti(i) = mid(arrUtenti(i),2,len(arrUtenti(i))-1) 
end if

Next 
Response.Write "<font color=red size=1 font face=verdana> " & utenti & "</font>"
%>

[orcim]

è uguale, non visualizza niente...

[gold]

Dim arrUtenti
Response.Write "<font color=blue size=1 font face=verdana>Utenti Attivi: </font>"
arrUtenti = Split(Application("Users"),"|")


for i = 0 to Ubound(arrUtenti)-1

if left(arrUtenti(i),1) = "," then 
arrUtenti(i) = mid(arrUtenti(i),2,len(arrUtenti(i))-1) 
end if

 
Response.Write "<font color=red size=1 font face=verdana> " & arrUtenti(i) & "</font>"
Next
%>

pero' per la prossima mettiti d'impegno... visto che ho cambiato la var utenti con arrUtenti(i)... una mi era sfuggita e poi se non lo metti dentro il ciclo il response.write non stampa, ora dovrebbe andare

[Sypher]

così?

<%
Dim arrUtenti
Response.Write "<font color=blue size=1 font face=verdana>Utenti Attivi: </font>"
arrUtenti = Split(Application("Users"),"|")

dim utenti 
for i = 0 to Ubound(arrUtenti)-1
if Trim(arrUtenti(i)) <> "" then
utenti = utenti & arrUtenti(i) & ", "
end if
Next 
utenti = Right(utenti,Len(utenti)-2)
Response.Write "<font color=red size=1 font face=verdana> " & utenti & "</font>"
%>