<% If IsObject(Session("cart")) Then Set dictCart = Session("cart") For Each Key in dictCart i=i+1 next if i=0 then Response.Redirect "noCart.htm" end if else Response.Redirect "noCart.htm" 'Response.Write "No Shopping cart available" End If %> Order Page 30day Look Cart View Cart

Ordering

We love orders

Online Order!Visamc

To select a product Click here Use our convienent online ordering Click here

PhonePhone, Email & Fax Orders Welcome!

Phone: (303) 457-1616
Fax: ((303) 457-1616

Use Dialpad and call us for FREE!
To Fax or email us an order, click here for handy mail/fax in form
<% dim item dim itemId dim sTotal dim i item="" itemID="" itemAmt="" i=0 sTotal = 0 For Each Key in dictCart aParameters = GetItemParameters(Key) item = item & aParameters(1) & " $:" & dictCart(Key) itemId = itemId & Key if i>0 then item= item & "," itemId= itemId & "," end if i=i+1 %> <%= Key %> <%= aParameters(1) %> <%= dictCart(Key) %> $<%= aParameters(3) %> $<%= FormatNumber(dictCart(Key) * CSng(aParameters(3)),2) %> <% sTotal = sTotal + (dictCart(Key) * CSng(aParameters(3))) Next %> Total:$<%= FormatNumber(sTotal,2) %> <% 'response.write Session("cart") %>