<%if dev="yes" then response.Write "menu_products.asp"%> <% 'connn = Server.Mappath("\db_\minamoto.mdb") Set MyConnSC = Server.CreateObject("ADODB.Connection") MyConnSC.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" & connn & ";" %> <% ztitle= request("ztitle") if ztitle <> "" then sqlmA="Select * from qr_menu_10 where zactive = 'Yes' and ztitle = '"& ztitle &"' order by sequence" else sqlmA="Select * from qr_menu_10 where zactive = 'Yes' " end if Set rsmA=MyConnSC.Execute(sqlmA) 'if dev="yes" then response.Write "
sqlm0:"& sqlmA '@ If rsmA.eof = false then Main_Category = rsmA("Main_Category") %> <% response.Write "" response.Write "" response.Write "" else 'rsmA end if 'If rsmA.eof = false then %> <%if request("panel") = "0" then %> <%elseif request("panel") = "1" then %> <%elseif request("panel") = "2" then %> <%elseif request("panel") = "3" then %> <%elseif request("panel") = "4" then %> <%elseif request("product_search") = "yes" then %> <%else %> <%end if %>
" height="27" />
" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "
" %>
<% '--------- level 1 ------ start sqlm0="Select * from tbl_menu_10 where zactive = 'Yes' and Main_Category = '"&Main_Category&"' order by sequence" Set rsm0=MyConnSC.Execute(sqlm0) If rsm0.eof = false then E = 0 while not rsm0.eof if rsm0("menu_20") = "No" then sqlm1="Select * from tbl_menu_20 where zactive = 'Yes' and Main_Category='"&Main_Category&"' and level_1 = '"& rsm0("level_1") &"' order by sequence" Set rsm1=MyConnSC.Execute(sqlm1) If rsm1.eof = false then %> <% if cdbl(request("panel")) = E then this_background = ";background-color:#F4F3EE" else this_background = ";" end if %> <% else 'rsm1 end if 'rsm1 else 'if rsm0("menu_20") = "no" then %>
<% if request("level_2") = "" then if cdbl(request("panel")) = E then this_background = "style='background-color:#F4F3EE'" else this_background = "" end if else this_background = "" end if 'response.Write "this_background"& this_background & E & request("panel") %>
> &level_1a=<%=rsm0("level_1") %>&" style="font-size:16px;color:#C70000;" onclick="acc2.openPanel(<%=E %>); return true;"> <% subscript(rsm0("level_1")) %>
<% '--------- level 2 ------ start sqlm1="Select * from tbl_menu_20 where zactive = 'Yes' and Main_Category='"&Main_Category&"' and level_1 = '"& rsm0("level_1") &"' order by sequence" Set rsm1=MyConnSC.Execute(sqlm1) If rsm1.eof = false then %>
<% while not rsm1.eof %> <% if rsm1("not_display_level_2") = "Yes" then else %> <% if request("level_1") = rsm0("level_1") and request("level_2") = rsm1("level_2") and request("level_3") = "" then %>
  • <% else %>
  • <% end if %> &Search1=Search&level_1=<%=rsm0("level_1")%>&level_2=<%=rsm1("level_2")%>&"> <%subscript(rsm1("level_2"))%>
    • <%end if %> <% '--------- level 3 ------ start sqlm2="Select * from tbl_menu_30 where zactive = 'Yes' and Main_Category='"&Main_Category&"' and level_1 = '"& rsm0("level_1") &"' and level_2 = '"& rsm1("level_2") &"' order by sequence" 'if dev="yes" then response.Write sqlm2 Set rsm2=MyConnSC.Execute(sqlm2) If rsm2.eof = false then while not rsm2.eof %> <% if request("level_1") = rsm0("level_1") and request("level_2") = rsm1("level_2") and request("level_3") = rsm2("level_3") then %>
  • <% else %>
  • <% end if %> &Search1=Search&level_1=<%=rsm0("level_1")%>&level_2=<%=rsm1("level_2")%>&level_3=<%=rsm2("level_3") %>&" style="font-size:14px;color:gray"> <%=rsm2("level_3") %>
    • <% rsm2.movenext wend else ' response.Write "no record" end if %> <% rsm1.movenext wend %>
    <% else 'rsm1 end if 'rsm1 '--------- level 2 ------ end response.Write "
    " end if 'if rsm0("menu_20") = "no" then E = E + 1 rsm0.movenext wend 'rsm0 end if 'rsm0 '------------------------------------------------------- %>
    <% response.Write "