Ad ogni modo metti la virgola solo se serve, quindi prima di ogni elemento, non dopo:

codice:
<%
...
...
vc_listcodiavvi = ""
Do While Not rsprinci.EOF
if vc_listcodiavvi = ""
vc_listcodiavvi = rs("tuocampo")
else
vc_listcodiavvi = vc_listcodiavvi  &","& rs("tuocampo")
end if
Loop
...
...
%>
Roby