%@ Language=VBScript %> <% set Conn=server.createobject("adodb.connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/SAD.mdb") dim rsSearchDetail,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 dim rsCpc 'sqlText = "SELECT * FROM AGRCPCCOD WHERE SUBSTR(LISTCODE,1,1) ='C' AND HSCODE ='" & session("HSCodeNumber") & "'" sqlText = "SELECT * FROM AGRCPCCOD WHERE left(LISTCODE,1) ='C' AND HSCODE ='" & session("HSCodeNumber") & "'" set rsCpc = Server.CreateObject("ADODB.Recordset") rsCpc.Open sqlText,Conn,adOpenStatic dim rsAgr 'sqlText = "SELECT * FROM AGRCPCCOD WHERE SUBSTR(LISTCODE,1,1) <>'C' AND HSCODE ='" & session("HSCodeNumber") & "'" sqlText = "SELECT * FROM AGRCPCCOD WHERE LEFT(LISTCODE,1) <>'C' AND HSCODE ='" & session("HSCodeNumber") & "'" set rsAgr = Server.CreateObject("ADODB.Recordset") rsAgr.Open sqlText,Conn,adOpenStatic %>