<%'if dev="yes" then response.Write "product_search_3.asp"%>
Chemistry:
<%
sqmp1 = ""
'--------------- level 1 ------------ start
Set MyConnSC = Server.CreateObject("ADODB.Connection")
MyConnSC.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & connn & ";"
if request("level_1") <> "" and request("level_2") <> "" and request("Nominal_Voltage") <> "" and request("typical_capacity_range") <> "" then
sqmp1="Select distinct(level_1) from qr_primary_battery_active where "&_
" level_1 = '"& request("level_1") &"' "&_
" and level_2 = '"& request("level_2") &"' "&_
" and Nominal_Voltage= "& request("Nominal_Voltage") &" "&_
" and typical_capacity_range = '"& request("typical_capacity_range") &"' "&_
" order by level_1"
elseif request("level_1") <> "" and request("level_2") <> "" and request("Nominal_Voltage") <> "" and request("typical_capacity_range") = "" then
sqmp1="Select distinct(level_1) from qr_primary_battery_active where "&_
" level_1 = '"& request("level_1") &"' "&_
" and level_2 = '"& request("level_2") &"' "&_
" and Nominal_Voltage= "& request("Nominal_Voltage") &" "&_
" order by level_1"
elseif request("level_1") <> "" and request("level_2") <> "" and request("Nominal_Voltage") = "" and request("typical_capacity_range") = "" then
sqmp1="Select distinct(level_1) from qr_primary_battery_active where "&_
" level_1 = '"& request("level_1") &"' "&_
" and level_2 = '"& request("level_2") &"' "&_
" order by level_1"
elseif request("level_1") <> "" and request("level_2") = "" and request("Nominal_Voltage") = "" and request("typical_capacity_range") = "" then
sqmp1="Select distinct(level_1) from qr_primary_battery_active where "&_
" level_1 = '"& request("level_1") &"' "&_
" order by level_1"
elseif request("level_1") = "" and request("level_2") <> "" and request("Nominal_Voltage") = "" and request("typical_capacity_range") = "" then
sqmp1="Select distinct(level_1) from qr_primary_battery_active where "&_
" level_2 = '"& request("level_2") &"' "&_
" order by level_1"
elseif request("level_1") = "" and request("level_2") <> "" and request("Nominal_Voltage") <> "" and request("typical_capacity_range") = "" then
sqmp1="Select distinct(level_1) from qr_primary_battery_active where "&_
" Nominal_Voltage = "& request("Nominal_Voltage") &" "&_
" and level_2 = '"& request("level_2") &"' "&_
" order by level_1"
elseif request("level_1") = "" and request("level_2") = "" and request("Nominal_Voltage") <> "" and request("typical_capacity_range") = "" then
sqmp1="Select distinct(level_1) from qr_primary_battery_active where "&_
" Nominal_Voltage = "& request("Nominal_Voltage") &" "&_
" order by level_1"
else
sqmp1="Select distinct(level_1) from qr_primary_battery_active where "&_
" level_1 is not null order by level_1"
end if
Set rsp1=MyConnSC.Execute(sqmp1)
If rsp1.eof = false then
response.write ""
end if 'rsp1
response.write "
"
if dev="yes" then response.write "
level1: "& sqmp1
'--------------- level 1 ------------ end
%>
Type:
<%
'--------------- level 2 ------------ start
if request("level_1") <> "" and request("level_2") <> "" and request("Nominal_Voltage") <> "" and request("typical_capacity_range") <> "" then
sqmp2="Select distinct(level_2) from qr_primary_battery_active where "&_
" level_1 = '"& request("level_1") &"' "&_
" and level_2 = '"& request("level_2") &"' "&_
" and Nominal_Voltage= "& request("Nominal_Voltage") &" "&_
" and typical_capacity_range = '"& request("typical_capacity_range") &"' "&_
" order by level_2"
elseif request("level_1") <> "" and request("level_2") <> "" and request("Nominal_Voltage") <> "" and request("typical_capacity_range") = "" then
sqmp2="Select distinct(level_2) from qr_primary_battery_active where "&_
" level_1 = '"& request("level_1") &"' "&_
" and level_2 = '"& request("level_2") &"' "&_
" and Nominal_Voltage= "& request("Nominal_Voltage") &" "&_
" order by level_2"
elseif request("level_1") = "" and request("level_2") <> "" and request("Nominal_Voltage") <> "" and request("typical_capacity_range") = "" then
sqmp2="Select distinct(level_2) from qr_primary_battery_active where "&_
" level_2 = '"& request("level_2") &"' "&_
" and Nominal_Voltage= "& request("Nominal_Voltage") &" "&_
" order by level_2"
elseif request("level_1") <> "" and request("level_2") <> "" and request("Nominal_Voltage") = "" and request("typical_capacity_range") = "" then
sqmp2="Select distinct(level_2) from qr_primary_battery_active where "&_
" level_1 = '"& request("level_1") &"' "&_
" and level_2 = '"& request("level_2") &"' "&_
" order by level_2"
elseif request("level_1") = "" and request("level_2") = "" and request("Nominal_Voltage") <> "" and request("typical_capacity_range") = "" then
sqmp2="Select distinct(level_2) from qr_primary_battery_active where "&_
" Nominal_Voltage = "& request("Nominal_Voltage") &" "&_
" order by level_2"
elseif request("level_1") <> "" and request("level_2") = "" and request("Nominal_Voltage") = "" and request("typical_capacity_range") = "" then
sqmp2="Select distinct(level_2) from qr_primary_battery_active where "&_
" level_1 = '"& request("level_1") &"' "&_
" order by level_2"
else
sqmp2="Select distinct(level_2) from qr_primary_battery_active where "&_
" level_2 is not null order by level_2"
end if
Set rsp1=MyConnSC.Execute(sqmp2)
If rsp1.eof = false then
response.write ""
end if 'rsp1
response.write "
"
if dev="yes" then response.write "
sqmp2: "& sqmp2
'--------------- level 2 ------------ end
%>
Voltage:
<%
'--------------- Voltage ------------ start
if request("level_1") <> "" and request("level_2") <> "" and request("Nominal_Voltage") <> "" and request("typical_capacity_range") <> "" then
sqmpv="Select distinct(Nominal_Voltage) from qr_primary_battery_active where "&_
" level_1 = '"& request("level_1") &"' "&_
" and level_2 = '"& request("level_2") &"' "&_
" and Nominal_Voltage= "& request("Nominal_Voltage") &" "&_
" and typical_capacity_range = '"& request("typical_capacity_range") &"' "&_
" order by Nominal_Voltage"
elseif request("level_1") <> "" and request("level_2") <> "" and request("Nominal_Voltage") <> "" and request("typical_capacity_range") = "" then
sqmpv="Select distinct(Nominal_Voltage) from qr_primary_battery_active where "&_
" level_1 = '"& request("level_1") &"' "&_
" and level_2 = '"& request("level_2") &"' "&_
" and Nominal_Voltage= "& request("Nominal_Voltage") &" "&_
" order by Nominal_Voltage"
elseif request("level_1") <> "" and request("level_2") <> "" and request("Nominal_Voltage") = "" and request("typical_capacity_range") = "" then
sqmpv="Select distinct(Nominal_Voltage) from qr_primary_battery_active where "&_
" level_1 = '"& request("level_1") &"' "&_
" and level_2 = '"& request("level_2") &"' "&_
" order by Nominal_Voltage"
elseif request("level_1") <> "" and request("level_2") = "" and request("Nominal_Voltage") = "" and request("typical_capacity_range") = "" then
sqmpv="Select distinct(Nominal_Voltage) from qr_primary_battery_active where "&_
" level_1 = '"& request("level_1") &"' "&_
" order by Nominal_Voltage"
else
sqmpv="Select distinct(Nominal_Voltage) from qr_primary_battery_active where "&_
" Nominal_Voltage is not null order by Nominal_Voltage"
end if
Set rsp1=MyConnSC.Execute(sqmpv)
If rsp1.eof = false then
response.write ""
end if 'rsp1
response.write "
"
if dev="yes" then response.write "
sqmpv: "& sqmpv
'--------------- Voltage ------------ end
%>
Capacity:
<%
'--------------- capacity ------------ start
if request("level_1") <> "" and request("level_2") <> "" and request("Nominal_Voltage") <> "" and request("typical_capacity_range") <> "" then
sqmpc="Select distinct(typical_capacity_range) from qr_primary_battery_active where "&_
" level_1 = '"& request("level_1") &"' "&_
" and level_2 = '"& request("level_2") &"' "&_
" and Nominal_Voltage= "& request("Nominal_Voltage") &" "&_
" and typical_capacity_range = '"& request("typical_capacity_range") &"' "&_
" order by typical_capacity_range"
elseif request("level_1") <> "" and request("level_2") <> "" and request("Nominal_Voltage") <> "" and request("typical_capacity_range") = "" then
sqmpc="Select distinct(typical_capacity_range) from qr_primary_battery_active where "&_
" level_1 = '"& request("level_1") &"' "&_
" and level_2 = '"& request("level_2") &"' "&_
" and Nominal_Voltage= "& request("Nominal_Voltage") &" "&_
" order by typical_capacity_range"
elseif request("level_1") <> "" and request("level_2") <> "" and request("Nominal_Voltage") = "" and request("typical_capacity_range") = "" then
sqmpc="Select distinct(typical_capacity_range) from qr_primary_battery_active where "&_
" level_1 = '"& request("level_1") &"' "&_
" and level_2 = '"& request("level_2") &"' "&_
" order by typical_capacity_range"
elseif request("level_1") = "" and request("level_2") = "" and request("Nominal_Voltage") <> "" and request("typical_capacity_range") = "" then
sqmpc="Select distinct(typical_capacity_range) from qr_primary_battery_active where "&_
" Nominal_Voltage = "& request("Nominal_Voltage") &" "&_
" order by typical_capacity_range"
elseif request("level_1") = "" and request("level_2") = "" and request("Nominal_Voltage") = "" and request("typical_capacity_range") <> "" then
sqmpc="Select distinct(typical_capacity_range) from qr_primary_battery_active where "&_
" typical_capacity_range = '"& request("typical_capacity_range") &"' "&_
" order by typical_capacity_range"
else
sqmpc="Select distinct(typical_capacity_range) from qr_primary_battery_active where "&_
" typical_capacity_range is not null order by typical_capacity_range"
end if
Set rsp1=MyConnSC.Execute(sqmpc)
If rsp1.eof = false then
response.write ""
end if 'rsp1
response.write "
"
if dev="yes" then response.write "
sqmpc: "& sqmpc
'--------------- capacity ------------ end
%>
<%
function chkcapname(data)
if data <> "" then
sqlckc = "select * from tbl_typical_capacity_range where typical_capacity_range ='"& data &"'"
Set rsckc=MyConnSC.Execute(sqlckc)
If rsckc.eof = false then
chkcapname= rsckc("typical_capacity_name")
response.Write chkcapname
end if
end if
end function
%>
