如题  能否使用 单选 按钮+SELECT 实现联动？

有单选按钮如下
<input name="flag" type="radio" value="0" checked="checked" />NEWS <input type="radio" name="flag" value="1" />Training
select 菜单
<select name="categoryid">
<% sql="select * from category where flag="&flag&" and ParentID = "&selec&" order by px"
'flag="&flag&" 就是 单选菜单 选中的值
    Set Rs1=Conn.Execute(sql)
    do while not rs1.eof%>
<option value="<%=int(rs1("id"))%>" ><%=rs1("category")%></option>
<% rs1.movenext
loop
rs1.close
set rs1=nothing%>
</select>