<%@page language="vb"%>
<script language="vb" runat="server">
 sub page_load(source as object, e as system.eventargs)
  if not ispostback then 
 
   mydropdownlist.items.add("product_a") 
 
   mydropdownlist.items.add("product_b") 
 
   mydropdownlist.items.add("product_c") 
 
   mydropdownlist.items.add("product_d") 
 
   mydropdownlist.items.add("product_e") 
 
   addbutton.text = "Add Basket" 
 
   emptybutton.text = "Empty Basket" 
 
 
   '''''''''here`s the problem start'''''''''''
 
 
 
   dim str_session as string = session("Basket")
 
   dim str_array as array = split(str_session,":")
 
   dim i as integer
    dim for_end_count = ubound(str_array)
 
   if str_session <> "" then
    for i=0 to for_end_count
     str_session_list.items.add(str_array(i))
 
 
    next
 
 
 
 
   end if
 
 
 
  end if 
 
 end sub 
 
 
 
 sub AddBasket(sender as object, e as system.eventargs) 
 
  session("Basket") += mydropdownlist.selecteditem.text & ":" 
 
 end sub 
 
 
 
 sub EmptyBasket(sender as object, e as system.eventargs) 
 
  session("Basket") = "" 
 end sub 
</script>

 
 
 
 [body]
  [form id="myform" runat="server" method="post"]
 
 
 
   [asp:DropDownList ID="mydropdownlist" Runat="server"][/asp:dropdownlist]
    [br]
   [asp:button id="addbutton" runat="server" onclick="AddBasket"][/asp:button]
    [br]
 
 
 
 
   [asp:butotn id="emptybutton" runat="server" onclick="EmptyBasket"][/asp:button]
    [br]
 
 
   MyBasket_ProductList : 
    [asp:dropdownlist id="str_session_list" runat="server"][/asp:dropdownlist]
  [/form]
 
 
 
 
 
 
 
 
 
 
 [/body]