<%@ Language=VBScript %>

Bangladesh Customs Bangladesh Flags



<% dim varRate if Request.QueryString("varHSCode") <> "" then session("HSCodeNumber") = Request.QueryString("varHSCode") end if varRate = Request.QueryString("Rate") ItemQty=Request("txtItemQty") ItemValue=Request("txtItemValue") set Conn=server.createobject("adodb.connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/HSCode.mdb") if varRate <> "" then if varRate = "General" then dim 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 %>
 
Tax Name
 
  
Tax Rate 
 
 
CD
  
<% = varCD%>%
 
SD
  
<% = varSD%>%
 
VAT
  
<% = varVat%>%
 
RD
  
<%= varRD%>%
 
AIT
  
<%=varAIT%>%
 
DSC
  
<%=varDSC%>
 
Tax Incidence
  
<%= FormatNumber(TotalRate,2)%>
<% rsSearchDetail.close else sqlText = "select LISTCODE,HSCODE, DESCRIPTION, CD, RD, SD, VAT, AIT, IDSC,TAXTOTAL " & _ "from AGRCPCCOD where HSCODE = '" & session("HSCodeNumber") & "'" & _ " and LISTCODE = '" & varRate & "'" set rsSearchDetail = Server.CreateObject("ADODB.Recordset") rsSearchDetail.Open sqlText,Conn if rsSearchDetail.eof = false then %>
 
Tax Name
 
  
Tax Rate 
 
 
CD
  
<%=rsSearchDetail("CD")%>%
 
SD
  
<%=rsSearchDetail("SD")%>%
 
VAT
  
<%=rsSearchDetail("VAT")%>%
 
RD
  
<%=rsSearchDetail("RD")%>%
 
AIT
  
<%=rsSearchDetail("AIT")%>%
 
DSC
  
<%=rsSearchDetail("IDSC")%>%
 
Tax Incidence
  
<%= FormatNumber(rsSearchDetail("TAXTOTAL"),2)%>
<% rsSearchDetail.close end if end if else Response.Write "
" Response.Write "

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

" Response.Write "
" end if %>