<%
intSessionID = Session.SessionID
Set DBConn = Server.CreateObject("ADODB.Connection")
DBConn.ConnectionTimeout = Application("DBConn_ConnectionTimeout")
DBConn.CommandTimeout = Application("DBConn_CommandTimeout")
DBConn.Open Application("DBConn_ConnectionString"), Application("DBConn_RuntimeUserName"), Application("DBConn_RuntimePassword")
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set rsCartItems = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT * FROM vCartItems WHERE SessionID = '" & intSessionID & "';"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = DBConn
rsCartItems.Open cmdTemp, , 1, 3
fFirstPass = True
dim PrintHeading
PrintHeading = True
Dim cartItemID()
Dim skuNo()
Dim skuName()
Dim skuDesc()
Dim skuPrice()
Dim skuQTY()
Dim skuCount
skuCount = 0
While Not rsCartItems.EOF
skuCount = skuCount + 1
ReDim Preserve cartItemID(skuCount)
ReDim Preserve skuNo(skuCount)
ReDim Preserve skuName(skuCount)
ReDim Preserve skuDesc(skuCount)
ReDim Preserve skuPrice(skuCount)
ReDim Preserve skuQTY(skuCount)
cartItemID(skuCount)= rsCartItems("CartItemID")
skuNo(skuCount) = Trim(rsCartItems("SKU_No"))
skuName(skuCount) = Trim(rsCartItems("SKU_Name"))
skuDesc(skuCount) = rsCartItems("SKU_Desc")
skuPrice(skuCount) = rsCartItems("SKU_Price")
skuQTY(skuCount) = rsCartItems("Quantity")
rsCartItems.MoveNext
Wend
function ShortDesc( ByRef strDesc )
if len(strDesc) < 128 then
ShortDesc = strDesc
else
ShortDesc = left(strDesc,InStrRev(left(strDesc,128)," ",-1,1)) & "..."
end if
end function
%>
Welcome to Carlou Interactive Media & Publishing
[an error occurred while processing this directive]
[an error occurred while processing this directive]
SHOPPING CART
<% if skuCount then %>
<%
'********************************************************************************************
'* Begin of content area
'********************************************************************************************
%>
Product
Name
Qty
Each
Total
Changes
<%
'***************************************************************************************************************** -->
' Display items in the Cart
'***************************************************************************************************************** -->
For PrintLoop = 1 To skuCount
iLinTotal = skuPrice(PrintLoop) * skuQTY(PrintLoop)
iSubTotal = iSubTotal + iLinTotal
%>
<%
Next
%>
<% end if %>
<%
'********************************************************************************************
'* end of content area
'********************************************************************************************
%>
[an error occurred while processing this directive]
