<% dim productlist,products,zl,sum, Quatity,zl1 ProductList = Session("ProductList") if productlist = "" then zl = 0 sum = "0.00" else products = split(session("productlist"), ", ") zl1= ubound(products) zl = zl1+1 ' response.write products(0) for i = 0 to zl1 set rs=server.createobject("adodb.recordset") sql="select * from book where id = " & products(i) ' response.write sql rs.open sql,conn,1 'trueprice(i)= CInt(rs("trueprice")) Quatity= CInt(Session(rs("ID"))) sum = sum + CDbl(rs("truePrice")) * Quatity next end if %>