ASP这样的显示列表如何解决？
数据库有   表1，表2
显示出来要实现如下功能：

表1数据1
表1数据2
    表2数据1   表2数据2
表1数据3
表1数据4
    表2数据3   表2数据4
表1数据5
表1数据6
    表2数据5   表2数据6
-------------------------
就是表1数据列表，每隔2条就显示2条表2数据

------解决方案--------------------
<%
Dim I
I=1
do while not Rs1.eof
%>
<TR> <td> <%=Rs1( "表1数据1 ")%> </td> </TR>
<% If i mod 2=0 Then %>
<TR> <%
Dim M
m=1
do while not Rs2.eof
if M> 1 and M mod 2=1 then response.write " </tr> "&vbcrlf& " <tr> "
> <td> <%=表2数据1%> </td> </tr>
<%
Rs2.Movenext
Loop
End If
Rs1.Movenext
i=i+1
Loop
%>


分数也给太少了