Dim arreg 'He quitado el índice'Dim cadena cadena = "21,22,23" arreg = split(cadena,",") For i=0 to UBound(arreg) response.Write("<br>"&arreg(i)) Next