<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from proclist where key=0 order by od",conn,1,1
if rs.recordcount>0 then
do until rs.eof
%>
»&ename=<%=rs("ename")%>" class="emenu1"><%=rs("ename")%>
<%
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from proclist where key="&rs("id")&" and key="&id&" order by od",conn,1,1
if rs1.recordcount>0 then
do until rs1.eof
%>
