<%set rs=server.createobject("adodb.recordset")
rs.open "select * from prodkind order by shuzhi asc",conn,1,3
do while not rs.eof%>
| "><%=rs("eprodname")%> |
<%
set objrs=server.CreateObject("adodb.recordset")
objrs.open "Select * From prodskind Where bigkind="&rs("bigkind")&" order by xuhao asc",conn,1,3
if not(objrs.bof and objrs.eof) then
do while not objrs.eof
%>
| &smallkind=<%=objrs("smallkind")%>"><%=objrs("eprodsname")%> |
<%objrs.movenext
loop
end if
objrs.close
set objrs=nothing
rs.movenext
loop
rs.close
set rs=nothing%>
|
