Ver Mensaje Individual
  #1 (permalink)  
Antiguo 11/07/2003, 15:22
Avatar de lexus
lexus
 
Fecha de Ingreso: enero-2002
Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 23 años, 2 meses
Puntos: 4
Exclamación De Combo Con Bd A Campo De Texto

hola

tengo un formulario el cual tiene un combo y un campo de texto,

en el combo mando a llamar los datos de una base de datos la cual

genera una lista de productos en el combo,

quisiera que al seleccionar el combo de productos, cada que seleccione

un producto me apareciera el precio correspondiente a ese producto en

el campo de texto.

en la base de datos estan los campos PRODUCTO VALOR_PRODUCTO.


EL CODIGO QUE TENGO PARA LLAMAR LOS DATOS Y LLENAR EL COMBO ES:

Código:
<%  
	Dim sql2
	Set rs2 = Server.CreateObject("ADODB.Recordset")
	sql2="SELECT distinct PRODUCTO FROM PRODUCTOS WHERE PRODUCTO 

ORDER BY PRODUCTO  ASC"
	rs2.Open sql2, con, 3, 3
	   %>
          <select name="producto">
            <% while Not rs2.EOF %>
            <option 

value="<%=Ucase(rs2("PRODUCTO"))%>"><%=Ucase(rs2("PRODUCTO"))%></option

>
            <% rs2.MoveNext 
Wend %>
          </select>

ESPERO ME PUEDAN COLABORAR
EN RESUMIDAS CUENTAS:

AL SELECCIONAR UN PRODUCTO DE UN COMBO QUE ME COLOQUE EL PRECIO DE ESE

PRODUCTO EN UN CAMPO DE TEXTO.
__________________
Control de Visitantes, Control de Accesos, Minutas digitales, Manejo de Correspondencia
http://www.controldevisitantes.com