<% Dim strPage If Request("Page") <> "" Then strPage = Request("Page") Else strPage = "shop.asp" End If Dim strCatVals strCatVals = Request("CatVals") Dim strPageNo strPageNo = Request("PageNo") Dim strItemNum strItemNum = Request("ItemNum") Dim strUrl If strUseSecure = "Yes" Then strUrl = strSecureUrl Else strUrl = strCoUrl End If Dim strCartId strCartId = Session("CartId") Dim strOpt1 Dim strOpt2 Dim strOpt3 DIM mySQL, objRS Set objRS = Server.CreateObject("ADODB.Recordset") mySQL = "SELECT * FROM Cart Where CartId ='"& strCartId & "' Order By ListNum" objRS.Open mySQL, objConn %> View Shopping Cart text="#<%= strText %>" link="#<%= strLink %>" vlink="#<%= strVLink %>" alink="#<%= strALink %>">
<% IF objRS.EOF THEN %>

 

Your shopping cart is empty.

<% Response.End Else %>

<% vClass = "firstrow" %> <% DO WHILE NOT objRS.EOF If objRS("Opt1") = "0" Then strOpt1 = "" Else strOpt1 = objRS("Opt1") End If If objRS("Opt2") = "0" Then strOpt2 = "" Else strOpt2 = objRS("Opt2") End If If objRS("Opt3") = "0" Then strOpt3 = "" Else strOpt3 = objRS("Opt3") End If %> <% ' Set Row Color if vClass = "firstrow" then vClass = "secondrow" else vClass = "firstrow" end if objRS.MoveNext Loop %>

Update your Shopping Cart as needed. Delete an Item or update the quantity.

Click Check Out when you are ready to place the order.

Your Shopping Cart Items
Delete Quantity Item

Description

Each

 Amount

Update
">Delete
">
<%= objRS("ItemNum")%> <%= strOpt1 %> <%= strOpt2 %> <%= strOpt3 %> "><%=objRS("Description")%> <%= strCurrencySymbol %><%= FormatNumber(objRS("Price"),2)%> <%= strCurrencySymbol %><%= FormatNumber(objRS("Price") * objRS("Quantity"),2) %> "> "> "> "> "> "> ">
<% End If %> <% DIM mySQL1, objRS1 Set objRS1 = Server.CreateObject("ADODB.Recordset") mySQL1 = "SELECT SUM(ItemTotal) AS CartTotal FROM Cart Where CartId='"& strCartId &"'" objRS1.Open mySQL1, objConn %>

Shopping Cart Total: <%= strCurrencySymbol %><%= FormatNumber(objRS1("CartTotal"),2)%> <%= strCurrencyCode %>


Empty Cart

Store Front

Continue Shopping

Check Out