Agregar comas, menos al ultimo

[politikaperu]

IsaBelM y sjam7 gracias por responder. Les cuento que probé con esto:

<% while NOT rsTypeListing.EOF
Dim strText , arrText , intCount
strText = FormatNumber((rsTypeListing.Fields.Item("PER").Val ue), 0, -2, -2, -2)
arrText = Split(strText,",")
For intCount = 0 to UBound(arrText)
Response.Write arrText(intCount) & ","
Next
rsTypeListing.movenext()
Wend %>
Da como resultado: 7,7,2,6,7, separa los valores con ,. Hasta ahí todo bien.
Lo que me falta es que la última coma no aparezca. Cómo hago eso..... Gracias por su ayuda.