都进来帮忙找找... 很急

<%
    set rs_s = server.CreateObject("adodb.recordset")
    sql_s = "select * from anli_class"
    rs_s.open sql_s,conn,1,3
   
    if not rs_s.eof then
        do while not rs_s.eof
%>   
   
            <table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-top:10px;">
                <tr>
                  <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td width="35" align="center"><a href="solution.asp?bigclassid=<%=rs_s("ClassID")%>"><font style="font-weight:bold"><%=rs_s("ClassName")%></font></a></td>
                      </tr>
                  </table></td>
                </tr>
                <tr>
                  <td>
                  <ul class="pro">
    <%
'        set rs_m = server.CreateObject("adodb.recordset")
'        sql_m = "select * from anli_smallclass where ParentClassID="&rs_s("ClassID")
'        rs_m.open sql_m,conn,1,3
'        
'        if not rs_m.eof then
'            do while not rs_m.eof
    %>
        <!--<li><a href="solution.asp?samllclassid=<%'=rs_m("sClassID")%>&bigclassid=<%'=rs_s("ClassID")%>"><%'=rs_m("sClassName")%></a></li>-->
    <%
'            rs_m.movenext
'            loop
'        else
'            response.Write("<center>暂无二级分类</center>")
'        end if
'        rs_m.close
'        rs_m=nothing
    %>
                 </ul>
                 </td>
                </tr>
              </table>
              
<%
        rs_s.movenext
        loop
    else
        response.Write("<center>暂无一级分类</center>")
    end if
    rs_s.close
    rs_s=nothing
%>   


注释的那些..解了就说超过IIS运行最长时间