<%@ LANGUAGE="VBSCRIPT" %> <!--#include file="conn.asp" --> <% Id=Session("LoginSuccess") ProductList = Session("ProductList") Products = Split(Request("cpbm"), ", ") For I=0 To UBound(Products) PutToShopBag Products(I), ProductList Next Session("ProductList") = ProductList ProductList = Session("ProductList") If Len(ProductList) =0 Then Response.Redirect "Nothing.asp" response.end end if