<%
Option Explicit
Dim conn
Dim RSProduct
Dim RSProducts
Dim NewProductCost
Dim NewSelectText
Dim FormField
Dim RSFooter
Dim RSTotal
set conn = server.createobject ("adodb.connection")
conn.open "ASPBook", "sa", "nep2tune"
conn.execute "insert into ASPSessionPages (SessionID, PageName) values (" _
  & Session("SessionID") & ", " _
  & "'ShoppingCart')"
set RSFooter = conn.execute("select BriefText from ASPPageText " _
  & "where PageName = 'Footer'")
If not IsEmpty(Request.Form("AddToShoppingCart")) Then
  set RSProduct = conn.execute("select Price, OnClearance, ClearancePrice from " _
    & "ASPProducts where ProductID = " & Request.Form("ProductID"))
  If RSProduct("OnClearance") = 1 Then
    NewProductCost = RSProduct("ClearancePrice") * Request.Form("Quantity")
  Else
    NewProductCost = RSProduct("Price") * Request.Form("Quantity")
  End If
  For Each FormField in Request.Form
    If FormField <> "AddToShoppingCart" _
      and FormField <> "Quantity" _
      and FormField <> "ProductID" Then
      NewSelectText = NewSelectText & FormField & ": " _
        & Request.Form(FormField) & "<BR> "
    End If
  Next
  conn.execute "Insert into ASPSessionItems (SessionID, ProductID, " _
    & "Quantity, SelectText, ItemPrice) values (" _
    & Session("SessionID") & ", " _
    & Request.Form("ProductID") & ", " _
    & Request.Form("Quantity") & ", " _
    & "'" & NewSelectText & "', " _
    & NewProductCost & ")"
  set RSTotal = conn.execute("select Sum(ItemPrice) as TheTotal from " _
    & "ASPSessionItems where SessionID = " & Session("SessionID"))
  conn.execute "update ASPSessions set ProductTotal = " & RSTotal("TheTotal") _
    & "Where SessionID = " & Session("SessionID")
End If
If Not IsEmpty(Request.QueryString("Action")) Then
  conn.execute "Delete from ASPSessionItems where " _
    & "SessionItemID = " & Request.QueryString("SessionItemID")
  set RSTotal = conn.execute("select Sum(ItemPrice) as TheTotal from " _
    & "ASPSessionItems where SessionID = " & Session("SessionID"))
  conn.execute "update ASPSessions set ProductTotal = " & RSTotal("TheTotal") _
    & "Where SessionID = " & Session("SessionID")
End If
set RSProducts = conn.execute("SELECT ASPSessionItems.SessionItemID, " _
  & "ASPSessionItems.Quantity, ASPSessionItems.SelectText, " _
  & "ASPSessionItems.ItemPrice, ASPProducts.ProductName " _
  & "FROM ASPSessionItems INNER JOIN ASPProducts ON " _
  & "ASPSessionItems.ProductID = ASPProducts.ProductID " _
  & "WHERE ASPSessionItems.SessionID = " & Session("SessionID"))
set RSTotal = conn.execute("select Sum(ItemPrice) as TheTotal from " _
  & "ASPSessionItems where SessionID = " & Session("SessionID"))
%>