如何将读取到的数据表现在OPTION SELECTED上？

[shadelin]

<select name="sexual">
<%
sexual=data_article("sexual")
if sexual="" then
%>
<option value="" selected>未知</option><option value="男">男</option><option value="女">女</option>
<%end if%>
<%
if sexual="男" then
%>
<option value="男">未知</option><option value="男" selected>男</option><option value="女">女</option>
<%end if%>
<%
if sexual="女" then
%>
<option value="">未知</option><option value="男">男</option><option value="女" selected>女</option>
<%end if%>
</select>

以上是最笨的方法了
不过如果是很长的一个SELECT呢？如何将SELECTED属性正确定位到OPTION？
谢谢！

[hbhbhbhbhb1021]

建立数据集
<select name="sexual">
<option selected></option>
do until adorst.EOF
Response.Write "<option value='" & adorst("id") & "'>" & adorst("name") & "</option>"
adorst.MoveNext
loop
</select>
以上adorst("id")为id字段
adorst("name")为名字字段

[笨笨兔兔兔兔兔]

if sexual=yyy then

response.write "seleced"
end if

[shadelin]

谢谢两位的指教！
hbhbhbhbhb1021(天外水火)的方法似乎更好一些
所以多给2分，结帐。