He colocado el código pero lo unico que consigo es que me aparazca la lista desplegable con los nombres de las maderas.
Cuando cambio el valor de la lista no me aparece nunca nada en la caja de texto.
Este es mi codigo:
<%
set rs3=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM maderas"
rs3.Open SQL, Conn
%>
<select name="id_madera" size="1" id="id_madera" onchange="document.Listas.color.value = <% = rs3("color_madera") %>">
<%while not rs3.eof %>
<option value="<% = rs3("id_madera") %>|<% = rs3("color_madera") %>"><% = rs3("nombre_madera") %></option>
<%rs3.MoveNext
wend%>
</select>
<%rs3.Close%>
<input name="color" type="text" id="color" size="20">