指鹿为马的故事400字:求解答asp中rs循环问题!谢谢!

请问asp中,怎么实现rs循环中内嵌一个rs循环阿?
比如我有2个表,一个大类别type表,一个子类别subtype表,我想实现大类别循环中内嵌一个子类别循环,不知道可以不?
我写了一段代码不知道哪里错了,请好心人帮帮忙,我是新手,谢谢~~代码如下:
--------------------------------------------
<table border="0" cellpadding="0" style="border-collapse: collapse" width="800" id="table4">
<tr>
<td colspan="2"><font size="2" color="#008080">
[所有类别列表]</font></td>
</tr>
<%
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql="select * from type"
rs1.open sql,conn,1,1
do while not rs1.eof
%>
<tr>
<td width="200"><%=rs1("type_name")%></td>
<td width="600">
<%
dim id
id=rs1("type_id")
Set rs2 = Server.CreateObject("ADODB.Recordset")
strsql="select * from subtype where type_id = id "
rs2.open strsql,conn,1,1
for i=1 to rs2.recordcount
response.write("&rs2("subtype_name")&")
next
rs2.close
set rs2=nothing
%>
</td>
</tr>
<%
rs1.movenext
loop
rs1.close
set rs1=nothing
%>
<tr>
<td colspan="2"> </td>
</tr>
</table>
--------------------------------------------
请好心人帮帮忙看看,如有满意答案我会加分的,谢谢,谢谢~~~!