<% ' UltraDev Shopping Cart II ' Copyright (c) 2001 Joseph Scavitto All Rights Reserved ' www.thechocolatestore.com/ultradev Dim UCII_CartColNames,UCII_ComputedCols,UCII__i UCII_CartColNames = Array("ProductID","ItemNum","Quantity","Name","Price","Total") UCII_ComputedCols = Array("","","","","","Price") Set UCII = VBConstuctCart("SOACart",0,UCII_CartColNames,UCII_ComputedCols) UCII__i = 0 %> <% ' UltraCart II Update Version 1.01 UCII_UpdateAction = CStr(Request("URL")) If Request.QueryString <> "" Then UCII_UpdateAction = UCII_UpdateAction & "?" & Request.QueryString End If If Request.Form("Quantty").Count > 0 Then UCII.Update("Quantty") UCII_RedirectToPage = "" If UCII_RedirectToPage <> "" Then If false Then Server.Transfer(UCII_RedirectToPage) Else Response.Redirect(UCII_RedirectToPage) End If End If End If %> <% Dim rcdShipCost__param rcdShipCost__param = "0" If (UCII.GetColumnTotal("Total") <> "") Then rcdShipCost__param = UCII.GetColumnTotal("Total") End If %> <% Dim rcdShipCost Dim rcdShipCost_numRows Set rcdShipCost = Server.CreateObject("ADODB.Recordset") rcdShipCost.ActiveConnection = MM_SOA_STRING rcdShipCost.Source = "SELECT * FROM tblShipCost WHERE MaxPurchase >= " + Replace(rcdShipCost__param, "'", "''") + " AND MinPurchase <= " + Replace(rcdShipCost__param, "'", "''") + "" rcdShipCost.CursorType = 0 rcdShipCost.CursorLocation = 2 rcdShipCost.LockType = 1 rcdShipCost.Open() rcdShipCost_numRows = 0 %> <% ' UltraCart II Fixed Shipping Version 1.00 UCII.ShippingCost=rcdShipCost.Fields.Item("ShipCost").Value UCII.persist() %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rcdCategories_numRows = rcdCategories_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% ' UltraCart II Redirect If Cart Empty Version 1.01 If (UCII.GetItemCount() <= 0) Then UCII_RedirectToPage = "view_cart_empty.asp" If false Then Server.Transfer(UCII_RedirectToPage) Else Response.Redirect(UCII_RedirectToPage) End If End If %> Untitled Document
Home Buy CDs Books & More Global Missions Contact
 
 
  <% 'UltraCart II Repeat Region For UCII__i=0 To UCII.GetItemCount()-1 %> "> <% 'UltraCart II Repeat Region End Next %>
Qty.
Product Name
Price
Total
" size="1" maxlength="3">
<%=(UCII.GetColumnValue("Name",UCII__i))%>
Remove
<%= FormatCurrency((UCII.GetColumnValue("Price",UCII__i)), 2, -2, -2, -2) %>
<%= FormatCurrency((UCII.GetColumnValue("Total",UCII__i)), 2, -2, -2, -2) %>
 
Subtotal:
<%= FormatCurrency((UCII.GetColumnTotal("Total")), 2, -2, -2, -2) %>
Shipping:
<%= FormatCurrency((UCII.ShippingCost), 2, -2, -2, -2) %>
Grand Total:
<%= FormatCurrency((UCII.GetGrandTotal()), 2, -2, -2, -2) %>

   

 

 
[Prayer Requests] [Ministry Requests] [Donations]
 
<% rcdShipCost.Close() Set rcdShipCost = Nothing %>