Almacenar valores textbox REQUEST.FORM con ciclo ASP

White_Knight · #1 (**permalink**) 18/09/2009, 11:22

Hola que tal a todos. mi pregunta es sencilla pero no eh podido encontrar una respuesta concreta.

Tengo un formulario al cual hago submit a un archivo SIS_INSCRIPCIONES.asp.
El punto aqui esque en el formulario que envio "name = f_socios" tengo muchos muchos campos de texto, y la vdd que flojera estar pasando los valores uno por uno

Ejemplo....

NOMBRE = REQUEST.FORM("NOMBRE")
APELLIDO=REQUST.FORM("APELLIDO")
DIRECCION=REQUEST.FORM("DIRECCION")
...
...
... y asi muchisimos más

todo esto lo quieor hace con un ciclo pero no encuentro la forma de como referirme al formulario... se que es mas o menos asi

Dim aMiarray()
for each valores in request.form(NombreDeMiFormulario).count

aMiarray(valores) = request.form(nombredemiformulario)(valores)
next

No estoy seguro que asi sea...
Otra d emis dudas es que como saber que los que esta metiendo a mi array son los campos de texto y no las labels u otros items que haya...

Bueno espero me hayan entendido SALUDOOS

Adler · #2 (**permalink**) 18/09/2009, 14:34

Hola

Te he montado este ejemplo. El nombre de los campos de form ha de ser el mismo

Código asp:

Ver original<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"><head><title></title>
<meta name="http-equiv" content="Content-type: text/html; charset=UTF-8"/>
</head>
<body>
<form action="x.asp" method="post">
<input type="text" name="campos" value="valor1" />
<input type="text" name="campos" value="valor2" />
<input type="text" name="campos" value="valor3" />
<br />
<input type="submit" value="Enviar" />
</form>
<br /><br />
Esta es la informaci&oacute;n recibida
<br /><br />
<&#37;
If Request.Form("campos") <> "" Then
Response.Write("+ VALORES = " & Request.Form("campos") & "<br />")
Response.Write("+ SE HAN RECIBIDO: " & Request.Form("campos").count & " valores<br />")
for i = 1 to CInt(Request.Form("campos").count)
Response.Write("+ VALOR CAMPO" & i & " = " & Request.Form("campos")(i) & "<br />")
Next 'i
End if
%>
</body>
</html>

Suerte

White_Knight · #3 (**permalink**) 23/09/2009, 10:42

Que tal

Gracias por tu aporte, pero esa no es mi solucion, lo que quiero hacer es meter todos los objetos de tipo TEXT que estoy recibiendo de mi formulario name = f_socios meter todosesos objetos en un array con ASP para asi yo poder validarlos. por eso por ahi puse un ejemplo de array, pero no me sale de esa forma, se que es con array, pero no se que onda...

Saludos =S

pali_wichis · #4 (**permalink**) 23/09/2009, 10:49

Hola... con arrays funciona bien, solo que deberías ir haciendo un split dependiendo del parámetro por el que lo quieras separar y luego eso almacenarlo en varios sub-arrays para ir recorriendolos por un ciclo for...

Código:

valor = request.form("valor")

arregloValor= split(valor,"limite,")
<TR>
		<TD>
		<%for i=lbound(arregloValor) to ubound(arregloValor)%>
			<%=arregloValor(i)%><br>
		<%next%></TD>
</TR>

algo asi?

White_Knight · #5 (**permalink**) 19/10/2009, 14:56

que tal, no se si lo que estoy pidiendo sea posible hehehe

lo que yo quieor hacer es simplificar codigo, esque son tantos campos los que voy a recibir que pienso yo que podria ser mucho mejor con algun array...

ahi les va, loq ue yo quieor hacer es esto

miArray() = REQUEST.FORM(todos los campos)

algo asi... Se puede hacer algo asi??? creo que ya me explique mejor...

una ves haciendo eso, es facil insertarlos a la BD

SALUDOS

GRACIAS POR TU APORTE pali_wichis pero seguimos con la duda...

Adler · #6 (**permalink**) 20/10/2009, 07:24

Hola

No alcanzo en ve la diferencia, pero bueno ...

Cambia esto

Código asp:

Ver originalIf Request.Form("campos") <> "" Then
Response.Write("+ VALORES = " & Request.Form("campos") & "<br />")
Response.Write("+ SE HAN RECIBIDO: " & CInt(Request.Form("campos").count) & " valores<br />")
for i = 1 to CInt(Request.Form("campos").count)
Response.Write("+ VALOR CAMPO" & i & " = " & Request.Form("campos")(i) & "<br />")
Next 'i
End if

por esto

Código asp:

Ver originalDim arr(), contador
contador = 0
redim preserve arr(0)
for i = 1 to CInt(Request.Form("campos").count)
redim preserve arr(contador)
arr(contador) = Request.Form("campos")(i)
contador = contador +1
next
for i = 0 to UBound(arr)
Response.Write arr(i) & "<br>"
next

Suerte