<% PageTitle = "Shopping Cart" Session("dev_mode") = 1 For Each item In Request("ShoppingID") If isnumeric(item) and Item <> "" Then SQL = "DELETE FROM ShoppingCart WHERE SessionID = '" & SessionID & "'" SQL = SQL & "AND ShoppingID =" & item Set RS = Conn.Execute(SQL) End If Next If Request("ShoppingID") <> "" Then 'check to see if there are items in the basket, if not, redirect to home page SQL = "SELECT * FROM ShoppingCart WHERE SessionID = '" & SessionID & "'" Set RS = Conn.Execute(SQL) If RS.RecordCount > 0 Then bCartExists = True Else bCartExists = False End if End if Conn.Close If (Request("DeleteItems") <> "") Then Response.redirect "/cart/shoppingcart.asp" if (Request("ContinueCheckout") <> "") Then If (bCartExists) OR (Request("ContinueCheckout") <> "") Then If Session("dev_mode") = 1 OR Session("dev_mode") = 2 Then 'Response.write("XXX Testing") 'Response.end Response.Redirect "/commerce/checkout_billing_and_shipping.asp" Else Response.Redirect "https://www.marygreen.com/commerce/checkout_billing_and_shipping.asp" End If Else Response.Redirect "/cart/shoppingcart.asp" End if ElseIf Request("ContinueShopping") <> "" Then Response.Redirect "../default.asp" End If %> <% Call HeaderTable() Call BodyTable() %> <% Sub BodyTable()%>
<% Call ShoppingCartList() %> <% End Sub %>