<%@ Language=VBScript %> <%if Request.QueryString("Rate")<>"" then %> <% dim varQty set Conn=server.createobject("adodb.connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/HSCode.mdb") dim rsSearchDetail,sqlText,TotalRate,varCD,varSD,varVat,varRD,varAIT,varDSC 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 '" & session("HSCodeNumber") & "'" set rsSearchDetail = Server.CreateObject("ADODB.Recordset") rsSearchDetail.Open sqlText,Conn varRD = 100 * cdbl(rsSearchDetail("RD_PER"))/100 varCD = 100 * cdbl(rsSearchDetail("CD_PER"))/100 varSD = (100 + varCD + varRD) * cdbl(rsSearchDetail("SD_PER"))/100 varVat = (100 + varCD + varSD + varRD) * cdbl(rsSearchDetail("VAT_PER"))/100 varAIT = 100 * cdbl(rsSearchDetail("AIT_PER"))/100 varDSC = 100 * cdbl(rsSearchDetail("DSC_PER"))/100 TotalRate = varCD + varSD + varVat + varRD + varAIT + varDSC dim rsCpc 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 LEFT(LISTCODE,1) <>'C' AND HSCODE ='" & session("HSCodeNumber") & "'" set rsAgr = Server.CreateObject("ADODB.Recordset") rsAgr.Open sqlText,Conn,adOpenStatic %>
&year_id=<%=Request.QueryString("year_id") %>" method=post>
Bangladesh Customs Bangladesh Flags



<% if rsSearchDetail.EOF=false then %>
General Exemption
<% while not rsSearchDetail.EOF %> <% rsSearchDetail.MoveNext wend %>
HS Code
Description
General Exemption
CD
SD
VAT
RD
AIT
DSC
Tax Incidence
<%=rsSearchDetail("HSCODE")%>
<%=rsSearchDetail("HS_DESC")%>
General Exemption
<%=rsSearchDetail("CD_PER")%>
<%=rsSearchDetail("SD_PER")%>
<%=rsSearchDetail("VAT_PER")%>
<%=rsSearchDetail("RD_PER")%>
<%=rsSearchDetail("AIT_PER")%>
<%=rsSearchDetail("DSC_PER")%>
<%=FormatNumber(TotalRate,2)%>
<% end if %>
<% if rsCpc.EOF=false then %>
Special Exemption <% while not rsCpc.EOF %> <% rsCpc.MoveNext wend %>
HS Code
Description
Cpc Code
CD
SD
VAT
RD
AIT
DSC
Tax Incidence
<%=rsCpc("HSCODE")%>
<%=rsCpc("DESCRIPTION")%>
','<%=rsCpc("LISTDESC")%>');" title = "<%=rsCpc("LISTDESC")%>"> ><%=rsCpc("LISTCODE")%>
<%=rsCpc("CD")%>
<%=rsCpc("SD")%>
<%=rsCpc("VAT")%>
<%=rsCpc("RD")%>
<%=rsCpc("AIT")%>
<%=rsCpc("IDSC")%>
<%=rsCpc("TAXTOTAL")%>
<% end if %> <% if rsAgr.EOF=false then %>
Exemption under Agreement <% while not rsAgr.EOF %> <% rsAgr.MoveNext wend %>
HS Code
Description
Agr Code
CD
SD
VAT
RD
AIT
DSC
Tax Incidence
<%=rsAgr("HSCODE")%>
<%=rsAgr("DESCRIPTION")%>
','<%=rsAgr("LISTDESC")%>');" title = "<%=rsAgr("LISTDESC")%>"> ><%=rsAgr("LISTCODE")%>
<%=rsAgr("CD")%>
<%=rsAgr("SD")%>
<%=rsAgr("VAT")%>
<%=rsAgr("RD")%>
<%=rsAgr("AIT")%>
<%=rsAgr("IDSC")%>
<%=rsAgr("TAXTOTAL")%>
<% end if %>



>
>
>
>
>
>
>
>
>
<% else Response.Redirect "DetailHSCode.asp?month_id=" + Request.QueryString("month_id")+"&year_id=" +Request.QueryString("year_id") end if %>