<%@ LANGUAGE = "VBScript" %> <% 'Check if cart is empty If IsArray(Session("frm")) = false Then Dim cart(19,2) Session("frm") = cart else cart=session("frm") end if cempty=true for i=lbound(cart) to ubound(cart) if cart(i,0)<>"" and cart(i,1)<>"" then cempty=false end if next %> Fundraising Magic!
Fundraising Magic!

Homepage
Testimonials
Show Information
Fundraising Info
Our Products
Contact Us


Click Here if you're a magician or other entertainer!










  
 
Our Products
<% 'add to shopping bag 'create cart If cempty Then %>

Your cart is empty!


<% else %>

contents of shopping cart
· Change your order by clicking on the item name below.
· Delete an item by clicking the "delete item" button to the left of it.


Welcome to our online Fundraising Magic store!

<% 'Display contents of shopping cart cart=session("frm") subtotal=0 for i=lbound(cart) to ubound(cart) if cart(i,0)<>"" and cart(i,1)<>"" then set rscart=db.execute("select title,prodid,price from prod where prodid=" & cart(i,0)) currentprice=rscart("price") %> <% subtotal=subtotal+(currentprice * cart(i,1)) end if next %>
Delete  Item  Quantity  Price Each  Total 
delete "><%= rscart("title") %>
 <%= cart(i,1) %> $<%= formatnumber(currentprice)%> $<%= formatnumber(currentprice * cart(i,1)) %>
Subtotal: $<%=formatnumber(subtotal)%>

Clear Cart Check Out <% end if %>


Homepage - Testimonials - Show Information - Fundraising Info
Our Products - Contact Us - Entertainers Only






<% db.close %>