<%
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
%>
