<%@ Language=VBScript %>
Customs Tariff
<%
set Conn=server.createobject("adodb.connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/Tariff.mdb")
'if Request("btnShow")="Show" then
'sqlText = "select * from Section_Type where year ='" & request("Year") & "' order by Sec_Index asc"
sqlText = "select * from Section_Type where year ='2002' order by Sec_Index asc" ' & request("Year") & "' order by Sec_Index asc"
set rsSection = Server.CreateObject("ADODB.Recordset")
rsSection.Open sqlText,Conn
sqlText = "select * from ChapterDesc where year ='2002' order by ChapId asc" ' & request("Year") & "' order by ChapId asc"
set rsChapter = Server.CreateObject("ADODB.Recordset")
rsChapter.Open sqlText,Conn
'end if
if Request("btnSearch")="Search" then
if Request("radTariff")="A" then
Response.Redirect "DetailTariff.asp?opt=A&Type="& Request("SecType")& "&Year=" & Request("Year")
elseif Request("radTariff")="B" then
Response.Redirect "DetailTariff.asp?opt=B&Type="& Request("ChapType")& "&Year=" & Request("Year")
elseif Request("radTariff")="C" then
Response.Redirect "DetailTariff.asp?opt=C&Type="& Request("DescTariff")& "&Year=" & Request("Year")
elseif Request("radTariff")="D" then
Response.Redirect "../HSCode/HSCsearch.asp?sw=" & Request("HSCode") + "&opt=0" '"DetailTariff.asp?opt=D&Year="& Request("Year")
elseif Request("radTariff")="E" then
Response.Redirect "DetailTariff.asp?opt=D&Year="& Request("Year")
end if
end if
%>
