editar un dropdownbox

[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