eliminare ultimo carattere

[agenti]

<%
Set rs1 = Server.CreateObject("ADODB.recordset")
sql=...
rs1.open SQL, conn 
DO UNTIL RS1.EOF

operatori="'" & rs1("nome_mittente")&"'," & operatori


rs1.movenext
loop
response.write (operatori)

%>

ottengo qualcosa del genere

operatore1,operatore2,

a me servirebbe eliminare l'ultima ","

[maximum]

<%
Set rs1 = Server.CreateObject("ADODB.recordset")
sql=...
rs1.open SQL, conn 
DO UNTIL RS1.EOF

operatori=  "'" & rs1("nome_mittente") & "'," & operatori

rs1.movenext
loop

response.write(Left(operatori,Len(operatori)-1)) 
%>