selected a un combo

[lf_sanchez]

Objeto Select (Combobox)
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 en combo en el texto asignado por un objeto input text que tiene el texto del combo que quiere que quede seleccionado.
<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