Recupero lista utenti connessi

[ubbicom]

Ciao, come faccio a separare con una virgola la lista degli utenticonnessi che recupero e stampo a video così:

response.write rec("utente_connesso")

[ubbicom]

provo così ma non funziona:

Dim arrUtenti 
arrUtenti = Split(rec("utente_connesso"),"|") 
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>"