请问这样写对吗？怎么样好？

<div id="nr">
<%
strsql="select id,pro_name,spbh from pro_list where pro_type=35 order by spbh"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 1
%>
<% do while not rs.Eof%>
<a href="product_view.asp?id=<%=rs("id")%>"title="<%=rs("pro_name")%>" class="spbh"><%=rs("spbh")%></a>
<%rs.movenext
loop
%>
<%
  rs.close%>
</div>


<div id="nr">
<%
strsql="select id,pro_name,spbh from pro_list where pro_type=33 order by spbh"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 1
%>
<% do while not rs.Eof%>
<a href="product_view.asp?id=<%=rs("id")%>"title="<%=rs("pro_name")%>" class="spbh"><%=rs("spbh")%></a>
<%rs.movenext
loop
%>
<%
  rs.close%>
</div>

<div id="nr">
<%
strsql="select id,pro_name,spbh from pro_list where pro_type=34 order by spbh"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 1
%>
<% do while not rs.Eof%>
<a href="product_view.asp?id=<%=rs("id")%>"title="<%=rs("pro_name")%>" class="spbh"><%=rs("spbh")%></a>
<%rs.movenext
loop
%>
<%
  rs.close%>
</div>

<div id="nr">
<%
strsql="select id,pro_name,spbh from pro_list where pro_type=36 order by spbh"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 1
%>
<% do while not rs.Eof%>
<a href="product_view.asp?id=<%=rs("id")%>"title="<%=rs("pro_name")%>" class="spbh"><%=rs("spbh")%></a>
<%rs.movenext
loop
%>
<%
  rs.close%>
</div>
我只贴了代码部分，我是想一个页面丽显示几个不同的商品类~