<%@ Language=VBScript %>

Bangladesh Customs Bangladesh Flags



<% if Request.QueryString("varHSCode") <> "" then session("HSCodeNumber") = Request.QueryString("varHSCode") end if ItemQty=Request("txtItemQty") ItemValue=Request("txtItemValue") %> <% dim sqlText,TotalRate,varCD,varSD,varVat,varRD,varAIT,varDSC,AssedValue,TotalValue,varRate varRate = Request.QueryString("Rate") if varRate <> "" then set Conn=server.createobject("adodb.connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/HSCode.mdb") if (session("TaxRate")<>"") and (session("ItemValue")<>"") then AssedValue=cdbl(session("TaxRate"))*cdbl(session("ItemValue")) 'session("ItemValue") end if %> <% if varRate = "General" then sqlText = "select HSCODE,HS_DESC,UNIT_CODE,CD_PER,SD_PER,VAT_PER,RD_PER,AIT_PER,DSC_PER from TARIFF where HSCODE like '" & session("HSCodeNumber") & "'" set rsSearchDetail = Server.CreateObject("ADODB.Recordset") rsSearchDetail.Open sqlText,Conn varRD = cdbl(AssedValue) * cdbl(rsSearchDetail("RD_PER"))/100 varCD = cdbl(AssedValue) * cdbl(rsSearchDetail("CD_PER"))/100 varSD = (cdbl(AssedValue) + varCD + varRD) * cdbl(rsSearchDetail("SD_PER"))/100 varVat = (cdbl(AssedValue) + varCD + varSD + varRD) * cdbl(rsSearchDetail("VAT_PER"))/100 varAIT = cdbl(AssedValue) * cdbl(rsSearchDetail("AIT_PER"))/100 varDSC = cdbl(AssedValue) * cdbl(rsSearchDetail("DSC_PER"))/100 TotalValue = varCD + varSD + varVat + varRD + varAIT + varDSC %>
 
Tax Description
 
  
Tax Amount 
 
 
Assessed Value
  
<%=FormatNumber(AssedValue,2)%>
 
CD <%=rsSearchDetail("CD_PER")%>%
  
<%=FormatNumber(varCD,2)%>
 
SD <%=rsSearchDetail("SD_PER")%>%
  
<%=FormatNumber(varSD,2)%>
 
VAT <%=rsSearchDetail("VAT_PER")%>%
  
<%=FormatNumber(varVat,2)%>
 
RD <%=rsSearchDetail("RD_PER")%>%
  
<%=FormatNumber(varRD,2)%>
 
AIT <%=rsSearchDetail("AIT_PER")%>%
  
<%=FormatNumber(varAIT,2)%>
 
DSC <%=rsSearchDetail("DSC_PER")%>%
  
<%=FormatNumber(varDSC,2)%>
 
Grand Total
  
<%=FormatNumber(TotalValue,2)%>
<% else sqlText = "select LISTCODE,LISTDESC,HSCODE,DESCRIPTION,CD,SD,VAT,RD,AIT,IDSC from AGRCPCCOD where" & _ " LISTCODE ='" & varRate & "' and HSCODE ='" & session("HSCodeNumber") & "'" set rsSearchDetail = Server.CreateObject("ADODB.Recordset") rsSearchDetail.Open sqlText,Conn varRD = cdbl(AssedValue) * cdbl(rsSearchDetail("RD"))/100 varCD = cdbl(AssedValue) * cdbl(rsSearchDetail("CD"))/100 varSD = (cdbl(AssedValue) + varCD + varRD) * cdbl(rsSearchDetail("SD"))/100 varVat = (cdbl(AssedValue) + varCD + varSD + varRD) * cdbl(rsSearchDetail("VAT"))/100 varAIT = cdbl(AssedValue) * cdbl(rsSearchDetail("AIT"))/100 varDSC = cdbl(AssedValue) * cdbl(rsSearchDetail("IDSC"))/100 TotalValue = varCD + varSD + varVat + varRD + varAIT + varDSC %>
 
Tax Description
 
  
Tax Amount 
 
 
Assessed Value
  
<%=FormatNumber(AssedValue,2)%>
 
CD <%=rsSearchDetail("CD")%>%
  
<%=FormatNumber(varCD,2)%>
 
SD <%=rsSearchDetail("SD")%>%
  
<%=FormatNumber(varSD,2)%>
 
VAT <%=rsSearchDetail("VAT")%>%
  
<%=FormatNumber(varVat,2)%>
 
RD <%=rsSearchDetail("RD")%>%
  
<%=FormatNumber(varRD,2)%>
 
AIT <%=rsSearchDetail("AIT")%>%
  
<%=FormatNumber(varAIT,2)%>
 
DSC <%=rsSearchDetail("IDSC")%>%
  
<%=FormatNumber(varDSC,2)%>
 
Grand Total
  
<%=FormatNumber(TotalValue,2)%>
<% end if else Response.Write "
" Response.Write "

" Response.Write "No data available" Response.Write "

" Response.Write "
" end if %>