<%@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
%>
<%
set rsCATEGORY = Server.CreateObject("ADODB.Recordset")
rsCATEGORY.ActiveConnection = MM_OLEDB_STRING
rsCATEGORY.Source = "SELECT * FROM dbo.tblSHOP_Categories"
rsCATEGORY.CursorType = 0
rsCATEGORY.CursorLocation = 2
rsCATEGORY.LockType = 3
rsCATEGORY.Open()
rsCATEGORY_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
rsCATEGORY_numRows = rsCATEGORY_numRows + Repeat1__numRows
%>
Categories
<%
' UltraCart II Show If Not Empty
If UCII.GetItemCount() > 0 Then
%>
<%
End If 'End Of UltraCart II Show If Not Empty
%>
<%
While ((Repeat1__numRows <> 0) AND (NOT rsCATEGORY.EOF))
%>
Click here to shop for <%=(rsCATEGORY.Fields.Item("CategoryName").Value)%>
<% If (rsCATEGORY.Fields.Item("ImageName").Value) <> ("") Then 'script %>
" WIDTH="143">
<% End If ' end If (rsCATEGORY.Fields.Item("ImageName").Value) <> ("") script %>
