openshoppingcarttoshow.inc

来自「能实现用户注册」· INC 代码 · 共 28 行

<%
'====================================
'SHOW SHOPPING CART CONTENTS
'merge tbl_ShoppingCart & tbl_Inventory_Settings
'====================================
sSQL="SELECT "
sSQL=sSQL & "tbl_ShoppingCart.s_Item_No, "
sSQL=sSQL & "tbl_ShoppingCart.intSessionID, "
sSQL=sSQL & "tbl_ShoppingCart.d_Date, "
sSQL=sSQL & "tbl_ShoppingCart.intQuantity, "
sSQL=sSQL & "tbl_Inventory.s_Description, "
sSQL=sSQL & "tbl_ShoppingCart.Price "
sSQL=sSQL & "FROM tbl_Inventory RIGHT JOIN tbl_ShoppingCart ON tbl_Inventory.s_Item_No = tbl_ShoppingCart.s_Item_No "
sSQL=sSQL & "WHERE tbl_ShoppingCart.intSessionID=" & Session.SessionID & " "
sSQL=sSQL & "ORDER BY tbl_ShoppingCart.s_Item_No"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open sSQL, conn, 3, 3

if (RS.BOF and RS.EOF) then
	rows=0
else
	RS.movelast
	rows=RS.recordcount
	RS.movefirst
end if

'leave RS open!
%>