Problema con For Each

22/08/2007 - 07:18 por janofer | Informe spam
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

Preguntas similare

Leer las respuestas

#1 Matias Iacono
22/08/2007 - 13:58 | Informe spam
Que clase de control es EQUIPO en tu pagina web?

Supongo que es una lista desplegable o similar, para poder ser una coleccion
del mismo.

Podrias colocar el codigo HTML?

Saludos.

Matías Iacono
Microsoft MVP
Orador Regional INETA
http://mvpfiles.spaces.live.com


"janofer" wrote:

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


Respuesta Responder a este mensaje
#2 janofer
22/08/2007 - 20:13 | Informe spam
el bucle anterior era solo un ejemplo este es el que utilizo para
rescatar los datos

Dim preg(), resp(), I
I = 0
For Each Valor In Request.Form
Redim Preserve preg(I)
Redim Preserve resp(I)
preg(I) = Valor
resp(I)= Request.Form(Valor)
I = I + 1
Next
Respuesta Responder a este mensaje
#3 janofer
22/08/2007 - 20:17 | Informe spam
Este es el form de la pagina con las preguntas y respuestas... es un
quiz.

<form name="game" id="game" action="GameLoad.asp" method="post">
<table width="650" border="0" cellspacing="0" cellpadding="0">
<% while not rs1.eof %>
<tr>
<td width="30">&nbsp;</td>
<td colspan="4"><strong><%=rs1(0)%>. &nbsp; <%=rs1(1)%></strong></
span></td> <!-- Muestra la pregunta -->
</tr>
<tr valign="top">
<td colspan="5" class="txt11">&nbsp;</td>
</tr>
<% while not rs2.eof
if rs1(0)=rs2(2) then ' verifica que coincida el id de las
preguntas %>
<tr>
<td valign="top"></td> <!-- seccion donde muestra las respuestas
(opciones de respuestas) -->
<td width="30" ><input type="radio" id="<%=rs1(0)%>" name="<
%=rs1(0)%>" value="<%=rs2(0)%>"></td>
<td width="25" ><strong><%=rs2(0)%>)</strong></td> <!-- ej. de lo
que imprime A) -->
<td width="540"><%=rs2(1)%></td> <!-- imprime el texto de la
respusta -->
<td width="25">&nbsp;</td>
</tr>
<%
end if
rs2.movenext
wend
rs2.movefirst
%>
<% If rs1(2) <> "" then %>
<% ' si hay un texto introductorio o comentario de la pregunta lo
muestra %>
<tr>
<td colspan="5" class="txt11">&nbsp;</td>
</tr>
<tr>
<td class="txt11"></td>
<td class="txt11"></td>
<td class="txt11"></td>
<td class="txt11" bgcolor="#D7D7D7"><br><blockquote> <p
align="justify"><%=rs1(2)%></p> </blockquote> </td>
<td class="txt11">&nbsp;</td>
</tr>
<% else %>
<% end if %>
<%
rs1.movenext
wend
%>
<tr>
<td colspan="6" class="txt11">&nbsp;</td>
</tr>
<tr>
<td colspan="6" class="txt11" align="right">
<a href="javascript:document.gameform.submit();"><image src="../
images/submit_answer.gif" width="153" height="27" alt="Submit Your
Answer" border="0"></a>
</td>
</tr>
<tr>
<td colspan="6" class="txt11" align="center"></td>
</tr>
</table>
</form>
<%
rs1.close()
set rs1 = nothing
rs2.close()
set rs2 = nothing
con.close()
set con = nothing
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida