Agregar comas, menos al ultimo

[politikaperu]

Amigos, seguro esto es sencillo para ustedes.
Tengo un campo <%=formatNumber(ars.Fields("per"),2)%>
Está dentro de un while - wend.

Me da como respuesta: 15205640, es decir los datos que contiene el campo "pe" que son 15 20 56 40, etc.... (es un ejemplo, puesto que los extrae del campo "pe"

Necesito que me los presente así: 15,20,56,40
La idea es separar cada registro mediante una "," menos el último registro.

Ojalá me puedan ayudar.

Gracias de antemano

[sjam7]

puedes poner algo asi:

Código ASP:

do while not ars.eof
   numero=numero&ars("per")
ars.movenext
  if not ars.eof then numero=numero&","
loop
 

[IsaBelM]

también puedes recoger los registros con getRows(), con esto obtienes una matriz de dos dimensiones. esta matriz se la pasas a la función Join()

[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.

[sjam7]

pues a lo mejor con el do while que te puse para que puedas controlar cuando sea el ultimo registro

[politikaperu]

Si fuera posible un ejemplo, les agradecería

[sjam7]

pues algo rapido:

inicia=0
hasta=UBound(arrText)

Do while inicia<hasta
if inicia<hasta thenResponse.Write arrText(inicia) & ","
inicia=inicia+1
loop

[IsaBelM]

que tonta que estoy!! mira que lo escribí y todo. la función array join() solo se puede usar con array de una dimensión.
yo prefiero la función getrows() para así cerrar lo antes posible la conexión
un ejemplo

rows = rs.getrows()
rs.Close
set rs = Nothing


for i = 0 to UBound(rows,2)
if i = UBound(rows,2) then
response.write rows(0,i)
else
response.write rows(0,i) & ", "
end if
next