<%@LANGUAGE="VBSCRIPT"%> <% ' 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("PartialStock","OutOfStock","Weight","TotalWeight","ProductID","DiscountRate","DiscountThreshold","DiscountValue","DiscountType","Quantity","Name","SpecialPrice","Price","Total") UCII_ComputedCols = Array("","","","Weight","","","","","","","","","","Price") Set UCII = VBConstuctCart("MyCart",28,UCII_CartColNames,UCII_ComputedCols) UCII__i = 0 %> <% Dim rsPRODUCTS__MMColParam rsPRODUCTS__MMColParam = "1" if (Request.QueryString("CategoryID") <> "") then rsPRODUCTS__MMColParam = Request.QueryString("CategoryID") %> <% set rsPRODUCTS = Server.CreateObject("ADODB.Recordset") rsPRODUCTS.ActiveConnection = MM_OLEDB_STRING rsPRODUCTS.Source = "SELECT ProductID, SKU, ProductName, QuantityPerUnit, UnitPrice, SpecialPrice, UnitWeight, UnitsInStock, DiscountType, DiscountRate, DiscountValue, OnSpecial, ProductImageName, Description FROM dbo.tblSHOP_Products WHERE CategoryID = " + Replace(rsPRODUCTS__MMColParam, "'", "''") + " ORDER BY ProductName ASC" rsPRODUCTS.CursorType = 0 rsPRODUCTS.CursorLocation = 2 rsPRODUCTS.LockType = 3 rsPRODUCTS.Open() rsPRODUCTS_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsPRODUCTS_numRows = rsPRODUCTS_numRows + Repeat1__numRows %> <% ' UltraCart II Check Stock Against Cart Version 1.02 Set UCII_connCheckStock = Server.CreateObject("ADODB.Connection") UCII_connCheckStock.Open(MM_OLEDB_STRING) outofstockitem = false For iRow=0 To UCII.GetItemCount()-1 'Response.Write UCII.VBSCAccess(UCII.GetIndexOfColName(UCII.PRODUCTID),iRow) viewSql = "SELECT * FROM dbo.tblSHOP_Products WHERE ProductID = " & UCII.VBSCAccess(UCII.GetIndexOfColName(UCII.PRODUCTID),iRow) Set rsObj = UCII_connCheckStock.Execute(viewSql,"",1) OutOfStock = "OutOfStock" PartialStockLeft = "PartialStock" If rsObj.EOF Then Response.Redirect "http://www.whatspoppin.com/shop/_includes/ReviewCart.asp?UCII_EmptyCart=1" If CInt( UCII.VBSCAccess(UCII.GetIndexOfColName(UCII.QUANTITY),iRow) ) > CInt(rsObj.Fields.Item("UnitsInStock").Value) Then ' we have an out of stock item outofstockitem = true UCII.VBSCAccess UCII.GetIndexOfColName(OutOfStock),iRow, true newQty = CInt(UCII.VBSCAccess(UCII.GetIndexOfColName(UCII.QUANTITY),iRow)) - CInt(rsObj.Fields.Item("UnitsInStock").Value) If newQty = CInt(UCII.VBSCAccess(UCII.GetIndexOfColName(UCII.QUANTITY),iRow)) Then UCII.VBSCAccess UCII.GetIndexOfColName(PartialStockLeft),iRow, CInt( UCII.VBSCAccess(UCII.GetIndexOfColName(UCII.QUANTITY),iRow) ) Else UCII.VBSCAccess UCII.GetIndexOfColName(PartialStockLeft),iRow, newQty End If Else UCII.VBSCAccess UCII.GetIndexOfColName(OutOfStock),iRow, false UCII.VBSCAccess UCII.GetIndexOfColName(PartialStockLeft),iRow, 0 End If rsObj.Close() Next UCII_RedirectToPage = "/shop/_includes/OutOfStock.asp" If UCII_RedirectToPage <> "" And outofstockitem Then If false Then Server.Transfer(UCII_RedirectToPage) Else Response.Redirect(UCII_RedirectToPage) End If End If %> <% ' UltraCart II Add To Cart Via Form Version 1.00 UCII_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then UCII_editAction = UCII_editAction & "?" & Request.QueryString End If UCII_recordId = CStr(Request.Form("UCII_recordId")) If (Request.Form("UCII_recordId").Count = 1) Then set UCII_rs=rsPRODUCTS UCII_uniqueCol="ProductID" If (NOT (UCII_rs is Nothing)) Then If (UCII_rs.Fields.Item(UCII_uniqueCol).Value <> UCII_recordId) Then If (UCII_rs.CursorType > 0) Then If (Not UCII_rs.BOF) Then UCII_rs.MoveFirst Else UCII_rs.Close UCII_rs.Open End If Do While (Not UCII_rs.EOF) If (Cstr(UCII_rs.Fields.Item(UCII_uniqueCol).Value) = UCII_recordId) Then Exit Do End If UCII_rs.MoveNext Loop End If End If UCII.AddItem UCII_rs,Array("NONE","NONE","RS","NONE","RS","RS","LITERAL","RS","RS","FORM","RS","RS","RS","NONE"),Array("","","ProductID","DiscountRate","ProductID","DiscountRate","1","DiscountValue","DiscountType","Quantity","ProductName","SpecialPrice","UnitPrice",""),"replace" UCII_redirectPage = "/shop/_includes/ReviewCart.asp" If (UCII_redirectPage <> "") Then If (InStr(1, UCII_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then UCII_redirectPage = UCII_redirectPage & "?" & Request.QueryString End If Call Response.Redirect(UCII_redirectPage) End If End If %> Products By Category <% While ((Repeat1__numRows <> 0) AND (NOT rsPRODUCTS.EOF)) %>
<% ' UltraCart II Show If In Stock Version 1.00 If CInt(rsPRODUCTS.Fields.Item("UnitsInStock").Value) > 0 Then %>
<% If (rsPRODUCTS.Fields.Item("ProductImageName").Value) <> ("") Then 'script %> " WIDTH="146"> <% End If ' end If (rsPRODUCTS.Fields.Item("ProductImageName").Value) <> ("") script %> <% If (rsPRODUCTS.Fields.Item("Description").Value) <> ("") Then 'script %> <% End If ' end If (rsPRODUCTS.Fields.Item("Description").Value) <> ("") script %> <% If (rsPRODUCTS.Fields.Item("UnitPrice").Value) <> ("") Then 'script %> <% End If ' end If (rsPRODUCTS.Fields.Item("UnitPrice").Value) <> ("") script %> <% If (rsPRODUCTS.Fields.Item("SpecialPrice").Value) <> ("") Then 'script %> <% End If ' end If (rsPRODUCTS.Fields.Item("SpecialPrice").Value) <> ("") script %> <% If (rsPRODUCTS.Fields.Item("DiscountValue").Value) <> ("") Then 'script %> <% End If ' end If (rsPRODUCTS.Fields.Item("DiscountValue").Value) <> ("") script %>
<%=(rsPRODUCTS.Fields.Item("ProductName").Value)%>
<%=(rsPRODUCTS.Fields.Item("Description").Value)%>
 
<% If (rsPRODUCTS.Fields.Item("ProductID").Value) <> ("") Then 'script %> Unit Price: <%= FormatCurrency((rsPRODUCTS.Fields.Item("UnitPrice").Value), -1, -2, -2, -2) %> <% End If ' end If (rsPRODUCTS.Fields.Item("ProductID").Value) <> ("") script %> <% If (rsPRODUCTS.Fields.Item("ProductID").Value) <> ("") Then 'script %>   QuantityPerUnit: <%=(rsPRODUCTS.Fields.Item("QuantityPerUnit").Value)%> <% End If ' end If (rsPRODUCTS.Fields.Item("ProductID").Value) <> ("") script %>
Special Price: <%=(rsPRODUCTS.Fields.Item("SpecialPrice").Value)%>
Online Discount: <% If (rsPRODUCTS.Fields.Item("DiscountType").Value) = (Amount) Then 'script %> $ <% End If ' end If (rsPRODUCTS.Fields.Item("DiscountType").Value) = (Amount) script %> <%=(rsPRODUCTS.Fields.Item("DiscountValue").Value)%> <% If (rsPRODUCTS.Fields.Item("DiscountType").Value) = (Percentage) Then 'script %> % <% End If ' end If (rsPRODUCTS.Fields.Item("DiscountType").Value) = (Percentage) script %>
Qty:
<% End If 'End Of UltraCart II Show If In Stock Version 1.00 %> ">
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsPRODUCTS.MoveNext() Wend %> <% rsPRODUCTS.Close() %>