Objeto Select (listbox)

[lf_sanchez]

Tengo un objeto select
<select name="cmb_Categoria" id="cmb_Categoria" style="font-size:10px" >
<%
While NOT Categoria.EOF %>
<option value="<% Response.Write((Categoria.Fields("codigo"))) %>"
<%
if len(df_Categoria) > 0 AND Categoria.Fields.Item("codigo") = df_Categoria then
Response.Write("SELECTED")
Else
Response.Write("")
End if %>>
<% Response.Write((Categoria.Fields("glosa")))%>
</option>
<%
Categoria.MoveNext()
Wend
Categoria.Close()
Set Categoria = Nothing
%>
</select>

Como ven se puebla dinamicamente de una tabla de la base de datos.

MI pregunta esta en que como hacer para que quede selecionado del listbox que que yo seleccione pero desde un objeto Radio.

<input type="radio" name="radiobutton" value="radiobutton" onClick="document.frm_Clasifica.df_Codigo.value='< %=Clasifica.Fields("codigo")%>';
document.frm_Clasifica.df_Glosa.value='<%=Clasific a.Fields("glosa")%>';
document.frm_Clasifica.df_Categoria.value='<%=Resp onse.Write((Clasifica.Fields("categoria")))%>';
document.frm_Clasifica.df_Desc_Categoria.value='<%
=Response.Write((Clasifica.Fields("d_categoria"))) %>';
-----------------------------------------------
Esta Asignacion no me funciona, el listbox queda en blanco

document.frm_Clasifica.cmb_Categoria.value='<%
=Response.Write((Clasifica.Fields("d_categoria"))) %>';

----------------------------------------------

document.frm_Clasifica.df_Orden.value='<%=Clasific a.Fields("orden_impresion")%>';"
>

Ayuda por favor