duda en select haciendo do while

[Gaby_Corr]

burno, mira hice que me desplegara que es loque trae tanto en privilegio(k) como estado(l), mira aqui una prueba,


estatus: R
estatus: R
estatus: R
estatus: R
estatus: R
privilegio: 1
estatus: A
privilegio: 2
privilegio: 3
privilegio: 4
privilegio: 5
privilegio: 6
privilegio: 7
privilegio: 8
privilegio: 9
privilegio: 10
privilegio: 11
privilegio: 12
privilegio: 13
estatus: R
privilegio: 14
privilegio: 15
privilegio: 16
estatus: R
estatus: R
estatus: R
estatus: R
estatus: R
estatus: R
estatus: R
estatus: R
estatus: R
0.- status = 'R' donde idprivilegio = 1
1.- status = 'R' donde idprivilegio = 2
2.- status = 'R' donde idprivilegio = 3
3.- status = 'R' donde idprivilegio = 4
4.- status = 'R' donde idprivilegio = 5
5.- status = 'A' donde idprivilegio = 6
6.- status = 'R' donde idprivilegio = 7
7.- status = 'R' donde idprivilegio = 8
8.- status = 'R' donde idprivilegio = 9
9.- status = 'R' donde idprivilegio = 10
10.- status = 'R' donde idprivilegio = 11
11.- status = 'R' donde idprivilegio = 12
12.- status = 'R' donde idprivilegio = 13
13.- status = 'R' donde idprivilegio = 14
14.- status = 'R' donde idprivilegio = 15
15.- status = 'R' donde idprivilegio = 16


si te fijas en el privilegio 6 le pone un status de A, cosa q no debe ser por que el select que seleccioné fue el primero, osea, el idprivilegio=1 y me pone q es una R

y si tu cuentas desde el estatus que esta en negritas, si cuentas las posiciones son 6 y por eso el status A me lo pone en el idprivilegio=6


es por eso que digo que se hace bolas:

solo puse el response.write para ver lo q traia cada uno:

Código:

    For each elemento in request.form
    
	    dato=request.Form(elemento)
		
		if instr(elemento,"idprivilegio")<>0 then          
            redim preserve privilegio(k)           
            privilegio(k)=dato
			response.Write "<br>privilegio: " & privilegio(k)
			k=k+1
		
        elseif instr(elemento,"status")<>0 then           
            redim preserve estado(l)           
            estado(l)=dato            
			response.write "<br>estatus: " & estado(l)
            l=l+1		
        end if
		
		if instr(elemento,"grupo")<>0 then
		 idgrup = dato
		end if
		if instr(elemento,"usuarios")<>0 then
		 iduser = dato
		end if
	
    next