<% Option Explicit %>
<% dim user, postcode, cartarray, cartMaxUsed, strCart
dim rs, mySql, conn, connstr, cat, i, qnty, pid, tmpPID
session("sessionID") = session.SessionID
on error resume next
cat = request.querystring("cat")
select case cat
case "1":cat = "body"
case "2":cat = "face"
case "3":cat = "synergies"
case "4":cat = "baby and mother"
case "5":cat = "healing products"
case else: if len(cat)=0 then
cat="body"
else cat=cat
end if
end select
mysql = "select * from qryCats where catID = '" & cat & "' order by PID"
set rs = conn.execute(mysql)
'*****check what items are in cart
cartarray=session("cartArray")
cartMaxUsed=session("cartMaxUsed")
if isempty(cartArray) = false then
for i = 0 to cartMaxUsed
if cartArray(0,i) <> "" then
'shopper = shopper + cInt(cartArray(1,i))
strCart=strCart & "*"& Cstr(cartArray(0,i))&"$" & cStr(cartArray(1,i))
end if
next
strCart = strCart & "*"
else 'shopper = 0
end if
'response.write strCart
'*****end cart check
%>
BodyScents Skin Chart
