<%if dev="yes" then response.Write "site_map.asp"%> <% Set MyConnSC = Server.CreateObject("ADODB.Connection") MyConnSC.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" & connn & ";" %> <% '----------- about us -------------start sqlau="Select * from tbl_about_us where level_1_link is not null order by id" Set rsau=MyConnSC.Execute(sqlau) If rsau.eof = false then while not rsau.eof response.Write " <% '----------- products Primary Batteries -------------start sql1="Select * from tbl_menu_10 where zactive='yes' and Main_Category = 'Primary Batteries' order by sequence" Set rs1=MyConnSC.Execute(sql1) If rs1.eof = false then A=0 while not rs1.eof response.Write " <% '----------- products rechargeable battery -------------start sql1="Select * from tbl_menu_10 where zactive='yes' and Main_Category = 'Rechargeable Batteries' order by sequence" Set rs1=MyConnSC.Execute(sql1) If rs1.eof = false then A=0 while not rs1.eof response.Write " <% '----------- products battery packs -------------start sql1="Select * from tbl_menu_10 where zactive='yes' and Main_Category = 'Battery Packs' order by sequence" Set rs1=MyConnSC.Execute(sql1) If rs1.eof = false then A=0 while not rs1.eof response.Write " <% '----------- products Accessories -------------start sql1="Select * from tbl_menu_10 where zactive='yes' and Main_Category = 'Accessories' order by sequence" Set rs1=MyConnSC.Execute(sql1) If rs1.eof = false then A=0 while not rs1.eof response.Write "

Home

About us

"& replace(rsau("level_1"),"About > ","") &"" rsau.movenext wend end if 'rsau %>

Products

Primary Batteries

"& rs1("level_1") &"" '----------- products L2 -------------start sql2="Select * from tbl_menu_20 where zactive='yes' and Main_Category = 'Primary Batteries' and level_1 = '"& rs1("level_1") &"' order by sequence" Set rs2=MyConnSC.Execute(sql2) If rs2.eof = false then while not rs2.eof response.Write "

"&rs2("level_2")&"" '----------- products L3 -------------start sql3="Select * from tbl_menu_30 where zactive='yes' and Main_Category = 'Primary Batteries' and level_1 = '"& rs1("level_1") &"' and level_2 = '"& rs2("level_2") &"'order by sequence" Set rs3=MyConnSC.Execute(sql3) If rs3.eof = false then while not rs3.eof response.Write "

"&rs3("level_3")&"" '?panel=0&ztitle=primary_battery&level_1a=&Search1=Search&level_1=Lithium Battery&level_2=LiSOCl2&level_3=Energy& rs3.movenext wend end if 'rs3 rs2.movenext wend end if 'rs2 '?panel=1&ztitle=primary_battery&left_menu=yes&level_1a=Alkaline Battery&Search1=Search&level_1=Alkaline Battery&level_2=Button& A=A+1 rs1.movenext wend end if 'rs1 %>

Rechargeable Batteries

"& rs1("level_1") &"" '----------- products L2 -------------start sql2="Select * from tbl_menu_20 where zactive='yes' and Main_Category = 'Rechargeable Batteries' and level_1 = '"& rs1("level_1") &"' order by sequence" Set rs2=MyConnSC.Execute(sql2) If rs2.eof = false then while not rs2.eof response.Write "

"&rs2("level_2")&"" '----------- products L3 -------------start sql3="Select * from tbl_menu_30 where zactive='yes' and Main_Category = 'Rechargeable Batteries' and level_1 = '"& rs1("level_1") &"' and level_2 = '"& rs2("level_2") &"'order by sequence" Set rs3=MyConnSC.Execute(sql3) If rs3.eof = false then while not rs3.eof response.Write "

Battery Packs