if ac = "AddCat" then ''//stratProID = isint(trim(request.QueryString("intProID")))ProNum = 1MyCatArrID = Trim(request.Cookies(SiteComName)("CatID"))MyCatArrNum = trim(request.Cookies(SiteComName)("CatNum"))if MyCatArrID ="" then NewstrProID = ProID NewstrProNum = ProNumelse if InStr( MyCatArrID, ProID)>0 then ArrProId = Split(MyCatArrID,",") ArrProNum = Split(MyCatArrNum,",") NewstrProID = "" NewstrProNum = "" for ii = 0 to Ubound(ArrProId) TemstrProID = ArrProID(ii) TemstrProNum = ArrProNum(ii) if trim(ArrProId(ii))= trim(ProID) then TemstrProNum = ArrProNum(ii)+1 end if if NewstrProID = "" then NewstrProID = TemstrProID NewstrProNum = TemstrProNum else NewstrProID = NewstrProID&","&TemstrProID NewstrProNum = NewstrProNum&","&TemstrProNum end if next else NewstrProID = MyCatArrID&","&ProID NewstrProNum = MyCatArrNum&","&ProNum end ifend ifresponse.Cookies(SiteComName)("CatID")= NewstrProIDresponse.Cookies(SiteComName)("CatNum")= NewstrProNumresponse.redirect("MyBasket.asp")end if ''//end