Problem med løkke i løkke

Hej er der nogen der kan se hvor fejlen er i dette kode:

m2SQL = "SELECT * FROM Menu where Menu_Name = '"& Request.QueryString("Menu_Name") &"' and Status = 'published'"
        Set m2 = Conn.Execute(m2SQL)
        on error resume next
        while not m2.EOF
        %>
        <table width="500" height="29" align="center">
  <tr>
    <td width="39" height="29" align="center" valign="middle" ><% Response.write(i) %></td>
    <td width="198" height="29" align="left" valign="middle" ><a href="components/asp_include/admin_content_include/menu_content/test"alt="Edit Item"><% Response.write(m2("Button_Text")) %></a></td>
    <td width="60" height="29" align="right" valign="middle" ><a href="components/asp_include/admin_content_include/menu_content/test" alt="View published items"></a><img src="components/image/buttonIcons/<% Response.write(m2("Status")) %>.jpg"  width="50" height="29" border="0" /></td>
    <td width="97" align="right" valign="middle" >&nbsp;</td>
    <td width="22" height="29" align="right" valign="middle" class="style1"><input name="t1" type="checkbox" value="true" /></td>
    <td width="56" height="29" align="left" valign="top"></td>
  </tr>
</table>
<%


m3SQL = "SELECT * FROM Menu_2 where Menu_Id = '"& response.Write(m1("Menu_Id")) &"' and Menu_Name = '"& Request.QueryString("Menu_Name") &"' and Status = 'published'"
        Set m3 = Conn.Execute(m3SQL)
        on error resume next
        while not m3.EOF
        %>
        <table width="500" height="29" align="center">
  <tr>
    <td width="39" height="29" align="center" valign="middle" ><% Response.write(i) %></td>
    <td width="198" height="29" align="left" valign="middle" ><a href="components/asp_include/admin_content_include/menu_content/test"alt="Edit Item"><% Response.write(m3("Button_Text")) %></a></td>
    <td width="60" height="29" align="right" valign="middle" ><a href="components/asp_include/admin_content_include/menu_content/test" alt="View published items"></a><img src="components/image/buttonIcons/<% Response.write(m3("Status")) %>.jpg"  width="50" height="29" border="0" /></td>
    <td width="97" align="right" valign="middle" >&nbsp;</td>
    <td width="22" height="29" align="right" valign="middle" class="style1"><input name="t1" type="checkbox" value="true" /></td>
    <td width="56" height="29" align="left" valign="top"></td>
  </tr>
</table>
<%
        i = i + 1
       
        m3.MoveNext
        wend
       
        i = i + 1
       
        m2.MoveNext
        wend

%>

siden bliver ved med at loade men hvis jeg fjerner den inderste løkke som er 100 % magen til den yderste og hentes der data fra en anden tabel. Så virker lortet??