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