>
<%
if request("add") = "TRUE" then
Session("numofproducts") = Session("numofproducts") + 1
prodFld = split(Request("ProdOnPage"),"|")
inUniqueProduct = prodFld(0)
'QueryLine = "ProdID='"&inUniqueProduct & "'"
'Call Fnd(storeMDB," ","productTBL",QueryLine,"find_unique_prod","")
if prodFld(1) <> "null" and prodFld(1) <> "undefined" then inType = prodFld(1) End If
if prodFld(2) <> "null" and prodFld(2) <> "undefined" then inSize = prodFld(2) End If
if prodFld(3) <> "null" and prodFld(3) <> "undefined" then inColor = prodFld(3) End If
if prodFld(4) <> "null" and prodFld(4) <> "undefined" then inOptOne = prodFld(4) End If
if prodFld(5) <> "null" and prodFld(5) <> "undefined" then inOptTwo = prodFld(5) End If
if prodFld(6) <> "null" and prodFld(6) <> "undefined" then inOptThree = prodFld(6) End If
if prodFld(7) <> "null" and prodFld(7) <> "undefined" then inOptFour = prodFld(7) End If
if prodFld(8) <> "null" and prodFld(8) <> "undefined" then inImage = prodFld(8) End If
inTotShipping = prodFld(9)
inShipping = prodFld(10)
inTotalCost = prodFld(11)
inPrice = prodFld(12)
inQuant = prodFld(13)
if prodFld(14) <> "null" and prodFld(14) <> "undefined" then inOptOneName = prodFld(14) End If
if prodFld(15) <> "null" and prodFld(15) <> "undefined" then inOptTwoName = prodFld(15) End If
if prodFld(16) <> "null" and prodFld(16) <> "undefined" then inOptThreeName = prodFld(16) End If
if prodFld(17) <> "null" and prodFld(17) <> "undefined" then inOptFourName = prodFld(17) End If
if prodFld(18) <> "null" and prodFld(18) <> "undefined" then inWeight = prodFld(18) End If
if prodFld(19) <> "null" and prodFld(19) <> "undefined" then inDimentions = prodFld(19) End If
Session("Product" & Session("numofproducts")) = Session("numofproducts") & "|" &_
inUniqueProduct & "|" & inType & "|" & inSize & "|" & inColor & "|" & inOptOne & "|" &_
inOptTwo & "|" & inOptThree & "|" & inOptFour & "|" & inImage & "|" & inTotShipping & "|" &_
inShipping & "|" & inTotalCost & "|" & inPrice & "|" & inQuant & "|" & inOptOneName & "|" &_
inOptTwoName & "|" & inOptThreeName & "|" & inOptFourName & "|" & inWeight & "|" & inDimentions
end if
%>
