ASP - check box

check box

Publicado por Nancy (5 intervenciones) el 24/03/2003 22:45:37

Necesito que al recorrer con un for una tabla que contiene nombres en la página me aparezca un check box por cada uno de los valores de la tabla para poder seleccionarlo y luego al pasar a otra página estos valores.

Ejemplo:
tabla_usu(0)='Rodrigo Castro'
tabla_usu(1)='Pedro Soto'
tabla_usu(2)='Juan Pérez'

Necesito que por pantalla me aparezca :

 Rodrigo Castro
 Pedro Soto
 Juan Pérez

Y poder seleccionar más de un nombre.
Luego tener la opción de transferir los valores de cada ckeck a otra página
Yo lo intenté pero no lo logré:

Para crear los check hice:

<% for i = 0 to total_usu %><FONT SIZE=2> <td bgcolor="#EAEAEA"><P></FONT><FONT FACE="FuturaA Bk BT,Lucida Sans Unicode" SIZE=2> <input type="checkbox" name="xJefeProyecto<%=i%>" value="S" FONT>
<%=tabla_usu(nom_usu,i)%></font>
</tr>
<% next %>

Y para pasar a otra página los valores:

<%
for i = 0 to tope_usu %>
<INPUT TYPE="hidden" NAME="JEFE_PROYECTO<%=cstr(i)%>" VALUE="xJefeProyecto<%=i%>">
<%next %>

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

RE:check box

Publicado por Santos Pairazamán (415 intervenciones) el 26/03/2003 15:31:39

Hola Nacy, Para mostrar los checks y los datos debes recorrer tu recordset :
En este caso estoy poniendo el mismo Nombre Chequeado a cada Check que se genere, creando asi un arreglo de Checks, además creo un arreglo de textBox para almacenar los nombres de productos.

<%S=0%>
<% Do while (not RsProductos.EOF)%>
<Input Type="Checkbox" Name="Chequeado<%=cstr(s)%>" value="<%=RsProductos("CodProducto")%>"></td>
<Input Name="Productos<%=cstr(s)%>" value="<%=RsProductos("Producto")%>"></td>
<% RsProductos.MoveNext
s=s+1
loop%>

Dentro del Html estoy poniendo un campo hidden para ocultar la cantidad de registros.

<input type="hidden" name="Nro_Registros" value="<%=S%>">

Para recoger los valores y poder Mostrarlos:

Nro_Registros= cint(Request.form("Nro_Registros"))
Dim Seleccionados()
'creo una matriz y luego la redimenciono de acuerdo al nro de registros.
Redim Seleccionados(Nro_Registros-1,1)
For P=0 to Nro_Registros-1
'Almaceno los datos recogidos en el arreglo.
Seleccionados(P,0)=Request.Form("Chequeado"&P)
Seleccionados(P,1)=Request.Form("Productos"&P)
Next
for S=0 to ubound(Seleccionados)
'si es diferente de vacio indica que ha sido seleccionado. y muestro los valores
if Seleccionados(s,0)<>"" then
%>
<html>
<body>
<form name=frmMostrar>
<input name="Seleccionados" value="<%=Seleccionados(s,0)%>">
%

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar