<%if dev="yes" then response.Write "menu_primary_battery.asp"%>
<%
response.Write "
"
response.Write "
"
response.Write "
"
response.Write "
"
response.Write "
"
%>
<%
Set MyConnSC = Server.CreateObject("ADODB.Connection")
MyConnSC.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & connn & ";"
sqlm1="Select * from tbl_menu_10 where Main_Category = 'Primary Batteries' order by sequence"
Set rsm1=MyConnSC.Execute(sqlm1)
'response.Write " sqlm1:"& sqlm1
If rsm1.eof = false then
E = 0
while not rsm1.eof
'-------------------------------------------------------
response.Write "
" 'height:30px
response.Write ""& rsm1("Chemistry_type")&""
'-------------------------------------------------------
sqlm2="Select * from tbl_menu_20 where Main_Category = 'Primary Batteries' and Chemistry_type = '"& rsm1("Chemistry_type") &"'"
Set rsm2=MyConnSC.Execute(sqlm2)
' response.Write " sqlm2:"& sqlm2
If rsm2.eof = false then
while not rsm2.eof
response.Write ""& rsm2("Chemistry_name") &""
'-------------------------------------------------------
sqlm3="Select * from qr_battery_type where Main_Category = 'Primary Batteries' and Chemistry_type = '"& rsm1("Chemistry_type") &"' and Chemistry_name = '"& rsm2("Chemistry_name") &"'"
Set rsm3=MyConnSC.Execute(sqlm3)
If rsm3.eof = false then
while not rsm3.eof
if rsm3("Battery_type") <> "" then response.Write ""&rsm3("Battery_type")&""
rsm3.movenext
wend 'rsm3
end if 'rsm3
'-------------------------------------------------------
rsm2.movenext
wend 'rsm2
end if 'rsm2
'-------------------------------------------------------
response.Write "
"
rsm1.movenext
wend 'rsm1
end if 'rsm1
'-------------------------------------------------------
%>
