<%@ 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/SAD.mdb") dim 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 %>
Bangladesh Customs

 
Tax Name
 
 
Tax Rate 
 
 
CD
 
<% = rsSearchDetail("TAR_T01")%>%
 
SD
 
<% = rsSearchDetail("TAR_T02")%>%
 
VAT
 
<% = rsSearchDetail("TAR_T03")%>%
 
AIT
 
3%
 
DSC
 
3.5%
 
PSI
 
1%
 
RD
 
<% = rsSearchDetail("TAR_T07")%>%
 
Grand Total
 
<%= FormatNumber(TotalRate,2)%>