Dividir Arreglo en base a separador (QUE ASCO ASP)

[José Molina]

Bien efectivamente, no puedo "inducir" al cliente a cambiar de plataforma, porque toda su empresa trabaja con MS y tiene un hosting que solamente le ofrece ASP con SQL SERVER.

Así fue como lo soluicone:

Tengo una cadena de la siguiente manera:

Cadena = 1,2,3,6,7,8,12,13,14

Luego la paso por esta función:

Código HTML:

	Function Dias_Consecutivos(Dias,Mes,Ano)
		DiasCA = split(Dias,",")
		Num_Dias = ubound(DiasCA)

		contador_arrobas=0
		for i=0 to Num_Dias
			if i>0 then	
				if CInt(DiasCA(i-1)+1) = CInt(DiasCA(i)) then
    		    	cad=LTrim(cad & "," & DiasCA(i))
				else
    		    	cad=cad & ",@," & DiasCA(i)
    		    	contador_arrobas=contador_arrobas+1
				end if
			else
				cad=LTrim(DiasCA(i))
			end if
		next

		arreglo=split(cad,",")

		Dias_Consecutivos = arreglo
	End Function

Gracias por la participación y sugerencias.

Suerte