<%
			Dim strCartId
			
			Dim strCartYear, strCartMonth, strCartDay, strCartHour, strCartMinute, strCartSecond
			
			strCartYear = DatePart("yyyy",Date)
			
			strCartMonth = Abs(0) & DatePart("m",Date)
			strCartMonth = Right(strCartMonth,2)
			
			strCartDay = Abs(0) & DatePart("d",Date)
			strCartDay = Right(strCartDay,2)
			
			strCartHour = Abs(0) & Hour(Now)
			strCartHour = Right(strCartHour,2)
			
			strCartMinute = Abs(0) & Minute(Now)
			strCartMinute = Right(strCartMinute,2)
			
			strCartSecond = Abs(0) & Second(Now)
			strCartSecond = Right(strCartSecond,2)
					
			
			IF Session("CartId") <> "" THEN
			
				strCartId = Session("CartId")
				
				
			ElseIF NOT Request.Cookies("ShoppingCart").HasKeys THEN
			
				strCartId = strCartYear & strCartMonth & strCartDay & strCartHour & strCartMinute & strCartSecond
				
				Session("CartId") = strCartYear & strCartMonth & strCartDay & strCartHour & strCartMinute & strCartSecond
				Session.Timeout = 60
				
						
			ELSE
				
				strCartId = Request.Cookies("ShoppingCart")("Id")
				
				Session("CartId") = strCartId
				Session.Timeout = 60
				
			END IF
			

			If Session("CartId") = "" Then
				Session("CartId") = strCartYear & strCartMonth & strCartDay & strCartHour & strCartMinute & strCartSecond
				
				Session.Timeout = 60
				strCartId = strCartYear & strCartMonth & strCartDay & strCartHour & strCartMinute & strCartSecond
			End If
	
			Response.Cookies("ShoppingCart")("Id") = strCartId
			Response.Cookies("ShoppingCart").Expires = Now() + 99999
			
			If (inStr(strCartId, "CartId=")) Then
			Replace strCartId("CartId=", "")
			End If
%>