separare con , utenti connessi

[Roger86]

Ciao a tutti premetto che ho cercato nel forum cio di cui avevo bisogno, ma purtroppo nn riesco a ottenere risultati spiego subito:

Mettendo questo codice nella pagina che visualizza i connessi :

<%
Dim arrUtenti
Response.Write "<font color=#B40000size=1 font face=verdana>Connessi: </font>"
arrUtenti = Split(Application("Users"),"|")
dim utenti
for i = 0 to Ubound(arrUtenti)-1
utenti = utenti & arrUtenti(i) & ", "
Next
Response.Write "<font color=#D46E00 size=1 font face=verdana> " & utenti & "</font>"
%>

Ottengo gli utenti connessi come voluto, ma con un piccolo errore:

Connessi: pippogiuseppe, paolo, luigi, ecc

Il primo campo mi include due account!!O.O!
non me li separa dalla virgola qualcuno potrebbe darmi maggiori delucidazioni a riguardo?grazie mille in anticipo!

[Roby_72]

for i = 0 to Ubound(arrUtenti)-1
if utenti = "" then
utenti = arrUtenti(i) & ", "
else
utenti = utenti & arrUtenti(i) & ", "
end if
Next

Alla fine avrai comunque una virgola di troppo...

Roby

[Roger86]

Originariamente inviato da Roby_72

for i = 0 to Ubound(arrUtenti)-1
if utenti = "" then
utenti = arrUtenti(i) & ", "
else
utenti = utenti & arrUtenti(i) & ", "
end if
Next

Alla fine avrai comunque una virgola di troppo...

Roby

Grazie Roby!

[fulviolo58]

Così non dovrebbe esserci l'ultima virgola

for i = 0 to Ubound(arrUtenti)-1
 if utenti = "" then
  utenti = arrUtenti(i)
 else
  utenti = utenti & ", " & arrUtenti(i)
 end if
Next

fulvio

[Roger86]

Originariamente inviato da fulviolo58
Così non dovrebbe esserci l'ultima virgola

for i = 0 to Ubound(arrUtenti)-1
 if utenti = "" then
  utenti = arrUtenti(i)
 else
  utenti = utenti & ", " & arrUtenti(i)
 end if
Next

fulvio

grazie millE!!!!!!!

[Alethesnake]

Ma fare direttamente:

Response.Write (Replace(Application("Users"),"|", ","))

?