<%@ Language=VBScript %> <% if Request.QueryString("varHSCode") <> "" then session("HSCodeNumber") = Request.QueryString("varHSCode") end if 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") dim sqlText,TotalRate 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 dim varCD,varSD,varVat,varAIT,varDSC,varPSI,varRD dim AssedValue,TotalValue if (session("TaxRate")<>"") and (session("ItemValue")<>"") then AssedValue=cdbl(session("TaxRate"))*cdbl(session("ItemValue")) 'session("ItemValue") end if varCD = cdbl(AssedValue) * cdbl(rsSearchDetail("CD_PER"))/100 varSD = (cdbl(AssedValue) + varCD) * cdbl(rsSearchDetail("SD_PER"))/100 varVat = (cdbl(AssedValue) + varCD + varSD) * cdbl(rsSearchDetail("VAT_PER"))/100 varRD = cdbl(AssedValue) * cdbl(rsSearchDetail("RD_PER"))/100 varAIT = cdbl(AssedValue) * cdbl(rsSearchDetail("AIT_PER"))/100 varDSC = cdbl(AssedValue) * cdbl(rsSearchDetail("DSC_PER"))/100 GetTotalValue= varCD + varSD + varVat + varRD + varAIT + varDSC %>
Bangladesh Customs

 
Tax Description
 
 
Tax Amount 
 
 
Assessed Value
 
<%=FormatNumber(AssedValue,2)%>
 
CD <%=rsSearchDetail("TAR_T01")%>%
 
<%=FormatNumber(varCD,2)%>
 
SD <%=rsSearchDetail("TAR_T02")%>%
 
<%=FormatNumber(varSD,2)%>
 
VAT <%=rsSearchDetail("TAR_T03")%>%
 
<%=FormatNumber(varVat,2)%>
 
AIT 3%
 
<%=FormatNumber(varAIT,2)%>
 
DSC 3.5%
 
<%=FormatNumber(varDSC,2)%>
 
PSI 1%
 
<%=FormatNumber(varPSI,2)%>
 
RD <%=rsSearchDetail("TAR_T07")%>%
 
<%=FormatNumber(varRD,2)%>
 
DF Tk. 30.00
 
30.00
 
Grand Total
 
<%=FormatNumber(TotalValue,2)%>