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

Search Result	<%goback() %>
<% '---------- 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_pack" 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 " Nominal_Voltage: " & request("Nominal_Voltage") 'response.write " typical_capacity_range: " & request("typical_capacity_range") 'response.write " model: " & request("model_no") '--------- level_1 , level_1 , Battery_type ----------- start if request("this_order") = "asc" then next_order = "desc" if request("this_order") = "desc" or request("this_order") = "" then next_order = "asc" if this_order = "" then this_order = "asc" if request("order_first") <> "" then order_first = " order by "& request("order_first") else order_first = " order by Nominal_Voltage,typical_capacity " end if q1 = "&Search0=Search&package_type="&request("package_type")&"&model_no="&request("model_no")&"&level_1="&request("level_1")&"&typical_capacity="&request("typical_capacity") &"&Nominal_Voltage="&request("Nominal_Voltage") &"&typical_capacity_range="&request("typical_capacity_range")&"&this_order="& next_order if request("typical_capacity_range") <> "" then this_sql = this_sql & " and typical_capacity_range ='"& trim(request("typical_capacity_range")) &"'" if request("Nominal_Voltage") <> "" then this_sql = this_sql & " and Nominal_Voltage ="& trim(request("Nominal_Voltage")) &"" if request("level_1") <> "" then this_sql = this_sql & " and level_1 ='"& trim(request("level_1")) &"'" if request("level_2") <> "" then this_sql = this_sql & " and level_2 ='"& trim(request("level_2")) &"'" if request("model_no") <> "" then this_sql = " and Model like '%"& request("model_no") &"%' " sqll1="Select * from qr_primary_battery where level_1 is not null "& this_sql &" "& order_first &" "& this_order if dev="yes" then response.Write "sqll1:"& sqll1 '--------- level_1 , level_1 ----------- end ' response.write " sqll1"& sqll1 '@ if sqll1 <> "" then ' response.write " sqll1"& sqll1 '@ Set rsl1=MyConnSC.Execute(sqll1) If rsl1.eof = false then response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" while not rsl1.eof X = X + 1 this_bg_color = "#EDEDED" if rsl1("Dimension_type") = "Prismatic" then this_bg_color = "#ABD6D6" Response.Write " onMouseOver="this.style.backgroundColor='<%=this_bg_color %>';" onmouseout="this.style.backgroundColor='transparent';"> <% response.Write "" response.write "" response.write "" response.write "" response.Write "" response.Write "" rsl1.movenext wend response.Write " "& X response.write " Model" response.Write " " if next_order = "desc" then response.Write "" else response.Write "" end if response.Write "" response.write " Size" response.Write " " if next_order = "desc" then response.Write "" else response.Write "" end if response.Write "" response.write " Capacity" response.Write " " if next_order = "desc" then response.Write "" else response.Write "" end if response.Write "" response.write " Voltage" response.Write " " if next_order = "desc" then response.Write "" else response.Write "" end if response.Write "" Main_Category = "Chemistry" response.Write " "& Main_Category response.Write " " if next_order = "desc" then response.Write "" else response.Write "" end if response.Write "" response.write " Type" response.Write " " if next_order = "desc" then response.Write "" else response.Write "" end if response.Write "" response.write " Data Sheet" response.Write " " if next_order = "desc" then response.Write "" else response.Write "" end if response.Write "" response.Write " "& X response.write " "&rsl1("Model")&" "&rsl1("size_iec")&" " if len(rsl1("typical_capacity")) < 6 then response.Write rsl1("typical_capacity") &" mAh" elseif len(rsl1("typical_capacity")) => 4 then this_cap_len = len(rsl1("typical_capacity")) this_cap_len = this_cap_len - 3 response.Write left(rsl1("typical_capacity"),this_cap_len) &" Ah" end if response.write " "&rsl1("Nominal_Voltage")&" V "& rsl1("level_1") response.Write " "& rsl1("level_2") response.write " " if rsl1("data_sheet") <> "" then response.Write "" response.write " " else 'rsl1 'response.Write "no record 2" end if 'rsl1 else end if 'sqll1 %>