Formulario dinamico

MAIKIKY · #1 (**permalink**) 01/05/2010, 17:13

hola amigos, necesito una vez mas de vuestra ayuda.

sucede que tengo un sistema que genera un formulario dinamico en asp.

con checkbox , radion button y casillas de texto.

al momento de generar el formulario se crea asi com ejemplo:
si son radio button seria asi

rad_101=1
rad_102=2
rad_103=3

si son textos

asi :

tex_101 = texto1
tex_102 = texto2
tex_103 = texto3

los datos del radiobutton los recojo con un for each var in , eso funciona para grabar una sola variable, que seria los rad , mi consulta es :

como recojo los datos de las casillas de texto y me las guarde en mi base al mismo tiempo que los radiobutton ??

por ejemplo :

campo 1 campo 2

1 texto1
2 texto1
3 texto1

les recuerdo q son formularios dinamicos no son fijos .

Muchas gracias

MAIKIKY · #2 (**permalink**) 01/05/2010, 17:25

Cita:

Iniciado por MAIKIKY

hola amigos, necesito una vez mas de vuestra ayuda.

sucede que tengo un sistema que genera un formulario dinamico en asp.

con checkbox , radion button y casillas de texto.

al momento de generar el formulario se crea asi com ejemplo:
si son radio button seria asi

rad_101=1
rad_102=2
rad_103=3

si son textos

asi :

tex_101 = texto1
tex_102 = texto2
tex_103 = texto3

los datos del radiobutton los recojo con un for each var in , eso funciona para grabar una sola variable, que seria los rad , mi consulta es :

como recojo los datos de las casillas de texto y me las guarde en mi base al mismo tiempo que los radiobutton ??

por ejemplo :

campo 1 campo 2

1 texto1
2 texto1
3 texto1

les recuerdo q son formularios dinamicos no son fijos .

la url q se genera seria asi :

datos.asp?rad_id=101&text_101=texto1&rad_id=102&te xt_102=texto2&rad_id=103&text_103=texto3

rad seria variable 1
tec variable 2

Muchas gracias

Adler · #3 (**permalink**) 02/05/2010, 07:32

Hola

No he entendido muy bien cual es la configuración de tu formulario

Esto es un ejemplo

Código HTML:

Ver original<head>
</head>
<body>
<form action="RecogerSOLOCamposRellenos.asp" method="post">
<input type="text" id="1" name="cam_form" value="" tabindex="1" />
<input type="text" id="txt1" name="cam_form" value="" tabindex="2" />
<input type="text" id="txt11" name="cam_form" value="" tabindex="3" />
<textarea id="txtarea1" name="cam_form" tabindex="4"></textarea><br />
 
<input type="text" id="2" name="cam_form" value="" tabindex="5" />
<input type="text" id="txt2" name="cam_form" value="" tabindex="6" />
<input type="text" id="txt22" name="cam_form" value="" tabindex="7" />
<textarea id="txtarea2" name="cam_form" tabindex="8"></textarea><br />
 
<input type="text" id="3" name="cam_form" value="" tabindex="9" />
<input type="text" id="txt3" name="cam_form" value="" tabindex="10" />
<input type="text" id="txt33" name="cam_form" value="" tabindex="11" />
<textarea id="txtarea3" name="cam_form" tabindex="12"></textarea><br />
 
<input type="text" id="4" name="cam_form" value="" tabindex="13" />
<input type="text" id="txt4" name="cam_form" value="" tabindex="14" />
<input type="text" id="txt44" name="cam_form" value="" tabindex="15" />
<textarea id="txtarea4" name="cam_form" tabindex="16"></textarea><br />
 
<input type="submit"  value="Enviar" />
</form>
</body>
</html>

RecogerSOLOCamposRellenos.asp

Código ASP:

Ver original<&#37;
Dim Arr() ' Valores de todos los campos recibidos
For each campo in Request.Form
valCampos = valCampos & Request.Form(campo)
Next
 
division = Split(valCampos, ",")
 
for i = 0 to UBound(division)
Redim preserve Arr(i+1)
Arr(i) = Trim(division(i))
next
 
Dim Arr2() ' Valores del primer campo de cada tr
Dim Arr3() ' Valores del segundo campo de cada tr
Dim Arr4() ' Valores del tercer campo de cada tr
Dim Arr5() ' Valores del cuarto campo de cada tr
 
j = 0
for i = 0 to ubound(Arr)-1 step 4
if Arr(i) <> "" then 
Redim preserve Arr2(j) 
Arr2(j) = Arr(i) 
j = j +1 
end if
next
 
x = 0
for i = 1 to ubound(Arr)-1 step 4
if Arr(i) <> "" then 
Redim preserve Arr3(x) 
Arr3(x) = Arr(i) 
x = x +1 
end if
next
 
 
p = 0
for i = 2 to ubound(Arr)-1 step 4
if Arr(i) <> "" then 
Redim preserve Arr4(p) 
Arr4(p) = Arr(i) 
p = p +1 
end if
next
 
z = 0
for i = 3 to ubound(Arr)-1 step 4
if Arr(i) <> "" then 
Redim preserve Arr5(z) 
Arr5(z) = Arr(i) 
z = z +1 
end if
next
 
' conexión bd
 
for i = 0 to j-1
'Response.Write Arr2(i) & ","
'Response.Write Arr3(i) & ","
'Response.Write Arr4(i) & ","
'Response.Write Arr5(i) & "<br />"
SQL="INSERT INTO tabla (campo, campo2, campo3, campo4) VALUES ('"&Arr2(i)&"', '"&Arr3(i)&"', #"&Arr4(i)&"#, #"&Arr5(i)&"#);" 
oConn.Execute(SQL)
next
oConn.Close
set oConn = nothing
 
Response.Write("Datos Insertados con &eacute;xito")
%>

Suerte

MAIKIKY · #4 (**permalink**) 03/05/2010, 12:10

Gracias Adler por tu respuesta..

funciona tal cual lo indicas, pero q pasa si son mas de 4 variables las q ocupo ??

la aplicacion q estoy desarrollando genera preguntas y respuestas a traves de los parametros q el usuario le indique, es decir, puedo crear una pregunta abierta y otra con alternativas, pero eso a partir de lo que yo quiera mostrar en el formulario(no es fijo) de este modo el formulario se va creando con datos q toma desde una base de datos y no con un codigo en html.
si el tipo es 1 dibuja un cuadro te texto y su id de pregunta
si el tipo es 2 genera un radiobutton y su id de pregunta y id de alternativa

para el tipo 2 , la aplicacion me funciona ok , pero cuando trato de hacerlo con texto libre me causa problemas, ya q solo recoje el texto o el id de respuesta, no ambos.

te envio un formulario de ejemplo generado por mi sistema :

<html>
<head>
<title> </title>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<p><span class="label"></span></p>
<table width="80%" border="0" align="center">
<tr>
<td bgcolor="#CCCCCC"><p>

</p>
<form name="dtr_frm" method="get" action="Int_Mer_00015.asp">
<div align="center"></div>
<hr width="100%" noshade class="tbflat">
<table width="100%" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="credit_footer">
<tr>
<td class="label_t"><font size="2"><strong><font color="#0033CC">
Pregunta Nro : - favor opine sobre el departamento de informatica </font> </strong> </font>
<div align="right"></div></td>
</tr>
<tr>
<td height="10%" background="Images/barrita_1.png" bgcolor="#003366"></td>
</tr>
<tr>
<td background="Images/barrita_1.png" bgcolor="#003366"></td>
</tr>
</table>
<hr width="100%" noshade class="tbflat">

<table width="80%" align="center" bgcolor="#CAEEFF" class="label">
<tr class="label">
<td bordercolor="#CCCCCC" bgcolor="#CCCCCC" > <div align="center" class="muestra">Respuesta abierta </div> <label></label></td>
</tr>
<tr class="label">
<td bordercolor="#CCCCCC" bgcolor="#CCCCCC" ><div align="center">
<textarea name="Abr_392_1545" cols="120" rows="5" class="lista"></textarea>
<input name="Alt_" type="visible" value="1545">
</div></td>
</tr>
</table>

<div align="center"></div>
<hr width="100%" noshade class="tbflat">
<table width="100%" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="credit_footer">
<tr>
<td class="label_t"><font size="2"><strong><font color="#0033CC">
Pregunta Nro : - buena caliadad de servicio ?? </font></strong></font>
<div align="right"></div></td>
</tr>
<tr>
<td height="10%" background="Images/barrita_1.png" bgcolor="#003366"></td>
</tr>
<tr>
<td background="Images/barrita_1.png" bgcolor="#003366"></td>
</tr>
</table>
<hr width="100%" noshade class="tbflat">

<table width="100%" align="center" bgcolor="#CAEEFF" class="label">
<tr class="label_t">
<td width="0%" bordercolor="#CCCCCC" bgcolor="#CCCCCC" > </td>
<td width="48%" bgcolor="#F2F2F2" >Si </td>
<td width="52%" bgcolor="#F2F2F2" ><input name="Rad_393" type="radio" value="1546">
</td>
</tr>
</table>

<table width="100%" align="center" bgcolor="#CAEEFF" class="label">
<tr class="label_t">
<td width="0%" bordercolor="#CCCCCC" bgcolor="#CCCCCC" > </td>
<td width="48%" bgcolor="#F2F2F2" >no </td>
<td width="52%" bgcolor="#F2F2F2" ><input name="Rad_393" type="radio" value="1547">
</td>
</tr>
</table>

<table width="100%" align="center" bgcolor="#CAEEFF" class="label">
<tr class="label_t">
<td width="0%" bordercolor="#CCCCCC" bgcolor="#CCCCCC" > </td>
<td width="48%" bgcolor="#F2F2F2" >mas o menos </td>
<td width="52%" bgcolor="#F2F2F2" ><input name="Rad_393" type="radio" value="1548">
</td>
</tr>
</table>

<div align="center"></div>
<hr width="100%" noshade class="tbflat">
<table width="100%" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="credit_footer">
<tr>
<td class="label_t"><font size="2"><strong><font color="#0033CC">
Pregunta Nro : - estado del servicio </font></strong></font>
<div align="right"></div></td>
</tr>
<tr>
<td height="10%" background="Images/barrita_1.png" bgcolor="#003366"></td>
</tr>
<tr>
<td background="Images/barrita_1.png" bgcolor="#003366"></td>
</tr>
</table>
<hr width="100%" noshade class="tbflat">

<table width="80%" align="center" bgcolor="#CAEEFF" class="label">
<tr class="label">
<td bordercolor="#CCCCCC" bgcolor="#CCCCCC" > <div align="center" class="muestra">Respuesta abierta </div> <label></label></td>
</tr>
<tr class="label">
<td bordercolor="#CCCCCC" bgcolor="#CCCCCC" ><div align="center">
<textarea name="Abr_394_1549" cols="120" rows="5" class="lista"></textarea>
<input name="Alt_" type="visible" value="1549">
</div></td>
</tr>
</table>

</p>
</Form>

</tr>
</table>
<p> </p>
</body>
</html>

muchas gracias

Adler · #5 (**permalink**) 05/05/2010, 06:12

Hola

Así a bote pronto se me ocurre que en el formulario podrías usar un campo hidden que indicara el número de campos ha recibir arreglo a la
opción (1 ó 2). Este campo lo colocas como último campo del formulario.
El valor de este campo lo recoges al principio de todo

Cita:

tipo = Request.Form("campohidden")
Dim Arr() ' Valores de todos los campos recibidos
For each campo in Request.Form
valCampos = valCampos & Request.Form(campo)
Next

Después en este bucle

Cita:

for i = 0 to UBound(division)-1
Redim preserve Arr(i+1)
Arr(i) = Trim(division(i))
next

Por último, creas un bucle, dentro creas otro bucle y le indicas la iteración con el valor del campo hidden y la matriz Arr1 la haces bidimensional

Cita:

Dim Arr1()

for n = 0 to valor

j = 0
for i = 0 to ubound(Arr)-1 step valor
if Arr(i) <> "" then
Redim preserve Arr1(n,j)
Arr1(n,j) = Arr(i)
j = j +1
end if
next

next 'n

Puede que funcione

Suerte