Search HSCode

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

" Response.Write "" Response.Write "" set Conn = server.createobject("adodb.connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/SAD.mdb") if strSearchOpt=0 then sqlText = "select HSCODE, TAR_DSC, UOM_COD1, TAR_T01, TAR_T02, TAR_T03, TAR_T04, TAR_T05, TAR_T06, TAR_T07, TAR_T08, TAR_T09 from UTARTAB where HSCODE like '" & strSearchText & "%'" elseif strSearchOpt=1 then sqlText = "select HSCODE, TAR_DSC, UOM_COD1, TAR_T01, TAR_T02, TAR_T03, TAR_T04, TAR_T05, TAR_T06, TAR_T07, TAR_T08, TAR_T09 from UTARTAB WHERE ucase(TAR_DSC) like '%" & ucase(strSearchText) & "%'" elseif strSearchOpt=2 then sqlText = "select HSCODE, TAR_DSC from UTARTAB" end if set rsSearch = Server.CreateObject("ADODB.Recordset") rsSearch.Open sqlText,Conn,adOpenStatic if rsSearch.EOF = false then Response.Write"Total Search Record is: " Response.Write rsSearch.RecordCount Response.Write"" end if if strSearchOpt <> 2 then %>

<% if rsSearch.EOF then Response.Write "No Search Record is Found." do while not rsSearch.EOF 'dim varHSCode,varTaxRate varHSCode = rsSearch("HSCODE") session("HSCodeNumber") = varHSCode %> <% rsSearch.MoveNext Loop rsSearch.Close 'end if %>

	HS Code		Description
	title="More Information"> <%=rsSearch("HSCODE")%>		title="More Information"><%=rsSearch("TAR_DSC")%>

<% elseif strSearchOpt = 2 then%> <% if rsSearch.EOF then Response.Write "No Search Record is Found." do while not rsSearch.EOF 'dim varHSCode,varTaxRate varHSCode = rsSearch("HSCODE") session("HSCodeNumber") = varHSCode %> <% rsSearch.MoveNext Loop rsSearch.Close 'end if %>

HS Code	Description
title="More Information"> <%=rsSearch("HSCODE")%>	<%=rsSearch("TAR_DSC")%>

<% Response.Write("") end if %>