editar un dropdownbox

[nancy8120]

Hola
Les agradezco si me pueden ayudar en este problemita
Tengo un drop-downbox de selección múltiple ósea se pueden seleccionar varias opciones del drop-downbox, OK seleccionan las opciones y luego las guardo en la bd no tengo problema con esto
El problema es q a la hora de editar no se como hacerlo, quiero traer las opciones que se habían seleccionado y guardado en la bd al drop-downbox pero q se vean sombradas para identificar que esas habían sido las seleccionadas junto con las otras opciones para editarla las
Les muestro el código q guarda q me esta funcionando muy bien
Aquí muestra el drop-downbox
<select size="7" name="tipo_comida" multiple tabindex="0">

<%
Set RS=Server.CreateObject("ADODB.RecordSet")
Sql2 = "select * from res_types"
rs.open sql2, conn,1,1

do while rs.eof = false
%>

<OPTION Value=<%=rs("res_types")%>><%=rs("type")%></OPTION>
<%
rs.MoveNext
loop
%>




</select>
************************************************** ******************
Aquí se guardan las opciones seleccionadas
Nota: el id no cambia en una selección
<%
tipocomida=Form.Items.MultiItem("tipo_comida").val ue

if tipocomida <>"" then
arrtipocomida = split ( tipocomida , "," ,-1,1)
dim i
for i=0 to ubound(arrtipocomida)
SQLt="insert into rel_master_type(idmaster,res_types)values('" & id & "'," & arrtipocomida(i) & ")"

'response.write sqlt

set rst= conn.execute(SQLt)
next
end if
%>
saludos,
nancy

[tammander]

No se si es esto lo que quieres, espero que si

<select size="7" name="tipo_comida" multiple tabindex="0">

<%
Set RS=Server.CreateObject("ADODB.RecordSet")
Set RS2=Server.CreateObject("ADODB.RecordSet")
Sql2 = "select * from res_types"
rs.open sql2, conn,1,1

Dim aSelect

if not rs.EOF then
rs2.open "SELECT * FROM rel_master_type WHERE res_types = " & rs("res_types"), conn, 1, 1
if not rs2.EOF then aSelect = rs2.getRows
rs2.close()
set rs2 = nothing
end if

do while not rs.eof
selected = false
if isArray(aSelect) then
for x = 0 to UBound(aSelect,2)
' Posicionate en el campo donde estes buscando
if aSelect(1,x) = rs("res_types") then
selected = true
exit for
end if
next
end if
%>

<OPTION Value=<%=rs("res_types")%><% if selected then response.write " selected" %>><%=rs("type")%></OPTION>
<%
rs.MoveNext
loop
%>

Un saludo

[nancy8120]

Excelente
muchas gracias

[nancy8120]

hola soy yo nuevamente
implemente el ejemplo ok si funciona en parte pero no encuentro como sombrear las opciones de las tablas que son iguales,
no se si me explico bien

[tammander]

No se si te entendí bien pero esto funciona en los select de seleccion multiple, o sea, en las llamadas listas:

<select name="select" size="5" multiple>
<option value="1" selected>Uno</option>
<option value="2">Dos</option>
<option value="3" selected>Tres</option>
<option value="4">Cuatro</option>
</select>

Los Select normales, los llamados desplegables, no pueden tener seleccion multiple (esto es puro HTML).

Si quieres emular la seleccion multiple en un deplegable tendrás que hacerlo en DHTML y con javascript.

Un saludo