请老师们看下列代码哪里有问题,为什么执行的时候总是会出现下面的情况:
在左侧下拉菜单(categoryid)里选择大类后,与其对应的小类本来应该出现在右侧的菜单(sortsid)里,但是它却出现在了左侧的大类下拉菜单(categoryid),请教老师原因是什么?




          <tr> 
            <td width="5%">选择分类： </td>
            <td> <%
rs.open "select * from category order by categoryorder",conn,1,1
if rs.eof and rs.bof then
response.write "请先添加商品大类。"
response.end
else
%> <select name="categoryid" size="1" id="categoryid" onChange="changelocation(document.myform.categoryid.options[document.myform.categoryid.selectedIndex].value)">
                <option selected value="<%=rs("categoryid")%>"><%=trim(rs("category"))%></option>
                <%      
 dim selclass
 selclass=rs("categoryid")
 rs.movenext
 do while not rs.eof
%>
                <option value="<%=rs("categoryid")%>"><%=trim(rs("category"))%></option>
                <%
 rs.movenext
 loop
end if
rs.close
%>
  </select>
      小类： 
   <select name="sortsid">
  <%rs.open "select * from sorts where parentid="&amp;selclass ,conn,1,1
if not(rs.eof and rs.bof) then
%>
                <option selected value="<%=rs("sortsid")%>"><%=rs("category")%></option>
                <% rs.movenext
do while not rs.eof%>
                <option value="<%=rs("sortsid")%>"><%=rs("category")%></option>
                <% rs.movenext
loop
end if[em8]