Problema con For Each

[alfega]

Hola... sucede que tengo un comportamiento bastante extraño (estoy
super desorientado ) ... uso un For Each para recoger las
variables que llegan desde un formulario.

algo asi como:

Dim equipos(), I
I = 0

For Each Valor In Request.Form("equipo")
Redim Preserve equipos(I)
equipos(I) = Valor
I = I + 1
Next

el asunto es que me muestra los datos desordenados. Tambien probe con
la siguiente sentencia y me muestra de igual modo los datos
desordenados.

For Each elemento in Request.form
Response.Write elemento & ": " & Request.form(elemento) & "<br>"
Next

resultado:

1: A
2: B
3: C
13: A
4: A
11: D
5: C
6: C
7: D
8: B
9: D
12: C
10: B

Utize esta otra sentencia response.Write(request.Form()) para probar
como me llegan los datos, y segun el resultado los datos llegan
ordenados.

1=A&2=A&3=A&4=A&5=A&6=A&7=A&8=A&9=A&10=A&11=A&12=A &13=A

he buscado y probado "N " y no logro llegar al problema...

...auxilio

Gracias

[Kelpie]

Quizá cambiando la manera de mostrarlos...

Código:

for r=0 to ubound(equipos)
 response.write(r & ":" & equipos(r))
next

O la manera de pillarlos

Código:

cnt=0
trata=split(Request.Form("equipo"),"&")
for r=0 to ubound(trata)
  trata2=split(trata(r),"=")
  redim preserve equipos(cnt)
  equipos(cnt-1)=trata2(1)
  cnt=cnt+1
next

O en última instancia, examinar el primer valor y asignar el segundo corectamente. Es decir, si recibes 1=A&5=C&..., examinar la pareja 1=A y meter en el índice 1 la A, Luego examinas la pareja 5=C y metes en el índice 5 la C, etc

[alfega]

gracias por las sugerecias... voy a probar como resulta.

[JuanRAPerez]

perdon por mi curiosidad

y la manera de ordenarlos es para?

[alfega]

...poder comparar los resultado con un tabla y ver las respuestas correctas

lo que recibo por post es esto:

1: A
2: B
3: C
4: A
5: C
6: C
7: D
8: B
9: D
10: B
11: D
12: C
13: A

(tb lo probe con get y recibo lo mismo... nose porq' se desordena despues con el for each)

...estaba pensando en hacer algo asi como... pero nose como hacerlo

For Each elemento In Request.Form
Redim Preserve pregunta(I), respuesta(I)
pregunta(I) = elemento
respuesta(I)= Request.Form(elemento)
I = I + 1

select numero_pregunta, opcion_pregunta, pregunta_correcta from juego_repuestas where numero_pregunta=pregunta(1) and opcion_pregunta=respuesta(1)

Next


asi voy creando una matriz para guardar el resultado y mostrarlos por pantalla

[JuanRAPerez]

pero si es solo para comparar con una tabla, no entiendo el sentido de porque no compararlo asi desorndenados

no entiendo el hecho... al hacer la comparacion te da algun error?

digo si es para comparar con las repuestas lo importante es que te lleve los valores y esos valores vos los vas a comprara no?

[alfega]

yep... recibo bien los valores... el problema es que nose como se hace lo que tu dices, por eso rescato los valores uno a uno y los comparo con la tabla, al final terminaba haciendo muchos select... "se es una joda, pero nose otra forma de hacerlo"

Les estaria muy agradecido si pudieran darme un ejemplo...

saludos