[SOLUCIONADO] guardar en array lo obtenido de un select

[maialenlopez]

Hola tengo el siguiente select:

Código ASP:

<%tablabase.open "select n_pedido from tablabase where preaprobacion = '1' order by n_pedido", conn%>
 

Voy visualizando en pantalla de esta forma lo correspondiente al select:

Código ASP:

<%Dim i
i=0
while not (tablabase.eof)%>
<%response.write i%>
<input type='checkbox' name='Check"&i&"' value='')>
<%Session(tablabase("n_pedido")) = tablabase("n_pedido").value
response.write tablabase("n_pedido")%>
[B]QUIERO IR GUARDANDO LOS VALORES EN UN ARRAY[/B]
<%tablabase.moveNext
i = i + 1%>                                             
<%wend%>
 

Lo que quiero es ir guardando en un array los valores ya que luego necesito trabajar con ellos. ¿Como puedo guardar los valores que voy obteniendo en un array?

Gracias

[maialenlopez]

Ya está solucionado. lo hago de esta forma. Os dejo el código por si a alguien le pasa lo mismo o le interesa.

Código ASP:

<%tablabase.open "select n_pedido from tablabase where preaprobacion = '1' order by n_pedido", conn%>
 
<%Dim i
i=0
while not (tablabase.eof)%>
<%response.write i%>
<input type='checkbox' name='Check"&i&"' value='')>
<%Session(tablabase("n_pedido")) = tablabase("n_pedido").value
Redim Preserve pedidos(z) 
pedidos(z) = tablabase("n_pedido").value
response.write tablabase("n_pedido")
response.write pedidos(z)%>
<%tablabase.moveNext
i = i + 1
z= z + 1 %>                                             
<%wend%>
 

Saludos,

[Owen-Bonilla]

Que ta Maialen...
Con una molestia..

Estoy intentando algo similar a lo que tu hiciste, pero yo sin Base de Datos.
Selecciono "n" cantidad de Checkbox`s de un formulario, los paso a una vista previa, la cual recojo con el siguiente código:

Código HTML:

<% If Request.Form("comida") <> "" Then %>
                    <% for i = 0 to CInt(Request.Form("comida").count)%>
                    
                    <tr>
                        <td width="22" align="center">
                        <font face="Tahoma" size="2"><%=Request.Form("CantGord")%></font></td>
                        <td align="center"><font face="Tahoma" size="2"><%=Request.Form("Comida")%></font></td>
                        <td width="95" align="center">
                        <font face="Tahoma" size="2"><%=Request.Form("QueRe")%></font></td>
                        <td width="148" align="center">
                        <font face="Tahoma" size="2"><%=Request.Form("GordGuis1")%></font></td>
                        <td width="157" align="center">
                        &nbsp;</td>
                        <td width="61" align="center">
                        <p align="right"><b><font face="Tahoma" size="2">$25ºº</font></b></td>
                    </tr>
                    
<%Next 'i
End if %>
 

Mis Checkbox`s son llamados "Comida", y con esto los muestro en pantalla con la Información que venga incluida en la misma fila.


Mi problema es al visualizar, ya que me arroja lo siguiente:



Me arroja la cantidad de "Filas" correcta de los Checkboxs que seleccione, pero me muestra la información, incluso de los que no seleccione (me lo imprime en pantalla sin valores).

Alguna sugerencia, ya sea con mi ejemplo, o con lo que tu acabas de desarrollar, para que me tome sólo los que sean TRUE?.

Habia pensado en algo muy parecido a lo que tu hiciste, que con la variable "i" vas sumando un número al valor del input, previo a cambiarle el nombre a cada checkboxs de mi formulario (comida1, comida2, comida3, etc..)... pero.. se podría?

Gracias y disculpa por publicar mi problema en tu post, pero ya tengo varios días buscándole y no doy una.

Saludos

[maialenlopez]

Iniciado por Owen-Bonilla

Que ta Maialen...
Con una molestia..

Estoy intentando algo similar a lo que tu hiciste, pero yo sin Base de Datos.
Selecciono "n" cantidad de Checkbox`s de un formulario, los paso a una vista previa, la cual recojo con el siguiente código:

Código HTML:

<% If Request.Form("comida") <> "" Then %>
                    <% for i = 0 to CInt(Request.Form("comida").count)%>
                    
                    <tr>
                        <td width="22" align="center">
                        <font face="Tahoma" size="2"><%=Request.Form("CantGord")%></font></td>
                        <td align="center"><font face="Tahoma" size="2"><%=Request.Form("Comida")%></font></td>
                        <td width="95" align="center">
                        <font face="Tahoma" size="2"><%=Request.Form("QueRe")%></font></td>
                        <td width="148" align="center">
                        <font face="Tahoma" size="2"><%=Request.Form("GordGuis1")%></font></td>
                        <td width="157" align="center">
                        &nbsp;</td>
                        <td width="61" align="center">
                        <p align="right"><b><font face="Tahoma" size="2">$25ºº</font></b></td>
                    </tr>
                    
<%Next 'i
End if %>
 

Mis Checkbox`s son llamados "Comida", y con esto los muestro en pantalla con la Información que venga incluida en la misma fila.


Mi problema es al visualizar, ya que me arroja lo siguiente:



Me arroja la cantidad de "Filas" correcta de los Checkboxs que seleccione, pero me muestra la información, incluso de los que no seleccione (me lo imprime en pantalla sin valores).

Alguna sugerencia, ya sea con mi ejemplo, o con lo que tu acabas de desarrollar, para que me tome sólo los que sean TRUE?.

Habia pensado en algo muy parecido a lo que tu hiciste, que con la variable "i" vas sumando un número al valor del input, previo a cambiarle el nombre a cada checkboxs de mi formulario (comida1, comida2, comida3, etc..)... pero.. se podría?

Gracias y disculpa por publicar mi problema en tu post, pero ya tengo varios días buscándole y no doy una.

Saludos

Hola;

en cuanto pueda te pongo como lo visualizo yo.

[maialenlopez]

Hola,

Te pongo como muestro yo todo ok?

Código ASP:

<form action="pagina.asp" method = "post" id="form2" name="borrar">
<%tablabase.open "select id, n_pedido from tablabase where preaprobacion = '1' order by n_pedido", conn%>
<table border="1">      
   <%Dim i, z, check
   Dim pedidos()
   Redim pedidos(0)
   i=0
   z=0
 
   while not (tablabase.eof)%>
      <tr align="left">
         <%Session(tablabase("n_pedido")) = tablabase("n_pedido").value
         Session(tablabase("id")) = tablabase("id").value
         Redim Preserve pedidos(z)
         pedidos(z) = tablabase("n_pedido").value
         check = cstr(tablabase("id").value)%>  
         <td align="center">
              <input type="checkbox" name="ch" value="<%=check%>">
         </td>
         <td align="left">
              <%response.write pedidos(z)%>
          </td>
          <%i = i + 1
          z= z + 1 
          tablabase.moveNext%>
      </tr>
   <%wend%>
</table>
<%tablabase.Close%>
<table align="right">
   <tr>
      <td>
         <input type="submit" name="eliminar" value="Eliminar">
         <%if Request.Form("ch").Count then%>
             <%For i = 1 To Request.Form("ch").Count%>
                 <%Dim seleccionados
                 seleccionados = Request.Form("ch")(i)
                 tablabase.open "update tablabase set preaprobacion='0',        preaprobacionl='' where id ='"&seleccionados&"'", conn%>
             <%Next%>
             <%response.redirect "pagina.asp"%>
         <%end if%>
      </td>
   </tr>
</table>
</form>
 

Cuando hago el If request.form("ch").count then, voy cogiendo únicamente los checkbox que están seleccionados y me va a eliminar solo los que están clicados.

Espero servir de ayuda, si tienes alguna cosilla mas, y puedo ayudarte, aquí estoy.

[Owen-Bonilla]

Muchas Gracias,, de verdad aprecio mucho tu respuesta y tu tiempo.
Déjame lo aplico a mis necesidades y en un momento más te comento

Gracias :)