como hago que un combo muestre un determinado val

[Renegado]

este codigo me funciona con valores definidos por defecto no con valores de la base de datos

<%documento=request.querystring("tipo_doc& quot;)%>
<% Function Selected(Actual,Valor)
If Actual = Valor then
Response.Write " Selected"
End if
End function
%>

<select name="tipo_documento" >
<option>selecione</option>
<option value="factura"<% Call Selected("factura",documento)%>>fa ctura</option>
<option value="boleta"<% Call Selected("boleta",documento)%>>bol eta</option>
</select>

alguien me puede ayudar, tengo que hacer lo mismo pero con valores sacados de la base de datos
aqui tengo un codigo pero no funciona, me pueden ayudar porfa???????


<%codigo_combo=request.querystring("combo& quot;)%>
<%set conexion = conecta()
set rs_insumo=Server.CreateObject("ADODB.Recordse t")
sql= "select * from insumo"
rs_insumo.open sql, conexion %>

<select name="combo_rut" style="width:180" >
<option>Seleccione</option>
<%do until rs_insumo.eof %>
<option value="<%=rs_insumo("codigo_insumo&qu ot;)%>"<% Call Selected("rs_insumo("codigo_insumo" )",codigo_combo)%>>
<%=rs_insumo("codigo_insumo")%>&lt ;%=response.Write(" ")%><%=rs_insumo("nombre_insumo&qu ot;)%></option>
<%rs_insumo.MoveNext
loop%>
</select>
<%rs_insumo.Close %>

:(