asp 中的下拉列表框赋值问题？

<select name="selType" id="seltype">
<option value="a">a</option>
<option value="b">b</option>
<option value="c">c</option>
<option value="d">d</option>
</select>
<script>
var t=document.表单名
for(i=0;i<t.下拉类表名.options.length;i++)
{
if(t.下拉类表名.options[i].value=='<% =rs("查询出的字段")%>')
{
t.下拉类表名.options[i].selected=true
break
}
}
</script>

<% for i=1 to 4
if i="c" then '这里C是数据库中读出的值
response.write"<option value="'"& i &"'" selected>'"& i &"'</option>"
else
response.write"<option value="'"& i &"'">'"& i &"'</option>"
end if

next<