Listando Pedidos

Caros, a rotina abaixo lista os itens de todos os pedidos de cada usuário e totaliza no final em apenas uma tacela. Não sei como fazer para que no témino de cada pedido seja criada uma nova tabela até treminar os pedidos do cliente.

Grato pela atenção.

Sub subLista
    set lista_pedidos = lojaDB.Execute(sql_instru)
    If lista_pedidos.EOF Then
     If modo="todos" Then
      %>
      <tr width=100%><td width=100%><h4>Você não tem nenhum pedido em aberto</h4></td></tr>
     <% Else %>
      <tr width=100%><td width=100%><h4>Você não tem nenhum pedido com esse número</h4></td></tr>
     <%
     End If
    Else
     %>


        <td width=100%><table border=1 width=100%>
     <tr width=100%><th>N.o Pedido</th><th>Produto</th><th>Valor/Unid</th><th>Quant.</th><th>SubTotal</th><th>Status</th>

         <%
         malha1 = "sim"
         While not lista_pedidos.EOF
      set lista_prod = lojaDB.Execute("SELECT nome FROM produtos WHERE id="& lista_pedidos("prod_id"))
      subtotal = lista_pedidos("prod_preco") * lista_pedidos("prod_quant")
      total = total + subtotal
                        %>

      <tr width=100% class=1 align=center>
      <td><%=lista_pedidos("ped_id")%> </td><td align=left><%=lista_prod("nome")%> </td>
      <td>R$<%=lista_pedidos("prod_preco")%></td><td><%=lista_pedidos("prod_quant")%> </td>
      <td>R$<%=subtotal%></td><td><%=lista_pedidos("status")%> </td>
      </tr>
      <%
      lista_pedidos.MoveNext
      wend

     %>
     <tr align=center width=100%><td></td><td></th> <td></td><td><b>Total = </b></th><td><b>R$<%=total%></td></tr>
     </table>
     </td></tr>
     <tr width=100%><td><b>Legenda dos códigos de status:</b></td></tr>
     <%
     set lista_status = lojaDB.Execute("SELECT * FROM msg_status")
     While Not lista_status.EOF
      %>
      <tr align=left width=100%><td>Código <%=lista_status("id")%> - <%=lista_status("mensagem")%></td></tr>
      <%
      lista_status.MoveNext
     Wend
    End If
   End Sub