<% 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 %>

<% '------------ collect variable --------- start 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 = "Battery Accessories" if request("ztitle") = "battery_packs" then Main_Category = "Battery Packs" '------------ collect variable --------- end Set MyConnSC = Server.CreateObject("ADODB.Connection") MyConnSC.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" & connn & ";" '@ 'response.write " level_1: " & request("level_1") 'response.write " level_2: " & request("level_2") 'response.write " level_3: " & request("level_3") 'response.write " ztitle: " & request("ztitle") 'response.write " Nominal_Voltage: " & request("Nominal_Voltage") 'response.write " typical_capacity: " & request("typical_capacity") 'response.write " model: " & request("model_no") 'response.write " id: " & request("id") '--------- arrow ----------- start if request("id") <> "" then sqll1 = "" this_sql = "" '---------- sql -------- start if request("ztitle") <> "" then this_sql = this_sql & " and ztitle='"& request("ztitle") &"'" 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") &"'" if request("dimension_type") <> "" then this_sql = this_sql & " and dimension_type='"& request("dimension_type") &"'" if request("id") <> "" then this_sql = this_sql & "" sqll1="Select * from qr_primary_battery where level_1 is not null "& this_sql &" order by model" '---------- sql -------- end '--------- level_1 , level_1 ----------- end if dev="yes" then response.write " sqll1x: "& sqll1 '@ if sqll1 <> "" then Set rsl1=MyConnSC.Execute(sqll1) If rsl1.eof = false then next_id = "" previous_id = "" this_id = "" last_id = "" %> <% while not rsl1.eof if int(request("id")) = int(rsl1("id")) then Main_Category = rsl1("Main_Category") level_1= rsl1("level_1") this_id = int(rsl1("id")) previous_id = z_previous_id else if this_id = "" and previous_id = "" then z_previous_id = int(rsl1("id")) if this_id = "" and first_id = "" then first_id = int(rsl1("id")) if this_id <> "" and next_id = "" then next_id = int(rsl1("id")) end if last_id = int(rsl1("id")) rsl1.movenext wend 'rsl1 '@ 'response.Write " this_id:"& this_id 'response.Write " previous_id:"& previous_id 'response.Write " first_id:"& first_id 'response.Write " next_id:"& next_id 'response.Write " last_id:"& last_id response.Write "" response.Write "" response.Write " " response.Write " " if isnumeric(first_id) = true and first_id <> "" then response.Write "" response.Write " " if isnumeric(previous_id) = true and previous_id <> "" then response.Write " " response.Write " " response.Write " " if isnumeric(next_id) = true and next_id <> "" then response.Write "" response.Write " " if isnumeric(last_id) = true and last_id <> "" and last_id <> this_id then response.Write "" response.Write " " else 'rsl1 end if 'rsl1 else 'sqll1 end if 'sqll1 end if 'if request("id") <> "" then '--------- arrow ----------- end %> <% '--------- List details ----------- start if request("id") <> "" then '---------- sql -------- start 'if request("ztitle") <> "" then this_sql = this_sql & " and ztitle='"& request("ztitle") &"'" '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") &"'" if request("id") <> "" then this_sql = this_sql & " and id="& request("id") &"" sqll1="Select * from qr_primary_battery where level_1 is not null "& this_sql &" order by model" '---------- sql -------- end '--------- level_1 , level_1 ----------- end if dev="yes" then response.write " sqll1"& sqll1 '@ if sqll1 <> "" then Set rsl1=MyConnSC.Execute(sqll1) If rsl1.eof = false then next_id = "" previous_id = "" this_id = "" %> <%=rsl1("model")%>       <%if rsl1("photo_2") <> "" then this_width= 0 if rsl1("zwidth") <> "" then this_width = cdbl(rsl1("zwidth")) 'response.Write this_width if isnumeric(this_width) = true then this_width = this_width * 4 elseif isnumeric(rsl1("zdiameter")) = true then this_width = cdbl(rsl1("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 = "120" response.write "" end if %> Model No. <%=rsl1("model")%> <% if rsl1("Nominal_Voltage") <> "" then response.Write "Voltage: "& rsl1("Nominal_Voltage") &" V " if rsl1("typical_capacity") <> "" then response.Write "Capacity: "& rsl1("typical_capacity") &" mAh " %> Dimension: <% if rsl1("zthickness") <> "" then response.Write rsl1("zthickness") & " mm (T) " if rsl1("zwidth") <> "" then response.Write rsl1("zwidth") & " mm (W) " if rsl1("zlength") <> "" then response.Write rsl1("zlength") & " mm (L) " if rsl1("zdiameter") <> "" then response.Write rsl1("zdiameter") & " mm (Dia) " if rsl1("zheight") <> "" then response.Write rsl1("zheight") & " mm (H)" %> <% if rsl1("zweight") <> "" then response.Write "Weight: "& rsl1("zweight") &" g " if rsl1("resistance") <> "" then response.Write "Internal Resistance: "& rsl1("resistance") &" (m) " if rsl1("oper_temp") <> "" then response.Write "Operating Temperature: "& rsl1("oper_temp") &" oC " if rsl1("current_cont") <> "" then response.Write "Max. Discharge Continuous Current: "& rsl1("current_cont") &" mA " if rsl1("current_pulse") <> "" then response.Write "Max. Discharge Pulse Current: "& rsl1("current_pulse") &" mA " %>   <% if rsl1("data_sheet") <> "" then %> " onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image31','','images/btn_pdf_over.png',1)"> <% end if %> &" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image32','','images/btn_back_over.png',1)">     <% else 'rsl1 'response.Write "no record 2" end if 'rsl1 else 'sqll1 end if 'sqll1 end if 'if request("id") <> "" then '--------- List details ----------- end %>

<%if dev="yes" then response.Write "product_list.asp"%>