split e virgulas...

ai galera meu codigo é esse:

sub users()strSQL = "SELECT * FROM Online where usuario<>'guest' and pagina='" & Request.ServerVariables("SCRIPT_NAME") & QueryStrr & "' "Set Rs = Conexao.Execute(strSQL)response.write "Membro(s) conectado(s): "while not Rs.eofif Rs("funcao")="admin" thencor="<b><font color=red>"& LCase(Rs("usuario"))&"</b></font>@"elseif Rs("funcao")="mod" thencor="<b><font color=red>"& LCase(Rs("usuario"))&"</b></font>@"elseif Rs("funcao")="supermod" thencor="<b><font color=red>"& LCase(Rs("usuario"))&"</b></font>@"elsecor="<b><font color=black>"& LCase(Rs("usuario"))&"</b></font>@"end ifRs.movenextcontari=split(cor,"@")For i = Lbound(Contari) To UBound(Contari)Response.Write contari(i)&", "NextwendRs.CloseSet Rs = Nothingend sub

ele ta escrevendo duas virgulas depois do nome.... e no ultimo ta colocando tbm.... queria que ficasse que nem aqui na imasters... aparece o nome e uma virgula depois... e no ultimo não aprecer nada ex:

membros conectados: fulano, ciclano, etc, tal