<%@ Language=VBScript %> <% dim varQty,varVal,varRate,varCheckValue,varCheckValueAgp varQty=Request.Form("txtCpcQty") varVal=Request.Form("txtCpcVal") varRate=Request.Form("txtCpcRate") varCheckValue=Request.Form("CheckValue") if Request.QueryString("varHSCode") <> "" then session("HSCodeNumber") = Request.QueryString("varHSCode") end if set Conn=server.createobject("adodb.connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/SAD.mdb") if varCheckValue<>"" then session("CheckValue")=varCheckValue else session("CheckValue")=Request("txtCheckValue") end if if varQty<>"" then session("ItemQty")=varQty else session("ItemQty") = Request("txtItemQty") end if if varVal<>"" then session("ItemValue")=varVal else session("ItemValue") = Request("txtItemValue") end if if varRate<>"" then session("TaxRate")=varRate else session("TaxRate") = Request("txtRate") end if %> <% dim sqlText,TotalRate dim varCD,varSD 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 = '" & session("HSCodeNumber") & "'" set rsSearchDetail = Server.CreateObject("ADODB.Recordset") rsSearchDetail.Open sqlText,Conn 'rsSearchDetail.Open sqlText,Session("object") sqlText = "SELECT * FROM AGRCPCCOD WHERE HSCODE ='" & session("HSCodeNumber") & _ "' AND LISTCODE='" & session("CheckValue") & "'" set rsCpc = Server.CreateObject("ADODB.Recordset") rsCpc.Open sqlText,Conn 'rsCpc.Open sqlText,Session("object") sqlText = "SELECT * FROM AGRCPCCOD WHERE HSCODE ='" & session("HSCodeNumber") & _ "' AND LISTCODE='" & session("CheckValue") & "'" set rsAgp = Server.CreateObject("ADODB.Recordset") rsAgp.Open sqlText,Conn 'rsAgp.Open sqlText,Session("object") sqlText = "SELECT CNTY_ORGIN,CNTY_DESC FROM COUNTRY ORDER BY CNTY_DESC" set rsCountry = Server.CreateObject("ADODB.Recordset") rsCountry.Open sqlText,Conn 'rsCountry.Open sqlText,Session("object") sqlText = "SELECT CURR_CODE,CURR_DESC FROM CURRENCY1" set rsCurrency = Server.CreateObject("ADODB.Recordset") rsCurrency.Open sqlText,Conn 'rsCurrency.Open sqlText,Session("object") 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 if session("CheckValue")<>"" and rsCpc.EOF=false then TotalRate=rsCpc("TAXTOTAL") elseif session("CheckValue")<>"" and rsAgp.EOF=false then TotalRate=rsCpc("TAXTOTAL") elseif session("CheckValue")<>"" then 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 end if function GetTotalValue() dim varVat,varAIT,varIDSC,varPSISC,varRD,varDF dim AssedValue if (session("TaxRate")<>"") And (session("ItemValue")<>"") then AssedValue=cdbl(session("TaxRate"))*cdbl(session("ItemValue")) if rsCpc.EOF=true And (session("CheckValueAgp") = "") and (session("CheckValueAgp")= "") then varCD = cdbl(AssedValue) * cdbl(rsSearchDetail("TAR_T01"))/100 varSD = (cdbl(AssedValue) + cdbl(varCD))* cdbl(rsSearchDetail("TAR_T02"))/100 varVat = (cdbl(AssedValue)+ CDbl(varCD)+CDbl(varSD)) * cdbl(rsSearchDetail("TAR_T03"))/100 varAIT = (cdbl(AssedValue)*3)/100 varIDSC = (cdbl(AssedValue)*3.5)/100 varPSISC = (cdbl(AssedValue)*1)/100 varRD = (cdbl(AssedValue)* cdbl(rsSearchDetail("TAR_T07")))/100 varDF = 30'(cdbl(AssedValue)*30)/100 GetTotalValue=varCD+varSD+varVat+varAIT+varIDSC+varPSISC+varRD+varDF elseIF session("CheckValueAgp") <> "" then varCD = cdbl(AssedValue) * cdbl(rsAgp("CD"))/100 varSD = (cdbl(AssedValue) + cdbl(varCD))* cdbl(rsAgp("SD"))/100 varVat = (cdbl(AssedValue)+ CDbl(varCD)+CDbl(varSD)) * cdbl(rsAgp("VAT"))/100 varAIT = (cdbl(AssedValue)* cdbl(rsAgp("AIT")))/100 varIDSC = (cdbl(AssedValue)* cdbl(rsAgp("IDSC")))/100 'varPSISC = (cdbl(AssedValue)*1)/100 varRD = (cdbl(AssedValue)* cdbl(rsAgp("RD")))/100 varDF = 30'(cdbl(AssedValue)*30)/100 GetTotalValue=varCD+varSD+varVat+varAIT+varIDSC+varRD+varDF elseIF session("CheckValue") <> "" then varCD = cdbl(AssedValue) * cdbl(rsCpc("CD"))/100 varSD = (cdbl(AssedValue) + cdbl(varCD))* cdbl(rsCpc("SD"))/100 varVat = (cdbl(AssedValue)+ CDbl(varCD)+CDbl(varSD)) * cdbl(rsCpc("VAT"))/100 varAIT = (cdbl(AssedValue)* cdbl(rsCpc("AIT")))/100 varIDSC = (cdbl(AssedValue)* cdbl(rsCpc("IDSC")))/100 'varPSISC = (cdbl(AssedValue)*1)/100 varRD = (cdbl(AssedValue)* cdbl(rsCpc("RD")))/100 varDF = 30 '(cdbl(AssedValue)*30)/100 GetTotalValue=varCD+varSD+varVat+varAIT+varIDSC+varRD+varDF end if end if End function 'if Request("cmdCpc")="CPC" then ' Response.Redirect "detailCpcRate.asp?Qty=" + Request("txtItemQty") + "&Val=" + Request("txtItemValue")+ "&Rate=" + Request("txtRate") 'end if 'if Request("cmdAgrCode")="AGR" then ' Response.Redirect "detailAgrRate.asp?Qty=" + Request("txtItemQty") + "&Val=" + Request("txtItemValue")+ "&Rate=" + Request("txtRate") 'end if if Request("cmdTax")="Select Tax" then Response.Redirect "DetailTaxInfo.asp?Qty=" + Request("txtItemQty") + "&Val=" + Request("txtItemValue")+ "&Rate=" + Request("txtRate")+ "&ChkValue=" + session("CheckValue") end if %>

Bangladesh
Customs

Information For Tax - Rates & Total Price Of Goods

You can get the total information about your goods'
Price Value, Tax Rate, Total Tax information and so on.
For any information please E-mail to us.

Country :
Currency :
Exchange Rate(Tk.):	>

HS Code

Description

Unit Code

Quantity

Value in FC

Value in BDT

Total Tax Rate

Total Tax Amount

<%=rsSearchDetail("HSCODE")%>

<%=rsSearchDetail("TAR_DSC")%>

<%=rsSearchDetail("UOM_COD1")%>

<% if (session("TaxRate")<>"") AND (session("ItemValue")<>"") then Response.Write FormatNumber(cdbl(session("TaxRate"))*cdbl(session("ItemValue")),2) else Response.Write " " end if %>

<%Response.Write(session("CheckValue") + " ")%>

<%=FormatNumber(TotalRate,2)%>

<%if session("CheckValue")<>"" then Response.Write FormatNumber(GetTotalValue,2) else Response.Write " " end if %>

> > Title="For More Order"> Continue Order

<%rsSearchDetail.Close rsCpc.Close rsAgp.Close rsCountry.Close rsCurrency.Close %>