split e virgulas...

[bareta 0]

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

[bareta 0]

olha como ficou:

 

end ifRs.movenextcontari=split(cor,"@")For i = Lbound(Contari) To UBound(Contari)-1tecoteco=contari(i)&", "Nextresponse.write left(tecoteco,len(tecoteco)-1)wend

mais apaga de todos os nomes. não somente do ultimo...

[bareta 0]

dessa forma não mostra todos os nomes...

[bareta 0]

alguem tem uma ideia diferente ai?