<%@ Language=VBScript %> <% set Conn=server.createobject("adodb.connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/SAD.mdb") dim rsSearchDetail,sqlText,TotalRate,varSD,varVat 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 '" & session("HSCodeNumber") & "'" set rsSearchDetail = Server.CreateObject("ADODB.Recordset") rsSearchDetail.Open sqlText,Conn varSD = (100+cdbl(rsSearchDetail("TAR_T01")))*cdbl(rsSearchDetail("TAR_T02"))/100 varVat=(100+cdbl(rsSearchDetail("TAR_T01"))+cdbl(rsSearchDetail("TAR_T02")))*cdbl(rsSearchDetail("TAR_T03"))/100 TotalRate = cdbl(rsSearchDetail("TAR_T01"))+varSD+varVat+3+cdbl(rsSearchDetail("TAR_T05"))+3.5+cdbl(rsSearchDetail("TAR_T07"))+cdbl(rsSearchDetail("TAR_T08"))+cdbl(rsSearchDetail("TAR_T09"))'+1 dim rsCpc 'sqlText = "SELECT * FROM AGRCPCCOD WHERE SUBSTR(LISTCODE,1,1) ='C' AND HSCODE ='" & session("HSCodeNumber") & "'" sqlText = "SELECT * FROM AGRCPCCOD WHERE left(LISTCODE,1) ='C' AND HSCODE ='" & session("HSCodeNumber") & "'" set rsCpc = Server.CreateObject("ADODB.Recordset") rsCpc.Open sqlText,Conn,adOpenStatic dim rsAgr 'sqlText = "SELECT * FROM AGRCPCCOD WHERE SUBSTR(LISTCODE,1,1) <>'C' AND HSCODE ='" & session("HSCodeNumber") & "'" sqlText = "SELECT * FROM AGRCPCCOD WHERE LEFT(LISTCODE,1) <>'C' AND HSCODE ='" & session("HSCodeNumber") & "'" set rsAgr = Server.CreateObject("ADODB.Recordset") rsAgr.Open sqlText,Conn,adOpenStatic %>
Bangladesh Customs

<% if rsSearchDetail.EOF=false then %> Tariff Rate Information <% while not rsSearchDetail.EOF%> <% rsSearchDetail.MoveNext wend %>
 
HS Code
 
Description
 
Tariff
 
CD
 
SD
 
VAT
 
AIT
 
DSC
 
RD
 
PSI
 
Grand Total
 
<%=rsSearchDetail("HSCODE")%>
 
<%=rsSearchDetail("TAR_DSC")%>
 
Tariff Rate
 
<%=rsSearchDetail("TAR_T01")%>
 
<%=rsSearchDetail("TAR_T02")%>
 
<%=rsSearchDetail("TAR_T03")%>
 
3%
 
3.5%
 
1%
 
<%=rsSearchDetail("TAR_T07")%>
 
<%=FormatNumber(TotalRate,2)%>
<%end if%>
<% if rsCpc.EOF=false then %> CPC Rate Information <% while not rsCpc.EOF%> <% rsCpc.MoveNext wend %>
 
HS Code
 
Description
 
Cpc Code
 
CD
 
SD
 
VAT
 
RD
 
AIT
 
DSC
 
Grand Total
 
<%=rsCpc("HSCODE")%>
 
<%=rsCpc("DESCRIPTION")%>
 
><%=rsCpc("LISTCODE")%>
 
<%=rsCpc("CD")%>
 
<%=rsCpc("SD")%>
 
<%=rsCpc("VAT")%>
 
<%=rsCpc("RD")%>
 
<%=rsCpc("AIT")%>
 
<%=rsCpc("IDSC")%>
 
<%=rsCpc("TAXTOTAL")%>
<% else Response.Write "

" Response.Write "NO CPC Code in this HSCode" Response.Write "" end if %> <% if rsAgr.EOF=false then %>
Agreement Code Information <% while not rsAgr.EOF%> <% rsAgr.MoveNext wend %>
 
HS Code
 
Description
 
Agr Code
 
CD
 
SD
 
VAT
 
RD
 
AIT
 
IDSC
 
Grand Total
 
<%=rsAgr("HSCODE")%>
 
<%=rsAgr("DESCRIPTION")%>
 
><%=rsAgr("LISTCODE")%>
 
<%=rsAgr("CD")%>
 
<%=rsAgr("SD")%>
 
<%=rsAgr("VAT")%>
 
<%=rsAgr("RD")%>
 
<%=rsAgr("AIT")%>
 
<%=rsAgr("IDSC")%>
 
<%=rsAgr("TAXTOTAL")%>
<% else Response.Write "" Response.Write "

NO Agreement Code in this HSCode" Response.Write "
" end if %>



>
>
>