<%

sub menu_type()
  dim m_sort,m_type,n_sort,n_type
  i=0
  n_sort=-1
  sql="select m_id,m_sort,m_name,m_url,m_open from admin_menu where m_hidden=1 order by m_sort,m_order"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    m_sort=rs("m_sort")
    if cint(n_sort)=cint(m_sort) then
      response.write vbcrlf&"    <tr><td>"&img_admin("s_left","")&"&nbsp;<a href='"&rs("m_url")&"'>"&rs("m_name")&"</a></td></tr>"
    else
      if i>0 then
        response.write vbcrlf&"    </table>" & _
		       vbcrlf&"  </td></tr>" & _
		       vbcrlf&"  </table>" & ukong
      end if
      response.write vbcrlf&"  <table cellspacing=1 cellpadding=4 class=table1>" & _
		     vbcrlf&"  <tr><td align=center class=td onclick=""javascript:left_menu('left_"&m_sort&"');"">¡Ô "&rs("m_name")&" ¡Ô</td></tr>" & _
		     vbcrlf&"  <tr id=left_"&m_sort
      if rs("m_open")=false then response.write " style=""display:none;"""
      response.write "><td align=center>" & _
		     vbcrlf&"    <table cellspacing=1 cellpadding=2 class=table2>"
      n_sort=m_sort
    end if
    rs.movenext
    i=i+1
  loop
  rs.close
  if i>0 then
    response.write vbcrlf&"    </table>" & _
		   vbcrlf&"  </td></tr>" & _
		   vbcrlf&"  </table>" & ukong
  end if
%>
<script language=javascript>
<!--
function left_menu(meval)
{
  var left_n=eval(meval);
  if (left_n.style.display=="none")
  { eval(meval+".style.display='';"); }
  else
  { eval(meval+".style.display='none';"); }
}
-->
</script>
<%
end sub

%>