<%
dim a
if rs.state=1 then rs.close
rs.open "select * from positions order by Positiontype",cn,3,2
if rs.eof=false then
while rs.eof=false
%>
<% response.write rs.fields("Positiontype") %>
<%
if rs1.state=1 then rs1.close
rs1.open "select * from placement where Positionid="& rs.fields("positionid") &" order by Placement",cn,3,2
if rs1.eof=false then
while rs1.eof=false
%>