mmmhhhh, cierto, habría que poner una condición antes de que numeritos tenga un solo número
<%
numeritos= "400,154,100"
mi_valor = "100"
arrNumeritos= split(numeritos, ",")
If Ubound(arrNumeritos) > 0 Then
numeritos= ""
Dim arrNumeritos2()
For i=0 to uBound(arrNumeritos)
If not arrNumeritos(i)= mi_valor Then
numeritos= numeritos & arrNumeritos(i) & ","
End If
Next
numeritos= left(numeritos, len(numeritos)-1)
Else
If numeritos = mi_valor Then
numeritos= ""
End If
End If
Response.Write(numeritos)
%>
Creo que con eso ya queda bien
