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

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

" end if %>










>
>
>