"
set Conn = server.createobject("adodb.connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/HSCode.mdb")
sqlText = "SELECT * FROM YEAR_TB WHERE YEAR like '" & varYear & "' ORDER BY YEAR_ID ASC"
set rsYear = Server.CreateObject("ADODB.Recordset")
rsYear.Open sqlText,Conn
if strSearchOpt=0 then
sqlText = "select HSCODE, HS_DESC, UNIT_CODE, CD_PER, SD_PER, VAT_PER, AIT_PER, LF_PER, DSC_PER, RD_PER, AD_PER, CV_PER,DF_PER,PSI_PER,FP_PER,AVAT_PER from TARIFF" & _
" where HSCODE like '" & strSearchText & "%' ORDER BY HSCODE ASC"
elseif strSearchOpt=1 then
sqlText = "select HSCODE, HS_DESC, UNIT_CODE, CD_PER, SD_PER, VAT_PER, AIT_PER, LF_PER, DSC_PER, RD_PER, AD_PER, CV_PER,DF_PER,PSI_PER,FP_PER,AVAT_PER from TARIFF WHERE ucase(HS_DESC) like '%" & ucase(strSearchText) & "%'"
elseif strSearchOpt=2 then
sqlText = "select HSCODE, HS_DESC from TARIFF ORDER BY HSCODE"
end if
set rsSearch = Server.CreateObject("ADODB.Recordset")
rsSearch.Open sqlText,Conn,adOpenStatic
if rsSearch.EOF then
Response.Write "
