'dim i:i=10
Set Rs=conn.Execute("Select id,name,ItemName From [Hx_menu] Where ModuleID=7")
do while not Rs.eof
%> 
     <div class="menutitle" onclick="SwitchMenu('sub4<%=i%>')"><img src="../img/left_fold1.gif" alt="" border="0"> <%=Rs(1)%>Ƶ
       <TABLE width="158" cellSpacing="0" cellPadding="0" border="0">
         <TR>
           <TD height="5"></TD>
         </TR>
         <TR>
           <TD bgColor="#ffffff" height="1"></TD>
         </TR>
       </TABLE>
     </div>
     <span class="submenu" id="sub4<%=i%>">
	<TABLE cellSpacing="0" cellPadding="0" width="158" background="../img/menu_2.gif" border="0">
	  <TR>
	     <td width="25%"></td><TD height=25 width="75%"><a target="main" href=admin_flash.asp?action=piccat&ChannelID=<%=Rs(0)%>><img src="../img/left_fold2.gif" alt="" border="0"> </a></TD>
	  </TR>
	  <TR>
	     <td width="25%"></td><TD height=25 width="75%"><a target="main" href=admin_flash.asp?action=newpiccat&ChannelID=<%=Rs(0)%>><img src="../img/left_fold2.gif" alt="" border="0"> ӷ</a></TD>
	  </TR>
	  <TR>
	     <td width="25%"></td><TD height=25 width="75%"><a target="main" href=admin_flash.asp?action=pic&ChannelID=<%=Rs(0)%>><img src="../img/left_fold2.gif" alt="" border="0"> <%=Rs(2)%></a></TD>
	  </TR>
	  <TR>
	     <td width="25%"></td><TD height=25 width="75%"><a href="admin_flash.asp?action=newpic&ChannelID=<%=Rs(0)%>" target="main"><img src="../img/left_fold2.gif" alt="" border="0"> <%=Rs(2)%></a></TD>
	  </TR>
	  <TR>
	     <td width="25%"></td><TD height=25 width="75%"><a target="main" href=admin_flash.asp?action=pic&t=pass&ChannelID=<%=Rs(0)%>><img src="../img/left_fold2.gif" alt="" border="0"> <%=Rs(2)%></a></TD>
	  </TR>
	  <TR>
	     <td width="25%"></td><TD height=25 width="75%"><a target="main" href=admin_skin.asp?action=showskin&t=<%=Rs(0)%>><img src="../img/left_fold2.gif" alt="" border="0"> <%=Rs(1)%>ģ</a></TD>
	  </TR>
         </table>
      </span>
	<TABLE width="158" cellSpacing="0" cellPadding="0" border="0">
		<TR>
			<TD height="5" background="../img/menu_1.gif"></TD>
		</TR>
	</TABLE>
	
<%
i=i+1
Rs.movenext      
Loop
Rs.close
Set Rs=Nothing
%>