<% Dim strSmallCartId strSmallCartId = Session("CartId") DIM mySQL30, objRS30 Set objRS30 = Server.CreateObject("ADODB.Recordset") mySQL30 = "SELECT * FROM Cart Where CartId ='"& strSmallCartId & "' Order By ListNum" objRS30.Open mySQL30, objConn IF objRS30.EOF THEN Response.Write "Your Cart is empty." Else DIM mySQL40, objRS40, strTotalItems Set objRS40 = Server.CreateObject("ADODB.Recordset") mySQL40 = "SELECT SUM(Quantity) AS TotalItems FROM Cart Where CartId='"& strSmallCartId &"'" objRS40.Open mySQL40, objConn strTotalItems = objRS40("TotalItems") If strTotalItems = "1" Then Response.Write strTotalItems & " Item in your Cart" Else Response.Write strTotalItems & " Items in your Cart" End If DIM mySQL41, objRS41 Dim strSmallCartTotal Set objRS41 = Server.CreateObject("ADODB.Recordset") mySQL41 = "SELECT SUM(ItemTotal) AS CartTotal FROM Cart Where CartId='"& strSmallCartId &"'" objRS41.Open mySQL41, objConn strSmallCartTotal = FormatNumber(objRS41("CartTotal"),2) Response.Write "
Cart Total: " & strCurrencySymbol & strSmallCartTotal End If %>

My Account

<%= FormatDateTime(Date, 1) %>