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

Search Result	<%goback() %>
<% Set MyConnSC = Server.CreateObject("ADODB.Connection") MyConnSC.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" & connn & ";" %> <% '--------- products ----------- start sqll1="Select * from qr_primary_battery where "&_ " model like '%"& request("textfield")&"%'"&_ " or photo_1 like '%"& request("textfield") &"%'"&_ " or nominal_voltage like '%"& request("textfield") &"%'"&_ " or typical_capacity like '%"& request("textfield") &"%'"&_ " or size_iec like '%"& request("textfield") &"%'"&_ " or zthickness like '%"& request("textfield") &"%'"&_ " or zwidth like '%"& request("textfield") &"%'"&_ " or zlength like '%"& request("textfield") &"%'"&_ " or zdiameter like '%"& request("textfield") &"%'"&_ " or zheight like '%"& request("textfield") &"%'"&_ " or zweight like '%"& request("textfield") &"%'"&_ " or current_cont like '%"& request("textfield") &"%'"&_ " or current_pulse like '%"& request("textfield") &"%'"&_ " or resistance like '%"& request("textfield") &"%'"&_ " or data_sheet like '%"& request("textfield") &"%'"&_ " or oper_temp like '%"& request("textfield") &"%'"&_ " or Main_Category like '%"& request("textfield") &"%'"&_ " or level_1 like '%"& request("textfield") &"%'"&_ " or level_2 like '%"& request("textfield") &"%'"&_ " or level_3 like '%"& request("textfield") &"%'" if dev="yes" then 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 " Products " 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 "" rsl1.movenext wend response.Write " "& X response.Write " Model" response.Write " Category" response.Write " Voltage" response.Write " Capacity" response.Write " Size" response.Write " Data Sheet" response.Write " "& X Response.Write " "& rsl1("model") Response.Write " "& rsl1("main_category") Response.Write " "& rsl1("nominal_voltage") Response.Write " "& rsl1("typical_capacity") Response.Write " "& rsl1("size_iec") Response.Write " "& rsl1("data_sheet") response.Write " " else 'rsl1 end if 'rsl1 else end if 'sqll1 '--------- products ----------- end %> <% '--------- about us ----------- start sqll1="Select * from tbl_about_us where "&_ " level_1 like '%"& request("textfield")&"%'"&_ " or level_1_link like '%"& request("textfield")&"%'"&_ " or level_2_link like '%"& request("textfield") &"%'"&_ " or zcontent like '%"& request("textfield") &"%'"&_ " or ldate like '%"& request("textfield") &"%'" 'if dev="yes" then response.Write "sqll1:"& sqll1 if sqll1 <> "" then ' response.write " sqll1"& sqll1 '@ Set rsl1=MyConnSC.Execute(sqll1) If rsl1.eof = false then x= 0 response.Write " " response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write " About us " response.Write "" response.Write "" response.Write "" while not rsl1.eof X = X + 1 this_bg_color = "#EDEDED" Response.Write " onMouseOver="this.style.backgroundColor='<%=this_bg_color %>';" onmouseout="this.style.backgroundColor='transparent';"> <% this_textfield = ""& request("textfield") &"" Response.Write "" response.Write "" rsl1.movenext wend response.Write " " response.Write " Content" response.Write " "& X Response.Write " "& replace(rsl1("level_1"),request("textfield"),this_textfield) &" " else 'rsl1 end if 'rsl1 else end if 'sqll1 '--------- about us ----------- end %> <% '--------- news ----------- start sqll1="Select * from tbl_events where "&_ " events_title like '%"& request("textfield")&"%'"&_ " or events_content like '%"& request("textfield") &"%'"&_ " or events_date like '%"& request("textfield") &"%'" 'if dev="yes" then response.Write "sqll1:"& sqll1 if sqll1 <> "" then ' response.write " sqll1"& sqll1 '@ Set rsl1=MyConnSC.Execute(sqll1) If rsl1.eof = false then x= 0 response.Write " " response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write " News & Events " response.Write "" response.Write "" response.Write "" while not rsl1.eof X = X + 1 this_bg_color = "#EDEDED" Response.Write " onMouseOver="this.style.backgroundColor='<%=this_bg_color %>';" onmouseout="this.style.backgroundColor='transparent';"> <% this_textfield = ""& request("textfield") &"" Response.Write "" response.Write "" rsl1.movenext wend response.Write " " response.Write " Event Title" response.Write " "& X Response.Write " "& replace(rsl1("events_title"),request("textfield"),this_textfield) &" " else 'rsl1 end if 'rsl1 else end if 'sqll1 '--------- news ----------- end %> <% '--------- learning ----------- start sqll1="Select * from tbl_learning_centre where "&_ " learn_title like '%"& request("textfield") &"%'"&_ " or learn_content like '%"& request("textfield") &"%'" 'if dev="yes" then response.Write "sqll1:"& sqll1 if sqll1 <> "" then ' response.write " sqll1"& sqll1 '@ Set rsl1=MyConnSC.Execute(sqll1) If rsl1.eof = false then x= 0 response.Write " " response.Write "" response.Write "" response.Write "" response.Write "" response.Write "" response.Write " Learning Centre " response.Write "" response.Write "" response.Write "" while not rsl1.eof X = X + 1 this_bg_color = "#EDEDED" Response.Write " onMouseOver="this.style.backgroundColor='<%=this_bg_color %>';" onmouseout="this.style.backgroundColor='transparent';"> <% this_textfield = ""& request("textfield") &"" Response.Write "" response.Write "" rsl1.movenext wend response.Write " " response.Write " Title" response.Write " "& X Response.Write " "& replace(rsl1("learn_title"),request("textfield"),this_textfield) &" " else 'rsl1 end if 'rsl1 else end if 'sqll1 '--------- learning ----------- end %>