Shopping Cart

<% ' showcart.asp ' Displays the shopping cart. Option Explicit Dim showsearch, showcart, showcheckout, showany showsearch=TRUE showcart=FALSE showcheckout=TRUE showany=TRUE Dim Item Dim ProductCode(20), Description(20), Price(20), Title(20), ShortDescription(20), Expiration(20) Dim ShowCartConn, MySQL, cmd, RecSet, i Dim ItemsFound, DotPos, Dot2Pos, TotalCost, TotalShipping ' Get cart from cookie ' Loop through the cookie collection. ItemsFound = 0 Set ShowCartConn = Server.CreateObject("ADODB.Connection") ShowCartConn.Open Application("dsn") For Each Item in Request.Cookies If (InStr(Item,".name") = 0) and (InStr(Item,".price") = 0) and (InStr(Item,"CART") > 0) Then 'This is to skip over product name and price cookies. We'll rely on the database for that. ' Search for it. mySQL = "sp_findproduct4sale '" & Mid(Item,5,45) & "'" Set Cmd = Server.CreateObject("ADODB.Command") Cmd.ActiveConnection = ShowCartConn Cmd.CommandText = mySQL Set RecSet = Server.CreateObject("ADODB.RecordSet") RecSet.Open Cmd, ,0,1 If RecSet.EOF Then Else ItemsFound = ItemsFound + 1 ProductCode(ItemsFound) = Mid(Item,5,45) Dot2Pos = InStr(DotPos+1, Item, ".") Description(ItemsFound) = RecSet.Fields("Description") If Len(Description(ItemsFound))>150 Then Description(ItemsFound) = Left(Description(ItemsFound),150) & " ..." End If Price(ItemsFound) = RecSet.Fields("Price") Title(ItemsFound) = RecSet.Fields("title") Expiration(itemsFound) = RecSet.Fields("expiration") ShortDescription(ItemsFound) = RecSet.Fields("subtitle") End If RecSet.Close End If Next Set RecSet = Nothing ShowCartConn.Close Set ShowCartConn = Nothing %> Shopping Cart

Shopping Cart

Checkout

<% If ItemsFound=0 Then %> <% Else %> <% End If %> <% TotalCost = 0 TotalShipping = 0 For i = 1 to ItemsFound TotalCost = TotalCost + Price(i) TotalShipping = TotalShipping + Application("USShippingRate") %> <% Next %>

You currently don't have anything in your shopping cart. Why don't you check out the Setsuko.com Cute Store and add something?
Product	Description	Price	Remove
<%=Title(i)%> <%=ShortDescription(i)%>	<%=Description(i)%>	$<%=FormatNumber(Price(i),2)%>	Remove

	MERCHANDISE SUBTOTAL	$<%=FormatNumber(TotalCost,2)%>
	Shipping and Handling U.S. Destinations only	$<%=FormatNumber(TotalShipping,2)%>
	ESTIMATED TOTAL	*$<%=FormatNumber(TotalCost+(TotalCostApplication("TaxRate"))+TotalShipping,2)%>**