<body leftmargin="3" topmargin="3" bgcolor"#ffffc4" text = "green">
<div style = "width : 300">
<%
dim ht as Hashtable
if IsNothing (session("cart")) then
ht = new Hashtable ()
session ("cart") = ht
End if
ht = session("cart")
if not (IsNothing(Request.QueryString("pid"))) then
dim pid as string = (Request.QueryString("pid"))
dim pname as string = Request.QueryString("pname")
if not (ht.containsKey(pid)) then
ht.Add(pid,pname)
End if
Else if (ht.Count = 0) then
Response.Write("ไม่มีสินค้าในรถเข็น")
End if
session("cart") = ht
for Each de as DictionaryEntry In ht
Response.Write("<li>" & de.Value)
Next
%>
</div>
</body>
</html>
Load balance : Server 03
