<!--#include virtual="/Cart.inc"-->
<%


	ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
	"DBQ= " & Server.MapPath("\cgi-bin\am_hobby.mdb") & _
	";UID=admin;PWD=;"

iCount = Session("ItemCount")
ARYshoppingcart = Session("MyShoppingCart")






Set Conn = Server.CreateObject("ADODB.Connection")
	 
	If Request.QueryString("ProductCode") <> "" Then
			If iCount < MaxShoppingCartItems Then
				iCount = iCount + 1
			End if
		Session("ItemCount") = iCount
		Conn.Open ConnectionString
		SQLcatalog_item = "SELECT Type, ProductID, Code, Name, Description, Price FROM Products WHERE {fn UCASE(Code)} = '" & Ucase(Request.QueryString("ProductCode")) & "'"
		Set RS = Conn.Execute(SQLcatalog_item)
		If Not IsEmpty(RS) Then
			ARYshoppingcart(cartCHECKED,iCount) = "CHECKED"
			ARYshoppingcart(cartCode,iCount) = RS("Code")
			ARYshoppingcart(cartName,iCount) = RS("Name")
			ARYshoppingcart(cartDescription,iCount) = RS("Description")
			ARYshoppingcart(cartItemQuantity,iCount) = 1
			ARYshoppingcart(cartPrice,iCount) = RS("Price")
			ARYshoppingcart(cartProductID,iCount) = RS("ProductID")
			Session("MyShoppingCart") = ARYshoppingcart
			History = RS("Type") 'we need this to redirect back to where 
									'the user came from on the catalog_item page
			RS.Close
			Conn.Close
		End If
	End If
	
	
  	for i = 1 to icount 'icount will be already stored on the session
		'and contains the number of items that the shopper has put in the cart
		'we loop through and grab each item from the array.  The first dimension
		'contains the constant and never changes here.  The second dimension 
		'contains the item number of the product being purchased I may be able
		'to just pull these items  - cartCatalogNumber cartItemQuantity
		
' this is the code that is beng used to go to the next page checkout.asp
				
		strTemp = strTemp & "," & ARYshoppingcart(cartCode,i)
		strTemp = strTemp & "," & ARYshoppingcart(cartName,i)
	'	strTemp = strTemp & "," & ARYshoppingcart(cartDescription,i)
		strTemp = strTemp & "," & ARYshoppingcart(cartItemQuantity,i)
		strTemp = strTemp & "," & ARYshoppingcart(cartPrice,i)
	'	strTemp = strTemp & "," & ARYshoppingcart(cartProductID,i)
	next

SELECT CASE Request("Action")

CASE "Click to Pay"
	Quantity = Request("Quantity" & CStr(i))
		If IsNumeric(Quantity) Then
			ARYshoppingcart(cartItemQuantity,i) = abs(CLng(Quantity))
		Else
			ARYshoppingcart(cartItemQuantity,i) = 1
		End If
	
	'send everything to checkout.asp 
	
	Session("MyShoppingCart") = ARYshoppingcart
	
	for i = 1 to icount 'icount will be already stored on the session
		'and contains the number of items that the shopper has put in the cart
		'we loop through and grab each item from the array.  The first dimension
		'contains the constant and never changes here.  The second dimension 
		'contains the item number of the product being purchased I may be able
		'to just pull these items  - cartCatalogNumber cartItemQuantity
						
		strTemp = strTemp & "," & ARYshoppingcart(cartCatalogNumber,i)
		strTemp = strTemp & "," & ARYshoppingcart(cartProductName,i)
		strTemp = strTemp & "," & ARYshoppingcart(cartProductDescription,i)
		strTemp = strTemp & "," & ARYshoppingcart(cartItemQuantity,i)
		strTemp = strTemp & "," & ARYshoppingcart(cartUnitPrice,i)
		strTemp = strTemp & "," & ARYshoppingcart(cartProductSize,i)
		strTemp = strTemp & "," & ARYshoppingcart(cartProductID,i)
	next
	
URL = "/products/checkouttest.asp?info=" & strTemp	
	
		' Check if new customer
' 	CustomerID = Session("CustomerID")
' 	if CustomerID = 0 then ' new customer
'		Response.Redirect "/products/GetCustomer.asp"
' 	else
'		' First check to ensure that the customer was not removed from the database
' 		Conn.Open ConnectionString
'		Set rs = Conn.Execute( _
'			"select CompanyName FROM Customers where CustomerID = " & CustomerID & _
'			" and ContactFirstName = '" & Session("CustomerFirstName") & "'")
'		URL = "/products/shipping.asp"
'		If rs.EOF Then
'			Session("CustomerID") = -1 ' This means the user WAS in the database at one time, but isn't now
'			URL ="/products/GetCustomer.asp"
'		End If
'		rs.Close
'		Conn.Close
		Response.Redirect URL


   
CASE "Shop for More"
	For i = 1 to iCount       
		Quantity = Request("Quantity" & CStr(i))
		If IsNumeric(Quantity) Then
			ARYshoppingcart(cartItemQuantity,i) = abs(CLng(Quantity))
		Else
			ARYshoppingcart(cartItemQuantity,i) = 1
		End If
	Next
	Session("MyShoppingCart") = ARYshoppingcart
	Response.Redirect "/products/catalog_type.asp?ProductType=" & Request("History")

CASE "Recalculate"
	For i = 1 to iCount       
		Quantity = Request("Quantity" & CStr(i))
		If IsNumeric(Quantity) Then
			ARYshoppingcart(cartItemQuantity,i) = abs(CLng(Quantity))
		Else
			ARYshoppingcart(cartItemQuantity,i) = 1
		End If
	Next
	For i = 1 to iCount
		If Request("Confirm" & CStr(i)) = "" Then
			iCount = iCount - 1
			For x = 1 to UBound(ARYshoppingcart,1)
				ARYshoppingcart(x,i) = ""
			Next
			n = i
			while n < UBound(ARYshoppingcart,2)
				For x = 1 to UBound(ARYshoppingcart,1)
					ARYshoppingcart(x,n) = ARYshoppingcart(x,n + 1)
					ARYshoppingcart(x,n + 1) = ""
				Next
				n = n + 1
			wend	
		End If
    Next
	Session("MyShoppingCart") = ARYshoppingcart
	Session("ItemCount") = iCount

CASE "Cancel Order"
	iCount = 0	
	Session("ItemCount") = iCount
	Response.Redirect "/products/default.asp"

'	End If

END SELECT
%>
<html>

<head>
<title>American Hobby Shop - Shopping Cart</title>
<link REL="stylesheet" HREF="/style1.css" type="text/css">
</head>

<body LINK="#800000" VLINK="#008040">
<font FACE="Verdana, Arial, Helvetica" SIZE="2">

<table BORDER="0">
  <tr>
    <td WIDTH="30"><img SRC="../multimedia/images/spacer.gif" ALIGN="RIGHT" ALT> </td>
    <td><b>AmericanHobbyShop.com Check-Out page</b>

 <hr SIZE="4">
</font>
    </td>
  </tr>
<!-- BEGIN Navigational buttons -->
  <tr>
    <td ROWSPAN="20" ALIGN="LEFT" VALIGN="TOP"><img SRC="/multimedia/images/spacer.gif" WIDTH="120" ALT> </td>
    <td><!-- BEGIN table inserted into table data cell --><!-- BEGIN form with first row of data --> <form ACTION="/products/check_out.asp?" METHOD="POST">
      <table COLSPAN="8" CELLPADDING="5" BORDER="0">
<!-- BEGIN column header row -->
        <tr>
          <td ALIGN="CENTER" BGCOLOR="#800000"><font STYLE="Verdana, Arial, Helvetica" COLOR="#ffffff" SIZE="2">Confirm</font> </td>
          <td ALIGN="CENTER" BGCOLOR="#800000"><font STYLE="Verdana, Arial, Helvetica" COLOR="#ffffff" SIZE="2">Product Code</font> </td>
          <td ALIGN="CENTER" BGCOLOR="#800000"><font STYLE="Verdana, Arial, Helvetica" COLOR="#ffffff" SIZE="2">Name</font> </td>
          <td ALIGN="CENTER" WIDTH="150" BGCOLOR="#800000"><font STYLE="Verdana, Arial, Helvetica" COLOR="#ffffff" SIZE="2">Description</font> </td>
          <td ALIGN="CENTER" BGCOLOR="#800000"><font STYLE="Verdana, Arial, Helvetica" COLOR="#ffffff" SIZE="2">Quantity</font> </td>
          <td ALIGN="CENTER" BGCOLOR="#800000"><font STYLE="Verdana, Arial, Helvetica" COLOR="#ffffff" SIZE="2">Price</font> </td>
          <td ALIGN="CENTER" BGCOLOR="#800000"><font STYLE="Verdana, Arial, Helvetica" COLOR="#ffffff" SIZE="2">Unit Total</font> </td>
        </tr>
<%
iSubtotal = 0
For i = 1 to iCount
%>
<!-- BEGIN first row of inserted product data -->
        <tr>
          <td ALIGN="CENTER" BGCOLOR="f7efde"><%If ARYshoppingcart(cartCHECKED,i) = "CHECKED" Then%>
<p><input TYPE="CHECKBOX" NAME="<%Response.Write "Confirm" & CStr(i)%>" VALUE="Confirmed" CHECKED> <%End If%> </td>
          <td BGCOLOR="f7efde" ALIGN="CENTER"><font STYLE="Verdana, Arial, Helvetica" SIZE="2"><%=ARYshoppingcart(cartCode,i)%></font>
          </td>
          <td BGCOLOR="f7efde" ALIGN="CENTER"><font STYLE="Verdana, Arial, Helvetica" SIZE="2"><%=ARYshoppingcart(cartName,i)%></font>
          </td>
          <td BGCOLOR="f7efde" ALIGN="LEFT" WIDTH="150"><font STYLE="Verdana, Arial, Helvetica" SIZE="2"><%=ARYshoppingcart(cartDescription,i)%></font> </td>
          <td BGCOLOR="f7efde" ALIGN="CENTER"><%If ARYshoppingcart(cartCHECKED,i) = "CHECKED" Then%>
<p><font STYLE="Verdana, Arial, Helvetica" SIZE="2"><input TYPE="TEXT" NAME="<%Response.Write "Quantity" & CStr(i)%>" VALUE="<%=ARYshoppingcart(cartItemQuantity,i)%>" SIZE="2" MAXLENGTH="5"></font> <%End If%> </td>
          <td BGCOLOR="f7efde" ALIGN="RIGHT"><font STYLE="Verdana, Arial, Helvetica" SIZE="2"><% = FormatCurrency(ARYshoppingcart(cartPrice,i))%></font>
          </td>
          <td BGCOLOR="f7efde" ALIGN="RIGHT"><font STYLE="Verdana, Arial, Helvetica" SIZE="2"><% = FormatCurrency(ARYshoppingcart(cartPrice,i) * ARYshoppingcart(cartItemQuantity,i))%></font>
          </td>
        </tr>
<%
If (ARYshoppingcart(cartPrice,i)) <> "" Then
   iSubTotal = iSubtotal + (ARYshoppingcart(cartPrice,i) * ARYshoppingcart(cartItemQuantity,i))
End If
Next
%>
<!-- BEGIN subtotal -->
        <tr>
          <td COLSPAN="5"></td>
          <td BGCOLOR="f7efde" ALIGN="LEFT"><font STYLE="Verdana, Arial, Helvetica" COLOR="#800000" SIZE="2">Subtotal:</font></td>
          <td BGCOLOR="f7efde" ALIGN="RIGHT"><font STYLE="Verdana, Arial, Helvetica" SIZE="2"><% = FormatCurrency(iSubtotal)%></font></td>
        </tr>
        <tr>
          <td ALIGN="RIGHT" COLSPAN="3"></td>
          <td COLSPAN="4" ALIGN="RIGHT"><% If iCount < MaxShoppingCartItems Then %>
<p><input type="hidden" name="History" value="<%=History%>"><input TYPE="SUBMIT" NAME="Action" VALUE="Shop for More">
<% End If %><% If iCount > 0 Then %>          &nbsp; <input TYPE="SUBMIT" NAME="Action" VALUE="Recalculate"> <% End If %> <input TYPE="SUBMIT" NAME="Action" VALUE="Cancel Order"> <!-- END table inserted into table data cell --></form>

<form method="post" action="https://secure7.softcomca.com/americanhobbyshop_com/products/checkout.asp">
<input type="submit" value="CheckOut" name="Action"></p>
<input type="hidden" name="CartInfo" value="<%=strTemp%>">
<input type="hidden" name="icount" value="<%=icount%>">
</form>

</td>
        

        </tr>
      </table>
      
    
    </td>
<% REM Column Span Value %>
<% HTML_CS = 5 %>
<% HTML_INDENT = FALSE %>
<!--#include virtual="/Disclaim.inc"-->

  </tr>
</table>
</body>
</html>