关于下拉菜单的问题？

我想实现的功能是3级联动的下拉菜单，功能是实现了，可是下拉后菜单栏目不能正确显示多是显示选择大栏目和选择小栏目   
   
  代码如下   
  <select   name="select"   >   
                                                                                    <option   selected>--请选择大类别--</option>   
    <%Dim   rs,sql   
  set   rs   =   server.CreateObject("adodb.recordset")   
  sql   =   "select   *   from   HQ_WZLB   where   SJLBID   is   null"   
  rs.open   sql,conn,1,1%>   
                                                                                    <%   
  for   i   =   1   to   rs.recordcount   
  %>   
                                                                                    <option   value="LLD_NEW.asp?DLBID=<%=rs("LBID")%>"   <%if   request("Dlbid")   =   rs("ldid")   then%>selected<%end   if%>><%=rs("LBMC")%></option>   
                                                                                    <%rs.movenext   
  if   rs.eof   then   exit   for   
  next   
  %>   
                                                                              </select>                                                                        
                                                                              <select   name="select2"     >   
                                                                                  <option   value=""   selected>--请选择小类--</option>   
                                                                                  <%   
  dim   rs2,sql2   
  set   rs2   =   server.CreateObject("adodb.recordset")   
  sql2   =   "select   *   from   HQ_WZLB   where   sjlbid="&request("dlbid")   
  'response.Write(sql2)   
  rs2.open   sql2,conn,3,2   
  %>   
                                                                                  <%for   erl   =   1   to   rs2.recordcount%>   
                                                                                  <option   value="LLD_NEW.asp?dLBID=<%=rs2("sjlbid")%>&xlbid=<%=rs2("lbid")%>"   <%if   request("xlbid")   =   rs2("ldid")   then%>selected<%end   if%>><%=rs2("Lbmc")%></option>   
                                                                                  <%rs2.movenext   
  if   rs2.eof   then   exit   for     
  next   
  %>   
                                                                              </select>                                                                     
                                                                                <select   name="select3">   
        <option   value=""   selected>选择物品</option>   
                                                                                    <%   
  dim   rs3,sql3   
  set   rs3   =   server.CreateObject("adodb.recordset")   
  sql3   =   "select   *   from   HQ_KCWZ,HQ_WZML   where   HQ_KCWZ.wzbm=HQ_WZML.wzbm   and   HQ_WZML.LBID="&request("xLBID")   
  rs3.open   sql3,conn,1,1   
  response.Write(rs3.recordcount)   
  %>   
                                                                                    <%for   san   =   1   to   rs3.recordcount%>   
                                                                                    <option   value="<%=rs3("wzbm")%>"><%=rs3("name")%></option>   
                                                                                    <%rs3.movenext   
  if   rs3.eof   then   exit   for   
  next   
  %>   
                                                                                </select>   
                                                                          申请数量：                                                                       
                                                                          <input   name="Acount"   type="text"   id="Acount"   value="1"   size="5">