<% Set MyConnSC = Server.CreateObject("ADODB.Connection") MyConnSC.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" & connn & ";" if request("ztitle") = "rechargeable_battery" then title_file_name = "tittle_rechargeable.swf" if request("ztitle") = "primary_battery" then title_file_name = "tittle_primary.swf" if request("ztitle") = "battery_packs" then title_file_name = "tittle_battery_packs.swf" if request("ztitle") = "battery_accessories" then title_file_name = "tittle_accessories.swf" %>
<% if request("ztitle") <> "" then response.Write "" response.Write chktitle(request("ztitle")) & " > " end if if request("level_1") <> "" then response.Write "" subscript(request("level_1")) response.Write " > " end if if request("level_2") <> "" then response.Write "" response.Write "" subscript(request("level_2")) response.Write " > " end if if request("level_3") <> "" then response.Write "" response.Write request("level_3") & " > " end if %>
 
<% if request("level_1") <> "" and request("level_2") <> "" and request("level_3") = "" then sqldesc="Select * from tbl_menu_20 where "&_ " Main_Category = '"& Main_Category &"' and "&_ " level_1 = '"& request("level_1") &"' and "&_ " level_2 = '"& request("level_2") &"' and zactive = 'yes'" if dev="yes" then response.write "
sqldesc:"& sqldesc Set rsdesc=MyConnSC.Execute(sqldesc) If rsdesc.eof = false then if request("left_menu") = "yes" then 'or request("level_1") = "Pack Configuration" or request("level_1") = "Special Batteries" or request("level_1") = "Pin Configuration" or request("level_1") = " Connectors" then 'if request("left_menu") = "yes" then response.Write "
" %> <% sqld2="Select * from tbl_menu_30 where "&_ " Main_Category = '"& rsdesc("Main_Category") &"' and "&_ " level_1 = '"& rsdesc("level_1") &"' and "&_ " level_2 = '"& rsdesc("level_2") &"' and zactive = 'yes' order by sequence" if dev="yes" then response.Write "
sqld2"& sqld2 Set rsd2=MyConnSC.Execute(sqld2) If rsd2.eof = false then %>
<%=rsdesc("level_2_description") %>
<%=rsdesc("title_name") %>
  <% while not rsd2.eof %>
   
<% if rsd2("level_3_photo") <> "" then response.write "" %> <% if request("left_menu") = "yes" then %> <% end if %>
&level_1a=<%=request("level_1a")%>&level_1=<%=rsd2("level_1")%>&level_2=<%=rsd2("level_2")%>&level_3=<%=rsd2("level_3")%>&panel=<%=request("panel") %>&" class="btn_table"> <%subscript(rsd2("level_3")) %>

<% if rsd2("level_3_description") <> "" then response.Write replace(rsd2("level_3_description"),vbcrlf,"
") %>

&level_1=<%=rsd2("level_1")%>&level_2=<%=rsd2("level_2")%>&level_3=<%=rsd2("level_3")%>&panel=<%=request("panel") %>&" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image31','','images/btn_more_over.png',1)">
<% rsd2.movenext wend end if 'rsd2 %> 		 
<% end if end if 'if request("level_3") = "" then end if %> <% response.Write "
" if request("ztitle") = "primary_battery" then Main_Category = "Primary Batteries" if request("ztitle") = "rechargeable_battery" then Main_Category = "Rechargeable Batteries" if request("ztitle") = "battery_accessories" then Main_Category = "Accessories" if request("ztitle") = "battery_pack" then Main_Category = "Battery Packs" '--------- level_1 , level_2 , level_3 ----------- start if request("level_1") <> "" then this_sql = this_sql & " and level_1 = '"& request("level_1") &"'" if request("level_2") <> "" then this_sql = this_sql & " and level_2 = '"& request("level_2") &"'" if request("level_3") <> "" then this_sql = this_sql & " and level_3 = '"& request("level_3") &"'" sqll1="Select * from qr_level_3_dim where "&_ " Main_Category = '"& Main_Category &"' "& this_sql &" order by dimension_order,dimension_name" if dev="yes" then response.Write "
Sqll1:"& sqll1 if request("left_menu") = "yes" then sqll1 = "" else sqll1 = sqll1 end if if sqll1 <> "" then Set rsl1=MyConnSC.Execute(sqll1) If rsl1.eof = false then while not rsl1.eof if rsl1("sort_by") <> "" then sort_by = " order by "& rsl1("sort_by") else sort_by = " order by model" end if sqll2="Select * from tbl_dimension_type where dimension_type ='"& rsl1("dimension_type") &"'"& sort_by if rsl1("dimension_type") <> previous_dimension_type then if dev="yes" then response.Write "
2 sqll2:"& sqll2 Set rsl2=MyConnSC.Execute(sqll2) If rsl2.eof = false then response.Write "" response.Write " " response.Write " " response.Write " " response.Write " " response.Write " " response.Write " " response.Write " " response.Write " " response.Write " " response.Write " " response.Write "
 
"&rsl1("dimension_name")&"
" response.Write " " while not rsl2.eof response.Write " " if rsl2("photo_1") = "checked" then response.Write "" if rsl2("model") = "checked" then if request("level_1a") = "R/C Pack" then response.Write "" end if if rsl2("size_iec") = "checked" then response.Write "" if rsl2("typical_capacity") = "checked" then response.Write "" if rsl2("nominal_voltage") = "checked" then response.Write "" if rsl2("zthickness") = "checked" then response.Write "" if rsl2("zwidth") = "checked" then response.Write "" end if if rsl2("zlength") = "checked" then response.Write "" if rsl2("zdiameter") = "checked" then response.Write "" if rsl2("zheight") = "checked" then response.Write "" if rsl2("zweight") = "checked" then response.Write "" end if if rsl2("resistance") = "checked" then response.Write "" if rsl2("current_cont") = "checked" then response.Write "" if rsl2("current_pulse") = "checked" then response.Write "" if rsl2("oper_temp") = "checked" then response.Write "" if rsl2("data_sheet") = "checked" then response.Write "" ''''' response.Write " " '------- get item detail -------- start 'if request("ztitle") <> "battery_packs" then 'sqll3="Select * from qr_primary_battery_active where dimension_type ='"& rsl2("Dimension_type") &"' "&_ ' " and level_1 = '"& rsl1("level_1") &"' "&_ ' " and level_2 = '"& rsl1("level_2") &"' "&_ ' " and level_3 = '"& rsl1("level_3") &"' order by model" 'else sqll3="Select * from qr_primary_battery_active where dimension_type ='"& rsl2("Dimension_type") &"' "&_ " and level_1 = '"& rsl1("level_1") &"' "&_ " and level_2 = '"& rsl1("level_2") &"' "& sort_by 'end if if dev="yes" then response.write "

1 sqll3: "& sqll3 '@ Set rsl3=MyConnSC.Execute(sqll3) If rsl3.eof = false then while not rsl3.eof if rsl3("bgcolor") = "B" or rsl3("bgcolor") = "" then this_bg_color = bgcolor_A else this_bg_color = bgcolor_B end if %> <% if rsl2("photo_1") = "checked" then response.Write "" end if 'rsl2("photo_1") if rsl2("model") = "checked" then response.write "" end if if rsl2("size_iec") = "checked" then response.Write "" 'if rsl2("typical_capacity") = "checked" then response.Write "" end if if rsl2("nominal_voltage") = "checked" then response.Write "" if rsl2("zthickness") = "checked" then response.Write "" if rsl2("zwidth") = "checked" then response.Write "" if rsl2("zlength") = "checked" then response.Write "" if rsl2("zdiameter") = "checked" then response.Write "" if rsl2("zheight") = "checked" then response.Write "" if rsl2("zweight") = "checked" then response.Write "" end if if rsl2("resistance") = "checked" then response.Write "" if rsl2("current_cont") = "checked" then response.Write "" if rsl2("current_pulse") = "checked" then response.Write "" if rsl2("oper_temp") = "checked" then response.Write "" if rsl2("data_sheet") = "checked" then response.Write "" end if ''''' response.Write " " rsl3.movenext wend 'rsl3 else 'rsl3 'response.Write "
Image" else response.Write "" end if if rsl1("sort_by") <> "" then if rsl1("sort_by") = "model" then response.Write "" else response.Write "" end if response.Write "ModelSizeNominal
Capacity
(mAh)		Nominal
Voltage
(V)		T
(mm)		" if rsl1("sort_by") <> "" then if rsl1("sort_by") = "zwidth" then response.Write "" else end if response.Write "W
(mm)		L
(mm)		Dia.
(mm)		Hgt.
(mm)		" if rsl1("sort_by") <> "" then if rsl1("sort_by") = "zweight" then response.Write "" else end if response.Write "Weight
(g)		Internal
Resistance
(m)		Max.
Continuous
Current		Max.
Pulse
Current		Operating
Temp. oC		Data Sheet
" if rsl3("photo_1") <> "" then if rsl3("photo_2") <> "" then response.write "" this_width= 0 if rsl3("zwidth") <> "" then this_width = cdbl(rsl3("zwidth")) 'response.Write this_width if isnumeric(this_width) = true then this_width = this_width * 4 elseif isnumeric(rsl3("zdiameter")) = true then this_width = cdbl(rsl3("zdiameter")) 'response.Write this_width if isnumeric(this_width) = true then this_width = this_width * 4 else end if if isnumeric(this_width) = false or this_width =< 0 then this_width = "90" if this_width < 50 then this_width = "50" if this_width > 90 then this_width = "90" response.write "" response.write "" end if 'rsl3("photo_1") response.write "" response.write rsl3("Model")&""& rsl3("size_iec") &""& rsl3("typical_capacity") if rsl2("typical_capacity") = "checked" then response.Write "" if rsl3("typical_capacity") >= 10000 then response.Write rsl3("typical_capacity")/1000 & "Ah" else response.Write rsl3("typical_capacity") end if response.Write ""& rsl3("nominal_voltage") &""& rsl3("zthickness") &""& rsl3("zwidth") &""& rsl3("zlength") &""& rsl3("zdiameter") &""& rsl3("zheight") &"" if rsl3("zweight") > 999 then response.Write rsl3("zweight")/1000 & "kg" else response.Write rsl3("zweight") end if response.Write ""& rsl3("resistance") &""& rsl3("current_cont") &""& rsl3("current_pulse") &""& rsl3("oper_temp") &"" if rsl3("data_sheet") <> "" then response.Write "" end if response.Write"
No record" end if 'rsl3 '------- get item detail -------- end rsl2.movenext response.Write "
" wend end if 'rsl2 '------- get item by dimension-------- end previous_dimension_type = rsl1("dimension_type") end if 'if rsl1("dimension_type") <> previous_dimension_type then rsl1.movenext wend 'rsl1 else 'response.Write "no record" end if 'rsl1 end if 'if sqll1 <> "" then '--------- level_1 , level_2 , level_3 ----------- end %>
<%if dev="yes" then response.Write "


product_search_result.asp"%>