Tengo la siguiente duda tengo el siguiente codigo que muestra toda la informacion de unas maquinas que estan disponibles. Cuando se selecciona los checkbox este guarda los valores en una variable y despues los muestra.
La pregunta es ¿ Como puedo realizar una consulta para traer la informacion de las maquinas desde la base de datos con los datos que se guardan en la variable?
Código asp:
Ver original<%@LANGUAGE="VBSCRIPT"%>
<!--#include virtual="/Connections/Conecciones.asp" -->
<%
Dim Maquinas
Dim Maquinas_cmd
Dim Maquinas_numRows
Set Maquinas_cmd = Server.CreateObject ("ADODB.Command")
Maquinas_cmd.ActiveConnection = MM_Conecciones_STRING
Maquinas_cmd.CommandText = "SELECT * FROM maquinas"
Maquinas_cmd.Prepared = true
Set Maquinas = Maquinas_cmd.Execute
Maquinas_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Maquinas_numRows = Maquinas_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Ingreso Maquinas al Ssitema</title>
</head>
<body>
<table width="200" border="0" align="center" class="readMore">
<tr class="HeaderCentro">
<td><!--#include file="header.asp" --></td>
</tr>
</table>
<tr></td>
</tr>
<table width="585" border="0" align="center" class="rightTxt1">
<tr bgcolor="#FFFFFF">
<td width="579" height="235" class="readMore"><form id="form1" name="form1" method="post" action="carro_vendedores.asp">
<table width="427" border="0">
<tr>
<td width="47">ID</td>
<td width="72">Serie</td>
<td width="74">Tipo Maquina</td>
<td width="36"> </td>
<td width="37"> </td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT Maquinas.EOF))
%>
<tr>
<td><input name="maquina" type="checkbox" id="maquina" value="<%=(Maquinas.Fields.Item("serie_maquina").Value)%>">
<label for="maquina"></label></td>
<td><%=(Maquinas.Fields.Item("serie_maquina").Value)%></td>
<td><%=(Maquinas.Fields.Item("tipo_maquina").Value)%></td>
<td> </td>
<td> </td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Maquinas.MoveNext()
Wend
%>
</table>
<p> </p>
<p> </p>
<p>
<input type="submit" name="enviar" id="enviar" value="Seleccionar Maquinas" />
</p>
</form>
<table width="545" border="0" align="center">
<tr class="Centrar">
<td width="114">Serie Maquina</td>
<td width="75">Condicion Maquina</td>
<td width="204">Tipo Maquina</td>
<td width="103">Tipo Botellon</td>
<td width="27"> </td>
</tr>
<tr>
<td><%
Dim mode,mode_a,i
mode=Request("maquina")
mode_a=split(mode,",")
For Each item In mode_a
Response.Write(item & "<br />")
Next
%></td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<p> </p>
<p> </p></td>
</tr>
</table>
<p class="Centrar">
</p>
</body>
</html>
<%
Maquinas.Close()
Set Maquinas = Nothing
%>
Gracias
