<% dim rsArray, strSearchText, sqlText, strSearchOpt strSearchText = trim(Request("sw")) 'strSearchOpt = trim(Request("opt")) Response.Write "" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write " " Response.Write "" Response.Write " " Response.Write "

" Response.Write "" Response.Write "" Response.Write " Search Result Page for Customs Tariff " Response.Write "

" if strSearchText<>"" and strSearchOpt<>"" then if strSearchOpt=0 then sqlText = "select HSCODE, HS_DESC, UNIT_DESC, CD_PER, SD_PER, VAT_PER, AIT_PER, LF_PER, IDSC_PER, AVAT_PER, PSISC_PER, RD_PER from Tariff, Unit_Code where Unit_Code.Unit_Code = Tariff.Unit_Code and HSCODE like '" & strSearchText & "%'" elseif strSearchOpt=1 then sqlText = "select HSCODE, HS_DESC, UNIT_DESC, CD_PER, SD_PER, VAT_PER, AIT_PER, LF_PER, IDSC_PER, AVAT_PER, PSISC_PER, RD_PER from Tariff, Unit_Code where Unit_Code.Unit_Code = Tariff.Unit_Code and upper(HS_DESC) like '%" & ucase(strSearchText) & "%'" end if call getDBConnection(sqlText) rsArray = getRecordSet() if vartype(rsArray)<8192 or EndofFile=true then call printSorryMessage(0) else call printSearchResult(rsArray) end if else call printSorryMessage(1) end if sub printSearchResult(searchArray) Response.Write "" Response.Write "" Response.Write "

Number of matches found is " & (ubound(searchArray, 2)+1) & "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" for i=0 to ubound(searchArray, 2) Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" next Response.Write "

Hscode	Description	Unit	CD	SD	VAT	AIT	LF	IDSC	AVAT	PSISC	RD
" if vartype(searchArray(0, i))=1 or vartype(searchArray(0, i))=0 then Response.Write "UnDefined" else Response.Write searchArray(0, i) end if Response.Write "	" if vartype(searchArray(1, i))=1 or vartype(searchArray(1, i))=0 then Response.Write "Unknown" else Response.Write searchArray(1, i) end if Response.Write "	" if vartype(searchArray(2, i))=1 or vartype(searchArray(2, i))=0 then Response.Write "Unknown" else Response.Write searchArray(2, i) end if Response.Write "	" if vartype(searchArray(3, i))=1 or vartype(searchArray(3, i))=0 then Response.Write "0" else Response.Write searchArray(3, i) end if Response.Write "	" if vartype(searchArray(4, i))=1 or vartype(searchArray(4, i))=0 then Response.Write "0" else Response.Write searchArray(4, i) end if Response.Write "	" if vartype(searchArray(5, i))=1 or vartype(searchArray(5, i))=0 then Response.Write "0" else Response.Write searchArray(5, i) end if Response.Write "	" if vartype(searchArray(6, i))=1 or vartype(searchArray(6, i))=0 then Response.Write "0" else Response.Write searchArray(6, i) end if Response.Write "	" if vartype(searchArray(7, i))=1 or vartype(searchArray(7, i))=0 then Response.Write "0" else Response.Write searchArray(7, i) end if Response.Write "	" if vartype(searchArray(8, i))=1 or vartype(searchArray(8, i))=0 then Response.Write "0" else Response.Write searchArray(8, i) end if Response.Write "	" if vartype(searchArray(9, i))=1 or vartype(searchArray(9, i))=0 then Response.Write "0" else Response.Write searchArray(9, i) end if Response.Write "	" if vartype(searchArray(10, i))=1 or vartype(searchArray(10, i))=0 then Response.Write "0" else Response.Write searchArray(10, i) end if Response.Write "	" if vartype(searchArray(11, i))=1 or vartype(searchArray(11, i))=0 then Response.Write "0" else Response.Write searchArray(11, i) end if Response.Write "

" end sub sub printSorryMessage(messType) if messType=0 then Response.Write "" Response.Write "" Response.Write "

No matches were found with the given search options.

" elseif messType=1 then Response.Write "" Response.Write "" Response.Write "

Input options is/are empty or there may be an error!!! Please try again.

" end if end sub %>