<%@ Language=VBScript %> <% dim rsCpc,sqlText sqlText = "SELECT * FROM AGRCPCCOD WHERE SUBSTR(LISTCODE,1,1) ='C' AND HSCODE ='" & session("HSCodeNumber") & "'" set rsCpc = Server.CreateObject("ADODB.Recordset") rsCpc.Open sqlText,Session("object"),adOpenStatic %>
Customs Information
Customs Home Page
<% if rsCpc.EOF=false then %> <% while not rsCpc.EOF%> <% rsCpc.MoveNext wend %>
HS Code Description Cpc Code CD RD SD VAT AIT IDSC Grand Total
<%=rsCpc("HSCODE")%> <%=rsCpc("DESCRIPTION")%> ><%=rsCpc("LISTCODE")%> <%=rsCpc("CD")%> <%=rsCpc("SD")%> <%=rsCpc("VAT")%> <%=rsCpc("RD")%> <%=rsCpc("AIT")%> <%=rsCpc("IDSC")%> <%=rsCpc("TAXTOTAL")%>
<% else Response.Write "

" Response.Write "NO CPC Code in this HSCode" Response.Write "

" end if %>










>
>
>