asp多个下拉菜单的显示

大类:
<select name="blei" id="blei"><%
set rs = server.CreateObject("ADODB.recordset")
sql = "select * from blei order by id asc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write "没有信息"
else
do while not rs.eof
%>
<option value="

<%=rs("ID")%>"><%=rs("leiname")%></option>
<% rs.movenext
loop
end if%>
</select></td>
</tr>
<tr>
<td height="25" class="font">小类:
<select name="s_lei" id="s_lei"><%
set r0 = server.CreateObject("ADODB.recordset")
s0 = "select * from s_lei order by s_id asc"
r0.open s0,conn,1,3
if r0.eof and r0.bof then
response.Write "没有信息"
else