<%@ Language=VBScript %> <% if Request.QueryString("varHSCode") <> "" then session("HSCodeNumber") = Request.QueryString("varHSCode") end if ItemQty=Request("txtItemQty") ItemValue=Request("txtItemValue") %> <% 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,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 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 %>
Online Store Home
Customs Home Page
HS Code Description
<% = rsSearchDetail("HSCODE") %> <% = rsSearchDetail("TAR_DSC") %>
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)%>