<%@ Language=VBScript %>
Customs Act
<%
set Conn=server.createobject("adodb.connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/ACT.mdb")
sqlText = "select Chap_Name from tbl_Chapter order by Chap_Index asc"
set rsChapter = Server.CreateObject("ADODB.Recordset")
rsChapter.Open sqlText,Conn
sqlText = "select Sec_Index,Sec_Description from tbl_section order by Sec_Index asc"
set rsSection = Server.CreateObject("ADODB.Recordset")
rsSection.Open sqlText,Conn
if Request("btnSearch")="Search" then
if Request("radTariff")="A" then
Response.Redirect "DetailAct.asp?opt=A&Type="& Request("ChapType")
elseif Request("radTariff")="B" then
Response.Redirect "DetailAct.asp?opt=B&Type="& Request("SecType")
elseif Request("radTariff")="C" then
Response.Redirect "DetailAct.asp?opt=C&Type="& Request("DescTariff")
elseif Request("radTariff")="D" then
Response.Redirect "DetailAct.asp?opt=D"
end if
end if
%>
