<%' %>

<% 'if request("ztitle") = "primary_battery" or request("ztitle") = "rechargeable_battery" then if request("ztitle") <> "" and request("level_1a") = "" then N = 0 P = 0 if request("level_1a") <> "" then sqlp1="Select * from tbl_menu_10 where "&_ " ztitle = '"& ztitle &"' and level_1 = '"& request("level_1a") &"' and zactive = 'yes' order by sequence asc" else sqlp1="Select * from tbl_menu_10 where "&_ " ztitle = '"& ztitle &"' and zactive = 'yes' order by sequence asc" end if Set rsp1=MyConnSC.Execute(sqlp1) If rsp1.eof = false then response.Write "" while not rsp1.eof N = N+1 if N mod 4 = 1 then response.Write "" response.Write "

" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "

" response.Write "" level_1 = replace(rsp1("level_1"),"2"," 2") level_1 = replace(level_1,"4"," 4") response.Write level_1 response.Write "

" response.Write " " rsp1.movenext wend response.Write "

" end if ' response.Write "

" end if %> <% ztitle = request("ztitle") if request("level_1a") <> "" then sqll1="Select * from tbl_menu_10 where "&_ " ztitle = '"& ztitle &"' and level_1 = '"& request("level_1a") &"' and zactive = 'yes' order by sequence asc" else sqll1="Select * from tbl_menu_10 where "&_ " ztitle = '"& ztitle &"' and zactive = 'yes' order by sequence asc" end if Set rsl1=MyConnSC.Execute(sqll1) If rsl1.eof = false then while not rsl1.eof %>

<% if rsl1("level_1_intro") <> "" then response.Write replace(rsl1("level_1_intro"),vbcrlf,"
") end if %>

<% level_1a = replace(rsl1("level_1"),"2"," 2") level_1a = replace(level_1a,"4"," 4") response.Write level_1a %>

<% '------ list level 2 ---start sqll2="Select * from tbl_menu_20 where "&_ " level_1 = '"& rsl1("level_1") &"' and zactive = 'yes' order by sequence asc" 'response.write "

sqll2:-"& sqll2 '@ Set rsl2=MyConnSC.Execute(sqll2) If rsl2.eof = false then while not rsl2.eof if rsl2("not_display_level_2") = "Yes" then sqll3="Select * from tbl_menu_30 where "&_ " level_1 = '"& rsl2("level_1") &"' "&_ " and level_2 = '"& rsl2("level_2") &"' "&_ " and zactive = 'yes' order by sequence asc" Set rsl3=MyConnSC.Execute(sqll3) If rsl3.eof = false then this_level_3 = rsl3("level_3") else this_level_3 = "" end if end if 'rsl2("not_display_level_2") %> <% rsl2.movenext wend end if 'rsl2 '------ list level 2 ---end %>

" width="200" height="120" />

<% if request("panel") <> "" then this_p = request("panel") else this_p = p end if %> <%if rsl2("not_display_level_2") = "Yes" then %> &level_1a=<%=rsl2("level_1") %>&Search1=Search&level_1=<%=rsl2("level_1")%>&level_2=<%=rsl2("level_2")%>&level_3=<%=this_level_3%>&" class="btn_table"> <%else %> <%if rsl1("menu_20") = "No" then %> <%if rsl1("level_1") = "Pin Configuration" or rsl1("level_1") = "Special Batteries" and rsl1("level_1") = "Pack Configuration" then%> &left_menu=yes&level_1a=<%=rsl2("level_1") %>&Search1=Search&level_1=<%=rsl2("level_1")%>&level_2=<%=rsl2("level_2")%>&" class="btn_table"> <%else %> &level_1a=<%=rsl2("level_1") %>&Search1=Search&level_1=<%=rsl2("level_1")%>&level_2=<%=rsl2("level_2")%>&" class="btn_table"> <%end if %> <%else %> &left_menu=yes&level_1a=<%=rsl2("level_1") %>&Search1=Search&level_1=<%=rsl2("level_1")%>&level_2=<%=rsl2("level_2")%>&" class="btn_table"> <%end if %> <%end if %> <%subscript(rsl2("level_2")) %>

<% if rsl2("level_2_intro_description_short") <> "" then response.Write replace(rsl2("level_2_intro_description_short"),vbcrlf,"
") end if %>

<%if rsl2("not_display_level_2") = "Yes" then %> &level_1a=<%=rsl2("level_1") %>&Search1=Search&level_1=<%=rsl2("level_1")%>&level_2=<%=rsl2("level_2")%>&level_3=<%=this_level_3%>&" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image31','','images/btn_more_over.png',1)"> <%else %> <%if rsl1("menu_20") = "No" then %> <%if rsl1("level_1") = "Pin Configuration" or rsl1("level_1") = "Special Batteries" or rsl1("level_1") = "Pack Configuration" then%> &left_menu=yes&level_1a=<%=rsl2("level_1") %>&Search1=Search&level_1=<%=rsl2("level_1")%>&level_2=<%=rsl2("level_2")%>&" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image31','','images/btn_more_over.png',1)"> <%else %> &level_1a=<%=rsl2("level_1") %>&Search1=Search&level_1=<%=rsl2("level_1")%>&level_2=<%=rsl2("level_2")%>&" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image31','','images/btn_more_over.png',1)"> <%end if %> <%else %> &left_menu=yes&level_1a=<%=rsl2("level_1") %>&Search1=Search&level_1=<%=rsl2("level_1")%>&level_2=<%=rsl2("level_2")%>&" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image31','','images/btn_more_over.png',1)"> <%end if %> <%end if %>

<% P=P+1 rsl1.movenext wend end if 'rsl1 %> <%' %> <%if dev="yes" then response.Write "intro_primary_battery.asp"%>