<%if dev="yes" then response.Write "product_search_result.asp"%> <% 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("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") &"'" Set rsdesc=MyConnSC.Execute(sqldesc) If rsdesc.eof = false then response.Write "" end if end if %> <% response.Write " onMouseOver="this.style.backgroundColor='<%=this_bg_color %>';" onmouseout="this.style.backgroundColor='transparent';"> <% response.write "" response.write "" '----------------- response.write "" response.write "" response.write "" Select case dimension_type case "dh" response.write "" response.write "" case "twl" response.write "" response.write "" response.write "" end select response.write "" response.write "" response.write "" response.write "" rsl2.movenext wend 'rsl2 end if 'rsl2 '------- get item by dimension-------- end rsl1.movenext wend 'rsl1 else %> <% end if 'rsl1 else 'response.write "" while not rsl2.eof M = M + 1 this_bg_color = "#E8E8E8" Response.Write " onMouseOver="this.style.backgroundColor='<%=this_bg_color %>';" onmouseout="this.style.backgroundColor='transparent';"> <% response.write "" response.write "" response.write "" response.write "" response.write "" Select case dimension_type case "dh" response.write "" response.write "" case "twl" response.write "" response.write "" response.write "" end select response.write "" response.write "" response.write "" response.write "" rsl2.movenext wend 'rsl2 else 'rsl2 'response.write "no record 3" end if 'rsl2 '------- get item by dimension-------- end rsl1.movenext wend 'rsl1 else 'rsl1 %> <% end if 'rsl1 else no_record = "yes" end if '--------- level_1 , level_2 ----------- end %>

<% if request("level_1") <> "" then response.Write request("level_1") & " > " if request("level_2") <> "" then response.Write "" & request("level_2") & " > " if request("level_3") <> "" then response.Write request("level_3") & " > " %>

"& rsdesc("level_2_description") 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 = "Battery Accessories" if request("ztitle") = "battery_pack" then Main_Category = "Battery Packs" '--------- level_1 , level_2 , level_3 ----------- start if request("level_1") <> "" and request("level_2") <> "" and request("level_3") <> "" then sqll1="Select * from qr_level_3_dim where "&_ " Main_Category = '"& Main_Category &"' and "&_ " level_1 = '"& request("level_1") &"' and "&_ " level_2 = '"& request("level_2") &"' and "&_ " level_3 = '"& request("level_3") &"'" 'response.write "

sqll1"& sqll1 '@ Set rsl1=MyConnSC.Execute(sqll1) If rsl1.eof = false then while not rsl1.eof '------- get item by dimension -------- start sqll2="Select * from qr_primary_battery where "&_ " Main_Category = '"& Main_Category &"' and "&_ " level_1 = '"& request("level_1") &"' and "&_ " level_2 = '"& request("level_2") &"' and "&_ " level_3 = '"& request("level_3") &"' and Dimension_type ='"& rsl1("Dimension_type") &"'" 'response.write "

sqll2"& sqll2 '@ Set rsl2=MyConnSC.Execute(sqll2) If rsl2.eof = false then if rsl2("level_3") <> "" then level_3 = rsl2("level_3") else level_3 = "" end if if rsl2("dimension_type") <> "" then dimension_type = rsl2("dimension_type") else dimension_type = "" end if Select case dimension_type case "dh" %> <% case "twl" %> <% end select while not rsl2.eof M = M + 1 this_bg_color = "#EDEDED" if rsl2("Dimension_type") = "Prismatic" then this_bg_color = "#ABD6D6" Response.Write "

" if rsl2("photo_name") <> "" then %> " rel="lightbox" style="cursor:hand"> <% response.Write "

" else response.Write "

" end if '----------------- response.write "

" response.write rsl2("Model")&"

"&rsl2("size_iec")&"

"&rsl2("typical_capacity")&"

"&rsl2("Nominal_Voltage")&"

"&rsl2("zdiameter")&"

"&rsl2("zheight")&"

"&rsl2("zthickness")&"

"&rsl2("zwidth")&"

"&rsl2("zlength")&"

"&rsl2("zweight")&"

"&rsl2("oper_temp")&"

pdf

" end if '--------- level_1 , level_2 , level_3 ----------- end '--------- level_1 , level_2 ----------- start if request("level_1") <> "" and request("level_2") <> "" and request("level_3") = "" then sqll1="Select * from qr_level_3_dim where "&_ " Main_Category = '"& Main_Category &"' and "&_ " level_1 = '"& request("level_1") &"' and "&_ " level_2 = '"& request("level_2") &"'" ' response.write "

sqll1:"& sqll1 '@ Set rsl1=MyConnSC.Execute(sqll1) If rsl1.eof = false then while not rsl1.eof '------- get item by dimension -------- start sqll2="Select * from qr_primary_battery where "&_ " Main_Category = '"& Main_Category &"' and "&_ " level_1 = '"& request("level_1") &"' and "&_ " level_2 = '"& request("level_2") &"' and "&_ " level_3 = '"& rsl1("level_3") &"' and Dimension_type ='"& rsl1("Dimension_type") &"'" ' response.write "

sqll2: "& sqll2 '@ Set rsl2=MyConnSC.Execute(sqll2) If rsl2.eof = false then if rsl2("level_3") <> "" then level_3 = rsl2("level_3") else level_3 = "" end if if rsl2("dimension_type") <> "" then dimension_type = rsl2("dimension_type") else dimension_type = "" end if Select case dimension_type case "dh" %> <% case "twl" %> <% end select response.write "

" %> " rel="lightbox" style="cursor:hand"> <% if rsl2("photo_name") <> "" then response.Write "