<!--METADATA TYPE="TypeLib" NAME="Microsoft ActiveX DataObjects 2.6 Library" UUID="{00000206-0000-0010-8000-00AA006D2EA4}" VERSION="2.6"-->

<SCRIPT LANGUAGE=VBScript RUNAT=Server> 

Sub Application_OnStart
    
End Sub

Sub Application_OnEnd
 
End Sub

Sub Session_OnStart
	
	
	
	
	
	'-------------------------------------------------------------------------
	
	'Define variables that will later be used as session variables
	
	  dim cart()  							'------- a two-dimensional array to hold the shopping cart
	  dim order() 							'------- a one-dimensional array to hold client order/shipping details
	  dim cat_levels						'------- Constant - number of levels in the catalogue
	  session("cat_levels") = 2				'------- Set this number manually for this site
	
	  
	'-------------------------------------------------------------------------
	
	'Create an empty two-dimensional shopping cart session array with one row and six columns (see shoppingcarttable.asp).
	
	'Column 1 (cart(0,0)) = product code
	'Column 2 (cart(1,0)) = product heading
	'Column 3 (cart(2,0)) = category
	'Column 4 (cart(3,0)) = price
	'Column 5 (cart(4,0)) = qty (row total will be calculated on the display page)
	'Column 6 (cart(5,0)) = product ID


  redim cart(5,0)
  cart(0,0) = ""
  session("cart") = cart  

'-------------------------------------------------------------------------

'Create an empty Order/Shipping form details one-dimensional session array to store Order/Shipping client details
'on a temporary (session) basis. The array ordinals will correspond to the form elements array ordinals (see ordertable.asp).

'Item 0 (order(0))  = order number
'Item 1 			= contact name, orders
'Item 2				= contact name, shipping
'Item 3				= company name, orders
'Item 4				= company name, shipping
'Item 5				= tel number, orders
'Item 6				= tel number, shipping
'Item 7				= cell number, orders
'Item 8				= cell number, shipping
'Item 9				= fax number, orders
'Item 10			= fax number, shipping
'Item 11			= email address, orders
'Item 12			= email address, shipping
'Item 13			= address1, orders
'Item 14			= address1, shipping
'Item 15			= address2, orders
'Item 16			= address2, shipping
'Item 17			= address3, orders
'Item 18			= address3, shipping
'Item 19 			= city, orders
'Item 20			= city, shipping
'Item 21			= postcode, orders
'Item 22			= postcode, shipping

  redim order(22)
  session("order") = order

'-------------------------------------------------------------------------

 



 


End Sub
 
Sub Session_OnEnd
 
End Sub

</SCRIPT> 