bueno, ya te entendí. Mira, ya te había hecho este algoritmo para mostrar los números faltantes en una lista y el siguiente inclusive (para que el combo no saliera vacío), en cuanto tenga chance -si no lo has conseguido- lo modifico para que el arreglo de entrada lo llene con los ID's de los archivos existentes. Para probarlo solo cópialo, pégalo y córrelo
Código:
<%
vecOcupados = Array(2,4,5,9,12,15)
Max = 0
For i=0 To UBound(vecOcupados)
if vecOcupados(i) > Max Then Max = vecOcupados(i) End if
Next
Dim vecFaltantes()
Cnt = -1
Bandera = False
For i=1 To Max+1
For j=0 To UBound(vecOcupados)
Bandera = vecOcupados(j) = i
if Bandera Then Exit For End If
Next
If Not Bandera Then
Cnt = Cnt + 1
Redim Preserve vecFaltantes(Cnt)
vecFaltantes(Cnt) = i
End If
Next
For j=LBound(vecFaltantes) To UBound(vecFaltantes)
response.Write j+1 & ") " & vecFaltantes(j) & "<br>"
Next
%>