<%
Sub AddToCart()
				
			Dim strPriceSetId
			strPriceSetId = Request("PriceSetId")
			DIM mySQLPrice, objRSPrice
			
If Request("AddCart") = "Yes" Then

			Const adOpenKeyset = 1
			Const adLockOptimistic = 3
			
			
			Dim strItemNum
			strItemNum = Request("ItemNum")
			
			Dim strCartId
			strCartId = Request("CartId")
									
			Dim strPage
			strPage = Request("Page")
			
			Dim strPageNo
			strPageNo = Request("PageNo")
			
			Dim strQuantity
			strQuantity = Request("Quantity")
			
			If strQuantity = "" Then
			strQuantity = "1"
			Else
			End If
			
			
			
				Dim strPrice
			
				If Request("OnSale") = "Yes" Then
				
					strPrice = Request("SalePrice")
					
				Else
				
					If (strPriceSetId <> "None" And IsNumeric(strPriceSetId)) Then
					
						
						mySQLPrice = "SELECT * FROM PriceSets Where Id = " & strPriceSetId & ""
						Set objRSPrice = Server.CreateObject("ADODB.Recordset")
						objRSPrice.Open mySQLPrice, objConn, 1, 3
						
												
						Dim strQuantity2, strQuantity3, strQuantity4, strQuantity5, strQuantity6, strQuantity7, strQuantity8, _
						strQuantity9, strQuantity10, strQuantity11, strQuantity12
						
						strQuantity2 = objRSPrice("Quantity2")
						If strQuantity2 = "" Then
							strQuantity2 = 0
						End If
						
						strQuantity3 = objRSPrice("Quantity3")
						If strQuantity3 = "" Then
							strQuantity3 = 0
						End If
						
						strQuantity4 = objRSPrice("Quantity4")
						If strQuantity4 = "" Then
							strQuantity4 = 0
						End If
						
						strQuantity5 = objRSPrice("Quantity5")
						If strQuantity5 = "" Then
							strQuantity5 = 0
						End If
						
						strQuantity6 = objRSPrice("Quantity6")
						If strQuantity6 = "" Then
							strQuantity6 = 0
						End If
						
						strQuantity7 = objRSPrice("Quantity7")
						If strQuantity7 = "" Then
							strQuantity7 = 0
						End If
						
						strQuantity8 = objRSPrice("Quantity8")
						If strQuantity8 = "" Then
							strQuantity8 = 0
						End If
						
						strQuantity9 = objRSPrice("Quantity9")
						If strQuantity9 = "" Then
							strQuantity9 = 0
						End If
						
						strQuantity10 = objRSPrice("Quantity10")
						If strQuantity10 = "" Then
							strQuantity10 = 0
						End If
						
						strQuantity11 = objRSPrice("Quantity11")
						If strQuantity11 = "" Then
							strQuantity11 = 0
						End If
						
						strQuantity12 = objRSPrice("Quantity12")
						If strQuantity12 = "" Then
							strQuantity12 = 0
						End If
						
					strPrice = objRSPrice("Price1")
						
					If objRSPrice("Quantity2") <> "" Then
						If Abs(strQuantity) => Abs(strQuantity2) Then
							strPrice = objRSPrice("Price2")
						End If
					End If
					
					If objRSPrice("Quantity3") <> "" Then
						If Abs(strQuantity) => Abs(strQuantity3) Then
							strPrice = objRSPrice("Price3")
						End If
					End If
					
					If objRSPrice("Quantity4") <> "" Then
						If Abs(strQuantity) => Abs(strQuantity4) Then
							strPrice = objRSPrice("Price4")
						End If
					End If
					
					If objRSPrice("Quantity5") <> "" Then
						If Abs(strQuantity) => Abs(strQuantity5) Then
							strPrice = objRSPrice("Price5")
						End If
					End If
					
					If objRSPrice("Quantity6") <> "" Then
						If Abs(strQuantity) => Abs(strQuantity6) Then
							strPrice = objRSPrice("Price6")
						End If
					End If
					
					If objRSPrice("Quantity7") <> "" Then
						If Abs(strQuantity) => Abs(strQuantity7) Then
							strPrice = objRSPrice("Price7")
						End If
					End If
					
					If objRSPrice("Quantity8") <> "" Then
						If Abs(strQuantity) => Abs(strQuantity8) Then
							strPrice = objRSPrice("Price8")
						End If
					End If
					
					If objRSPrice("Quantity9") <> "" Then
						If Abs(strQuantity) => Abs(strQuantity9) Then
							strPrice = objRSPrice("Price9")
						End If
					End If
					
					If objRSPrice("Quantity10") <> "" Then
						If Abs(strQuantity) => Abs(strQuantity10) Then
							strPrice = objRSPrice("Price10")
						End If
					End If
					
					If objRSPrice("Quantity11") <> "" Then
						If Abs(strQuantity) => Abs(strQuantity11) Then
							strPrice = objRSPrice("Price11")
						End If
					End If
					
					If objRSPrice("Quantity12") <> "" Then				
						If Abs(strQuantity) => Abs(strQuantity12) Then
							strPrice = objRSPrice("Price12")
						End If
					End If
					
					
			'Response.Write strPrice
			'Response.End			
						
					
					Else
						strPrice = Request("Price")	
					End If
					
				End If
		
		
' =================See if Option Set 1 has data.===========================
		
		If Request("Set1") <> "" Then
						
				' Rs to get Set1 Id Number from Products table.
				' See which Option Set is being used as Set1.
				
				Dim objRS1, mySQL1
				mySQL1 = "SELECT * FROM Products Where ItemNumber = '"& strItemNum &"'" 
				Set objRS1 = Server.CreateObject("ADODB.Recordset")
				objRS1.Open mySQL1, objConn, 1, 3
				
				' Set Option Set 1 Id Dim Name.
				
				Dim strSet1ListName
				Dim strSet1Calc
				Dim strSet1Amount
								
				Dim strSet1Id
				strSet1Id = objRS1("Opt1")
				
		' ====================Check List Number One to see if it is selected and then 
		' whether or not it as an additional price ===================================
			
			If Request("Set1") = "Op1" Then
					
						Dim objRS11, mySQL11
						mySQL11 = "SELECT * FROM Options Where Id = "& strSet1Id &"" 
						Set objRS11 = Server.CreateObject("ADODB.Recordset")
						objRS11.Open mySQL11, objConn, 1, 3
						
						strSet1ListName = objRS11("Op1")	
							
							If objRs11("Op1Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS11("Op1P"))
							
							ElseIf	objRs11("Op1Op") = "Subtract" Then
					
									strPrice = strPrice - objRS11("Op1P")
							Else
							End If
							
					
										 
' =======================End Checking 1st List Item - START 2 =====================================
		
				ElseIf Request("Set1") = "Op2" Then
							
						Dim objRS12, mySQL12
						mySQL12 = "SELECT * FROM Options Where Id = "& strSet1Id &"" 
						Set objRS12 = Server.CreateObject("ADODB.Recordset")
						objRS12.Open mySQL12, objConn, 1, 3
						
						strSet1ListName = objRS12("Op2")
							
							If objRs12("Op2Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS12("Op2P"))
							
							ElseIf	objRs12("Op2Op") = "Subtract" Then
					
									strPrice = strPrice - objRS12("Op2P")
							Else
							End If			 
					
		
' =======================End Checking 2nd List Item - START 3 =====================================
				
				ElseIf Request("Set1") = "Op3" Then
							
						Dim objRS13, mySQL13
						mySQL13 = "SELECT * FROM Options Where Id = "& strSet1Id &"" 
						Set objRS13 = Server.CreateObject("ADODB.Recordset")
						objRS13.Open mySQL13, objConn, 1, 3
						
						strSet1ListName = objRS13("Op3")
							
							If objRs13("Op3Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS13("Op3P"))
							
							ElseIf	objRs13("Op3Op") = "Subtract" Then
					
									strPrice = strPrice - objRS13("Op3P")
							Else
							End If			 
					
' =======================End Checking 3rd List Item - START 4 =====================================
					
				ElseIf Request("Set1") = "Op4" Then
							
						Dim objRS14, mySQL14
						mySQL14 = "SELECT * FROM Options Where Id = "& strSet1Id &"" 
						Set objRS14 = Server.CreateObject("ADODB.Recordset")
						objRS14.Open mySQL14, objConn, 1, 3
						
						strSet1ListName = objRS14("Op4")
																
													
							If objRs14("Op4Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS14("Op4P"))
							
							ElseIf	objRs14("Op4Op") = "Subtract" Then
					
									strPrice = strPrice - objRS14("Op4P")
							Else
							End If			 
					
' =======================End Checking 4th List Item - START 5 =====================================
				
				ElseIf Request("Set1") = "Op5" Then
							
						Dim objRS15, mySQL15
						mySQL15 = "SELECT * FROM Options Where Id = "& strSet1Id &"" 
						Set objRS15 = Server.CreateObject("ADODB.Recordset")
						objRS15.Open mySQL15, objConn, 1, 3
						
						strSet1ListName = objRS15("Op5")
							
							If objRs15("Op5Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS15("Op5P"))
							
							ElseIf	objRs15("Op5Op") = "Subtract" Then
					
									strPrice = strPrice - objRS15("Op5P")
							Else
							End If			 
					
' =======================End Checking 5th List Item - START 6 =====================================
			
				ElseIf Request("Set1") = "Op6" Then
							
						Dim objRS16, mySQL16
						mySQL16 = "SELECT * FROM Options Where Id = "& strSet1Id &"" 
						Set objRS16 = Server.CreateObject("ADODB.Recordset")
						objRS16.Open mySQL16, objConn, 1, 3
						
						strSet1ListName = objRS16("Op6")
							
							If objRs16("Op6Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS16("Op6P"))
							
							ElseIf	objRs16("Op6Op") = "Subtract" Then
					
									strPrice = strPrice - objRS16("Op6P")
							Else
							End If	
									
' =======================End Checking 6th List Item - START 7 =====================================
				
				ElseIf Request("Set1") = "Op7" Then
							
						Dim objRS17, mySQL17
						mySQL17 = "SELECT * FROM Options Where Id = "& strSet1Id &"" 
						Set objRS17 = Server.CreateObject("ADODB.Recordset")
						objRS17.Open mySQL17, objConn, 1, 3
						
						strSet1ListName = objRS17("Op7")
							
							If objRs17("Op7Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS17("Op7P"))
							
							ElseIf	objRs17("Op7Op") = "Subtract" Then
					
									strPrice = strPrice - objRS17("Op7P")
							Else
							End If		
								 
' =======================End Checking 7th List Item - START 8 =====================================
					
				
				ElseIf Request("Set1") = "Op8" Then
							
						Dim objRS18, mySQL18
						mySQL18 = "SELECT * FROM Options Where Id = "& strSet1Id &"" 
						Set objRS18 = Server.CreateObject("ADODB.Recordset")
						objRS18.Open mySQL18, objConn, 1, 3
						
						strSet1ListName = objRS18("Op8")
							
							If objRs18("Op8Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS18("Op8P"))
							
							ElseIf	objRs18("Op8Op") = "Subtract" Then
					
									strPrice = strPrice - objRS18("Op8P")
							Else
							End If		
								 
' =======================End Checking 8th List Item - START 9 =====================================

					
				
				ElseIf Request("Set1") = "Op9" Then
							
						Dim objRS19, mySQL19
						mySQL19 = "SELECT * FROM Options Where Id = "& strSet1Id &"" 
						Set objRS19 = Server.CreateObject("ADODB.Recordset")
						objRS19.Open mySQL19, objConn, 1, 3
						
						strSet1ListName = objRS19("Op9")
							
							If objRs19("Op9Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS19("Op9P"))
							
							ElseIf	objRs19("Op9Op") = "Subtract" Then
					
									strPrice = strPrice - objRS19("Op9P")
							Else
							End If		
								 
' =======================End Checking 9th List Item - START 10 =====================================
					
				
				ElseIf Request("Set1") = "Op10" Then
							
						Dim objRS110, mySQL110
						mySQL110 = "SELECT * FROM Options Where Id = "& strSet1Id &"" 
						Set objRS110 = Server.CreateObject("ADODB.Recordset")
						objRS110.Open mySQL110, objConn, 1, 3
						
						strSet1ListName = objRS110("Op10")
							
							If objRs110("Op10Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS110("Op10P"))
							
							ElseIf	objRs110("Op10Op") = "Subtract" Then
					
									strPrice = strPrice - objRS110("Op10P")
							Else
							End If		
								 
' =======================End Checking 10th List Item - START 11 =====================================
					
				
				ElseIf Request("Set1") = "Op11" Then
							
						Dim objRS111, mySQL111
						mySQL111 = "SELECT * FROM Options Where Id = "& strSet1Id &"" 
						Set objRS111 = Server.CreateObject("ADODB.Recordset")
						objRS111.Open mySQL111, objConn, 1, 3
						
						strSet1ListName = objRS111("Op11")
							
							If objRs111("Op11Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS111("Op11P"))
							
							ElseIf	objRs111("Op11Op") = "Subtract" Then
					
									strPrice = strPrice - objRS111("Op11P")
							Else
							End If		
								 
' =======================End Checking 11th List Item - START 12 =====================================
					
				
				ElseIf Request("Set1") = "Op12" Then
							
						Dim objRS112, mySQL112
						mySQL112 = "SELECT * FROM Options Where Id = "& strSet1Id &"" 
						Set objRS112 = Server.CreateObject("ADODB.Recordset")
						objRS112.Open mySQL112, objConn, 1, 3
						
						strSet1ListName = objRS112("Op12")
							
							If objRs112("Op12Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS112("Op12P"))
							
							ElseIf	objRs112("Op12Op") = "Subtract" Then
					
									strPrice = strPrice - objRS112("Op12P")
							Else
							End If		
								 
' =======================End Checking 12th List Item ================================================
				
				' End the ElseIfs
				
				Else
				End If
				
		
		' End If Set 1 has data
		
		Else
		End If
		
' =============================End OPTION SET 1 ====================================================

		

' =================See if OPTION SET 2 has data.====================================================
		
		If Request("Set2") <> "" Then
						
				' Rs to get Set2 Id Number from Products table.
				' See which Option Set is being used as Set2.
				
				Dim objRS2, mySQL2
				mySQL2 = "SELECT * FROM Products Where ItemNumber = '"& strItemNum &"'" 
				Set objRS2 = Server.CreateObject("ADODB.Recordset")
				objRS2.Open mySQL2, objConn, 1, 3
				
				' Set Option Set 2 Id Dim Name.
				
				Dim strSet2ListName
								
				Dim strSet2Id
				strSet2Id = objRS2("Opt2")
				
		' ====================Check List Number One to see if it is selected and then 
		' whether or not it as an additional price ===================================
			
			If Request("Set2") = "Op1" Then
					
						Dim objRS21, mySQL21
						mySQL21 = "SELECT * FROM Options Where Id = "& strSet2Id &"" 
						Set objRS21 = Server.CreateObject("ADODB.Recordset")
						objRS21.Open mySQL21, objConn, 1, 3
						
						strSet2ListName = objRS21("Op1")	
							
							If objRs21("Op1Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS21("Op1P"))
							
							ElseIf	objRs21("Op1Op") = "Subtract" Then
					
									strPrice = strPrice - objRS21("Op1P")
							Else
							End If
							
					
										 
' =======================End Checking 2st List Item - START 2 =====================================
		
				ElseIf Request("Set2") = "Op2" Then
							
						Dim objRS22, mySQL22
						mySQL22 = "SELECT * FROM Options Where Id = "& strSet2Id &"" 
						Set objRS22 = Server.CreateObject("ADODB.Recordset")
						objRS22.Open mySQL22, objConn, 1, 3
						
						strSet2ListName = objRS22("Op2")
							
							If objRs22("Op2Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS22("Op2P"))
							
							ElseIf	objRs22("Op2Op") = "Subtract" Then
					
									strPrice = strPrice - objRS22("Op2P")
							Else
							End If			 
					
		
' =======================End Checking 2nd List Item - START 3 =====================================
				
				ElseIf Request("Set2") = "Op3" Then
							
						Dim objRS23, mySQL23
						mySQL23 = "SELECT * FROM Options Where Id = "& strSet2Id &"" 
						Set objRS23 = Server.CreateObject("ADODB.Recordset")
						objRS23.Open mySQL23, objConn, 1, 3
						
						strSet2ListName = objRS23("Op3")
							
							If objRS23("Op3Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS23("Op3P"))
							
							ElseIf	objRS23("Op3Op") = "Subtract" Then
					
									strPrice = strPrice - objRS23("Op3P")
							Else
							End If			 
					
' =======================End Checking 3rd List Item - START 4 =====================================
					
				ElseIf Request("Set2") = "Op4" Then
							
						Dim objRS24, mySQL24
						mySQL24 = "SELECT * FROM Options Where Id = "& strSet2Id &"" 
						Set objRS24 = Server.CreateObject("ADODB.Recordset")
						objRS24.Open mySQL24, objConn, 1, 3
						
						strSet2ListName = objRS24("Op4")
																
													
							If objRS24("Op4Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS24("Op4P"))
							
							ElseIf	objRS24("Op4Op") = "Subtract" Then
					
									strPrice = strPrice - objRS24("Op4P")
							Else
							End If			 
					
' =======================End Checking 4th List Item - START 5 =====================================
				
				ElseIf Request("Set2") = "Op5" Then
							
						Dim objRS25, mySQL25
						mySQL25 = "SELECT * FROM Options Where Id = "& strSet2Id &"" 
						Set objRS25 = Server.CreateObject("ADODB.Recordset")
						objRS25.Open mySQL25, objConn, 1, 3
						
						strSet2ListName = objRS25("Op5")
							
							If objRS25("Op5Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS25("Op5P"))
							
							ElseIf	objRS25("Op5Op") = "Subtract" Then
					
									strPrice = strPrice - objRS25("Op5P")
							Else
							End If			 
					
' =======================End Checking 5th List Item - START 6 =====================================
			
				ElseIf Request("Set2") = "Op6" Then
							
						Dim objRS26, mySQL26
						mySQL26 = "SELECT * FROM Options Where Id = "& strSet2Id &"" 
						Set objRS26 = Server.CreateObject("ADODB.Recordset")
						objRS26.Open mySQL26, objConn, 1, 3
						
						strSet2ListName = objRS26("Op6")
							
							If objRS26("Op6Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS26("Op6P"))
							
							ElseIf	objRS26("Op6Op") = "Subtract" Then
					
									strPrice = strPrice - objRS26("Op6P")
							Else
							End If	
									
' =======================End Checking 6th List Item - START 7 =====================================
				
				ElseIf Request("Set2") = "Op7" Then
							
						Dim objRS27, mySQL27
						mySQL27 = "SELECT * FROM Options Where Id = "& strSet2Id &"" 
						Set objRS27 = Server.CreateObject("ADODB.Recordset")
						objRS27.Open mySQL27, objConn, 1, 3
						
						strSet2ListName = objRS27("Op7")
							
							If objRS27("Op7Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS27("Op7P"))
							
							ElseIf	objRS27("Op7Op") = "Subtract" Then
					
									strPrice = strPrice - objRS27("Op7P")
							Else
							End If		
								 
' =======================End Checking 7th List Item - START 8 =====================================
					
				
				ElseIf Request("Set2") = "Op8" Then
							
						Dim objRS28, mySQL28
						mySQL28 = "SELECT * FROM Options Where Id = "& strSet2Id &"" 
						Set objRS28 = Server.CreateObject("ADODB.Recordset")
						objRS28.Open mySQL28, objConn, 1, 3
						
						strSet2ListName = objRS28("Op8")
							
							If objRS28("Op8Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS28("Op8P"))
							
							ElseIf	objRS28("Op8Op") = "Subtract" Then
					
									strPrice = strPrice - objRS28("Op8P")
							Else
							End If		
								 
' =======================End Checking 8th List Item - START 9 =====================================

					
				
				ElseIf Request("Set2") = "Op9" Then
							
						Dim objRS29, mySQL29
						mySQL29 = "SELECT * FROM Options Where Id = "& strSet2Id &"" 
						Set objRS29 = Server.CreateObject("ADODB.Recordset")
						objRS29.Open mySQL29, objConn, 1, 3
						
						strSet2ListName = objRS29("Op9")
							
							If objRS29("Op9Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS29("Op9P"))
							
							ElseIf	objRS29("Op9Op") = "Subtract" Then
					
									strPrice = strPrice - objRS29("Op9P")
							Else
							End If		
								 
' =======================End Checking 9th List Item - START 10 =====================================
					
				
				ElseIf Request("Set2") = "Op10" Then
							
						Dim objRS210, mySQL210
						mySQL210 = "SELECT * FROM Options Where Id = "& strSet2Id &"" 
						Set objRS210 = Server.CreateObject("ADODB.Recordset")
						objRS210.Open mySQL210, objConn, 1, 3
						
						strSet2ListName = objRS210("Op10")
							
							If objRS210("Op10Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS210("Op10P"))
							
							ElseIf	objRS210("Op10Op") = "Subtract" Then
					
									strPrice = strPrice - objRS210("Op10P")
							Else
							End If		
								 
' =======================End Checking 10th List Item - START 11 =====================================
					
				
				ElseIf Request("Set2") = "Op11" Then
							
						Dim objRS211, mySQL211
						mySQL211 = "SELECT * FROM Options Where Id = "& strSet2Id &"" 
						Set objRS211 = Server.CreateObject("ADODB.Recordset")
						objRS211.Open mySQL211, objConn, 1, 3
						
						strSet2ListName = objRS211("Op11")
							
							If objRS211("Op11Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS211("Op11P"))
							
							ElseIf	objRS211("Op11Op") = "Subtract" Then
					
									strPrice = strPrice - objRS211("Op11P")
							Else
							End If		
								 
' =======================End Checking 11th List Item - START 12 =====================================
					
				
				ElseIf Request("Set2") = "Op12" Then
							
						Dim objRS212, mySQL212
						mySQL212 = "SELECT * FROM Options Where Id = "& strSet2Id &"" 
						Set objRS212 = Server.CreateObject("ADODB.Recordset")
						objRS212.Open mySQL212, objConn, 1, 3
						
						strSet2ListName = objRS212("Op12")
							
							If objRS212("Op12Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS212("Op12P"))
							
							ElseIf	objRS212("Op12Op") = "Subtract" Then
					
									strPrice = strPrice - objRS212("Op12P")
							Else
							End If		
								 
' =======================End Checking 12th List Item ==========================
				
				' End the ElseIfs
				
				Else
				End If
				
		
		' End If Set 2 has data
		
		Else
		End If
		
' =============================End check OPTION SET 2 ==================================================


' ============================Check OPTION SET 3 has data.===========================================
		
		If Request("Set3") <> "" Then
						
				' Rs to get Set3 Id Number from Products table.
				' See which Option Set is being used as Set3.
				
				Dim objRS3, mySQL3
				mySQL3 = "SELECT * FROM Products Where ItemNumber = '"& strItemNum &"'" 
				Set objRS3 = Server.CreateObject("ADODB.Recordset")
				objRS3.Open mySQL3, objConn, 1, 3
				
				' Set Option Set 3 Id Dim Name.
				
				Dim strSet3ListName
								
				Dim strSet3Id
				strSet3Id = objRS3("Opt3")
				
		' ====================Check List Number One to see if it is selected and then 
		' whether or not it as an additional price ===================================
			
			If Request("Set3") = "Op1" Then
					
						Dim objRS31, mySQL31
						mySQL31 = "SELECT * FROM Options Where Id = "& strSet3Id &"" 
						Set objRS31 = Server.CreateObject("ADODB.Recordset")
						objRS31.Open mySQL31, objConn, 1, 3
						
						strSet3ListName = objRS31("Op1")	
							
							If objRS31("Op1Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS31("Op1P"))
							
							ElseIf	objRS31("Op1Op") = "Subtract" Then
					
									strPrice = strPrice - objRS31("Op1P")
							Else
							End If
							
					
										 
' =======================End Checking 2st List Item - START 2 =====================================
		
				ElseIf Request("Set3") = "Op2" Then
							
						Dim objRS32, mySQL32
						mySQL32 = "SELECT * FROM Options Where Id = "& strSet3Id &"" 
						Set objRS32 = Server.CreateObject("ADODB.Recordset")
						objRS32.Open mySQL32, objConn, 1, 3
						
						strSet3ListName = objRS32("Op2")
							
							If objRS32("Op2Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS32("Op2P"))
							
							ElseIf	objRS32("Op2Op") = "Subtract" Then
					
									strPrice = strPrice - objRS32("Op2P")
							Else
							End If			 
					
		
' =======================End Checking 2nd List Item - START 3 =====================================
				
				ElseIf Request("Set3") = "Op3" Then
							
						Dim objRS33, mySQL33
						mySQL33 = "SELECT * FROM Options Where Id = "& strSet3Id &"" 
						Set objRS33 = Server.CreateObject("ADODB.Recordset")
						objRS33.Open mySQL33, objConn, 1, 3
						
						strSet3ListName = objRS33("Op3")
							
							If objRS33("Op3Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS33("Op3P"))
							
							ElseIf	objRS33("Op3Op") = "Subtract" Then
					
									strPrice = strPrice - objRS33("Op3P")
							Else
							End If			 
					
' =======================End Checking 3rd List Item - START 4 =====================================
					
				ElseIf Request("Set3") = "Op4" Then
							
						Dim objRS34, mySQL34
						mySQL34 = "SELECT * FROM Options Where Id = "& strSet3Id &"" 
						Set objRS34 = Server.CreateObject("ADODB.Recordset")
						objRS34.Open mySQL34, objConn, 1, 3
						
						strSet3ListName = objRS34("Op4")
																
													
							If objRS34("Op4Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS34("Op4P"))
							
							ElseIf	objRS34("Op4Op") = "Subtract" Then
					
									strPrice = strPrice - objRS34("Op4P")
							Else
							End If			 
					
' =======================End Checking 4th List Item - START 5 =====================================
				
				ElseIf Request("Set3") = "Op5" Then
							
						Dim objRS35, mySQL35
						mySQL35 = "SELECT * FROM Options Where Id = "& strSet3Id &"" 
						Set objRS35 = Server.CreateObject("ADODB.Recordset")
						objRS35.Open mySQL35, objConn, 1, 3
						
						strSet3ListName = objRS35("Op5")
							
							If objRS35("Op5Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS35("Op5P"))
							
							ElseIf	objRS35("Op5Op") = "Subtract" Then
					
									strPrice = strPrice - objRS35("Op5P")
							Else
							End If			 
					
' =======================End Checking 5th List Item - START 6 =====================================
			
				ElseIf Request("Set3") = "Op6" Then
							
						Dim objRS36, mySQL36
						mySQL36 = "SELECT * FROM Options Where Id = "& strSet3Id &"" 
						Set objRS36 = Server.CreateObject("ADODB.Recordset")
						objRS36.Open mySQL36, objConn, 1, 3
						
						strSet3ListName = objRS36("Op6")
							
							If objRS36("Op6Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS36("Op6P"))

													
							ElseIf	objRS36("Op6Op") = "Subtract" Then
					
									strPrice = strPrice - objRS36("Op6P")

								
							Else
							End If	
									
' =======================End Checking 6th List Item - START 7 =====================================
				
				ElseIf Request("Set3") = "Op7" Then
							
						Dim objRS37, mySQL37
						mySQL37 = "SELECT * FROM Options Where Id = "& strSet3Id &"" 
						Set objRS37 = Server.CreateObject("ADODB.Recordset")
						objRS37.Open mySQL37, objConn, 1, 3
						
						strSet3ListName = objRS37("Op7")
							
							If objRS37("Op7Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS37("Op7P"))
								
							
							ElseIf	objRS37("Op7Op") = "Subtract" Then
					
									strPrice = strPrice - objRS37("Op7P")
							Else
							End If		
								 
' =======================End Checking 7th List Item - START 8 =====================================
					
				
				ElseIf Request("Set3") = "Op8" Then
							
						Dim objRS38, mySQL38
						mySQL38 = "SELECT * FROM Options Where Id = "& strSet3Id &"" 
						Set objRS38 = Server.CreateObject("ADODB.Recordset")
						objRS38.Open mySQL38, objConn, 1, 3
						
						strSet3ListName = objRS38("Op8")
							
							If objRS38("Op8Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS38("Op8P"))
							
							ElseIf	objRS38("Op8Op") = "Subtract" Then
					
									strPrice = strPrice - objRS38("Op8P")
							Else
							End If		
								 
' =======================End Checking 8th List Item - START 9 =====================================

					
				
				ElseIf Request("Set3") = "Op9" Then
							
						Dim objRS39, mySQL39
						mySQL39 = "SELECT * FROM Options Where Id = "& strSet3Id &"" 
						Set objRS39 = Server.CreateObject("ADODB.Recordset")
						objRS39.Open mySQL39, objConn, 1, 3
						
						strSet3ListName = objRS39("Op9")
							
							If objRS39("Op9Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS39("Op9P"))
							
							ElseIf	objRS39("Op9Op") = "Subtract" Then
					
									strPrice = strPrice - objRS39("Op9P")
							Else
							End If		
								 
' =======================End Checking 9th List Item - START 10 =====================================
					
				
				ElseIf Request("Set3") = "Op10" Then
							
						Dim objRS310, mySQL310
						mySQL310 = "SELECT * FROM Options Where Id = "& strSet3Id &"" 
						Set objRS310 = Server.CreateObject("ADODB.Recordset")
						objRS310.Open mySQL310, objConn, 1, 3
						
						strSet3ListName = objRS310("Op10")
							
							If objRS310("Op10Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS310("Op10P"))
							
							ElseIf	objRS310("Op10Op") = "Subtract" Then
					
									strPrice = strPrice - objRS310("Op10P")
							Else
							End If		
								 
' =======================End Checking 10th List Item - START 11 =====================================
					
				
				ElseIf Request("Set3") = "Op11" Then
							
						Dim objRS311, mySQL311
						mySQL311 = "SELECT * FROM Options Where Id = "& strSet3Id &"" 
						Set objRS311 = Server.CreateObject("ADODB.Recordset")
						objRS311.Open mySQL311, objConn, 1, 3
						
						strSet3ListName = objRS311("Op11")
							
							If objRS311("Op11Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS311("Op11P"))
							
							ElseIf	objRS311("Op11Op") = "Subtract" Then
					
									strPrice = strPrice - objRS311("Op11P")
							Else
							End If		
								 
' =======================End Checking 11th List Item - START 12 =====================================
					
				
				ElseIf Request("Set3") = "Op12" Then
							
						Dim objRS312, mySQL312
						mySQL312 = "SELECT * FROM Options Where Id = "& strSet3Id &"" 
						Set objRS312 = Server.CreateObject("ADODB.Recordset")
						objRS312.Open mySQL312, objConn, 1, 3
						
						strSet3ListName = objRS312("Op12")
							
							If objRS312("Op12Op") = "Add" Then
							
								strPrice = Abs(strPrice) + Abs(objRS312("Op12P"))
							
							ElseIf	objRS312("Op12Op") = "Subtract" Then
					
									strPrice = strPrice - objRS312("Op12P")
							Else
							End If		
								 
' =======================End Checking 12th List Item =================================================
				
				' End the ElseIfs
				
				Else
				End If
				
		
		' End If Set 1 has data
		
		Else
		End If
		
' =============================End check OPTION SET 3 =============================================
			
			If strSet1ListName = "" Then
			strSet1ListName = "0"
			End If
			If strSet2ListName = "" Then
			strSet2ListName = "0"
			End If
			If strSet3ListName = "" Then
			strSet3ListName = "0"
			End If

		
			DIM myCheck, objRSCheck
			Set objRSCheck = Server.CreateObject("ADODB.Recordset")
			myCheck = "SELECT * FROM Cart Where CartId = '"& strCartId &"' And ItemNum = '"& strItemNum &"' And Opt1 = '"& strSet1ListName &"' And Opt2 = '"& strSet2ListName &"' And Opt3 = '"& strSet3ListName &"'"
			objRSCheck.Open myCheck, objConn
										
			
			
			If strPrice = "" Then
			strPrice = "0.00"
			Else
			End If
			
			If inStr(strPrice, Chr(044)) Then
				strPrice = Replace(strPrice,Chr(044), "")
			End If

		
			Dim strItemTotal
			strItemTotal = strPrice * strQuantity
						
			
			Dim strHandling
			strHandling = Request("Handling")
			
			Dim strBaseShipping
			strBaseShipping = Request("Shipping")
			
			Dim strTotalShipping
			strTotalShipping = Request("Shipping") * strQuantity
			
			Dim strFlatRate
			strFlatRate = strTotalShipping + strHandling
			
			Dim strBaseWeight
			strBaseWeight = Request("Weight")
			
			Dim strTotalWeight
			strTotalWeight = Request("Weight") * strQuantity
			
			
	If objRSCheck.EOF Then
		
			

			DIM objRS
			Set objRS = Server.CreateObject("ADODB.Recordset")
			objRS.Open "Cart", objConn, 1, 3
			
			objRS.AddNew
			objRS("CartID") = Request("CartID")
			objRS("ItemNum") = Request("ItemNum")
			objRS("Description") = Request("Description")
			objRS("Download") = Request("Download")
			objRS("FileName") = Request("FileName")
			objRS("Taxable") = Request("Taxable")
			objRS("Opt1") = strSet1ListName 
			objRS("Opt2") = strSet2ListName
			objRS("Opt3") = strSet3ListName
			objRS("Quantity") = Request("Quantity")
			objRS("OnSale") = Request("OnSale")
			objRS("Price") = strPrice
			objRS("PriceSetId") = strPriceSetId
			objRS("ItemTotal") = strItemTotal
			objRS("Handling") = strHandling
			objRS("BaseShipping") = strBaseShipping
			objRS("TotalShipping") = strTotalShipping
			objRS("FlatRate") = strFlatRate
			objRS("BaseWeight") = strBaseWeight
			objRS("TotalWeight") = strTotalWeight
			objRS("Notes") = Request("Notes")
			objRS.Update
			
			
	

	Else
				Dim strUnique
				strUnique = objRSCheck("ListNum")
				
				strQuantity = Request("Quantity")
				
				Dim strNewPrice
							
				Dim strExistingQuantity
				strExistingQuantity = objRSCheck("Quantity")
				
				Dim strNewQuantity
				strNewQuantity = Abs(strExistingQuantity) + strQuantity
				
				Dim strExistingPrice
				strExistingPrice = objRSCheck("Price")
				strNewPrice = strExistingPrice
				
				Dim strNewItemTotal
				strNewItemTotal = strNewQuantity * strExistingPrice
				
				Dim strNewWeight
				strNewWeight = Request("Weight") * strNewQuantity
				
				Dim strNewTotalShipping
				strNewTotalShipping = strNewQuantity * strBaseShipping
				
				Dim strNewFlatRate
				strNewFlatRate = strNewTotalShipping + strHandling
				
				
			If Request("OnSale") = "Yes" Then
				
					strPrice = Request("SalePrice")
			Else
	
				If (strPriceSetId <> "None" And IsNumeric(strPriceSetId)) Then
				
					mySQLPrice = "SELECT * FROM PriceSets Where Id = " & strPriceSetId & ""
					Set objRSPrice = Server.CreateObject("ADODB.Recordset")
					objRSPrice.Open mySQLPrice, objConn, 1, 3
				
				strQuantity = strNewQuantity
				strPrice = objRSPrice("Price1")
						
					If objRSPrice("Quantity2") <> "" Then
						If Abs(strNewQuantity) => Abs(strQuantity2) Then
							strPrice = objRSPrice("Price2")
						End If
					End If
					
					If objRSPrice("Quantity3") <> "" Then
						If Abs(strQuantity) => Abs(strQuantity3) Then
							strPrice = objRSPrice("Price3")
						End If
					End If
					
					If objRSPrice("Quantity4") <> "" Then
						If Abs(strQuantity) => Abs(strQuantity4) Then
							strPrice = objRSPrice("Price4")
						End If
					End If
					
					If objRSPrice("Quantity5") <> "" Then
						If Abs(strQuantity) => Abs(strQuantity5) Then
							strPrice = objRSPrice("Price5")
						End If
					End If
					
					If objRSPrice("Quantity6") <> "" Then
						If Abs(strQuantity) => Abs(strQuantity6) Then
							strPrice = objRSPrice("Price6")
						End If
					End If
					
					If objRSPrice("Quantity7") <> "" Then
						If Abs(strQuantity) => Abs(strQuantity7) Then
							strPrice = objRSPrice("Price7")
						End If
					End If
					
					If objRSPrice("Quantity8") <> "" Then
						If Abs(strQuantity) => Abs(strQuantity8) Then
							strPrice = objRSPrice("Price8")
						End If
					End If
					
					If objRSPrice("Quantity9") <> "" Then
						If Abs(strQuantity) => Abs(strQuantity9) Then
							strPrice = objRSPrice("Price9")
						End If
					End If
					
					If objRSPrice("Quantity10") <> "" Then
						If Abs(strQuantity) => Abs(strQuantity10) Then
							strPrice = objRSPrice("Price10")
						End If
					End If
					
					If objRSPrice("Quantity11") <> "" Then
						If Abs(strQuantity) => Abs(strQuantity11) Then
							strPrice = objRSPrice("Price11")
						End If
					End If
					
					If objRSPrice("Quantity12") <> "" Then				
						If Abs(strQuantity) => Abs(strQuantity12) Then
							strPrice = objRSPrice("Price12")
						End If
					End If
					
					strNewPrice = strPrice
					strNewItemTotal = strPrice * strQuantity
					
					'Response.Write strPrice
					'Response.End			
						
					
				End If
			End If
								
				
								
				objConn.Execute "Update Cart Set Quantity = "& strNewQuantity &", Price = "& strNewPrice &", ItemTotal = "& strNewItemTotal &", TotalShipping = "& strNewTotalShipping &", FlatRate = "& strNewFlatRate &", TotalWeight = "& strNewWeight &" Where ListNum = "& strUnique &""
								
				
	End If
		
			
			
			Response.Redirect "cart_view.asp?Page=" & strPage & "&CatVals=" & strCatVals & "&PageNo=" & strPageNo & "&ItemNum=" & strItemNum

				
Else
End If		
End Sub		
%>