
29/04/2009, 12:06
|
| | Fecha de Ingreso: enero-2009
Mensajes: 112
Antigüedad: 16 años, 3 meses Puntos: 0 | |
Respuesta: actualizar campos mediante un select disculpa si no fui mas espesifico, te cuento.. tengo una serie de datos dentro de un form en una lista desplegable, lo que quiero hacer es que cuando el usuario seleccione un nombre de la lista se ejecute una consulta en mi db y me traiga los articulos relacionados con el nombre que selecciono antes, mi db esta en sql 2000. "espero averme explicado mejor"
ESTE ES PARTE DE MI CODIGO***
<select type="nvarchar" name="nombre" class="labell-Login" id="nombre">
<option value="">......</option>
<option value="baño de crema">Baño de crema</option>
<option value="baño de crema">Baño de crema</option>
<option value="baño de crema">Baño de crema</option>
<option value="baño de crema">Baño de crema</option>
<option value="baño de crema">Baño de crema</option>
<option value="baño de crema">Baño de crema</option>
<option value="baño de crema">Baño de crema</option>
<option value="baño de crema">Baño de crema</option>
</select>
<input type="submit" name="Submit" value="buscar")">
<%
Dim oRs, oRs2, SQL
Dim idmarca
Set oRs=Server.CreateObject("ADODB.Recordset")
Set oRs2=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM producto where (nombre='"&nombre&"');"
oRs.Open SQL, oConn
%>
<TABLE BORDER=1 CELLSPACING="1" CELLPADDING="1">
<TR>
<TD><B>Producto</B></TD>
<TD><B>Marca</B></TD>
<TD><B>Costo BsF</B></TD>
<TD><B>Agregar al Carro</B></TD>
<TD></TD>
<%
Do until oRs.EOF
idmarca=oRs.Fields("Marca")
SQL="SELECT * FROM Marca WHERE IdMarca="&idmarca&";"
oRs2.Open SQL, oConn
%>
<TR>
<TD><A HREF="<%=oRs2.Fields("URL")%>"><%=oRs2.Fields("Nom bre")%></A></TD>
<TD><%=oRs.Fields("Nombre")%></TD>
<TD><%=oRs.Fields("Precio")%></TD>
<TD><A HREF="shop.asp?ac=meter&prod=<%=oRs.Fields("IdProd ucto")%>">Comprar</A></TD>
</TR>
<%
oRs2.Close
oRs.MoveNext
Loop
%> |