<% Set rsProdukter = conn.Execute("SELECT * FROM produkter ORDER BY id DESC") If Not rsProdukter.EOF Then rsProdukter.MoveFirst if not request.Querystring("additem") = "" then addItem = cLng(request.Querystring("additem")) set rsKundvagn = conn.Execute("SELECT COUNT(*) AS antal FROM ordrar WHERE kundvagn = "& session("kundvagn") &" AND produkt = "& additem) rsKundvagn.movefirst if rsKundvagn("antal") > 0 then redanBestallt = true else conn.Execute("INSERT INTO ordrar (produkt, kundvagn) VALUES ("& additem &", "& session("kundvagn") &")") redanBestallt = false end If else addItem = -1 end If set rsKundvagn = conn.Execute("SELECT COUNT(*) AS antal FROM ordrar WHERE kundvagn = "& session("kundvagn")) rsKundvagn.movefirst iKundvagn = rsKundvagn("antal") %> Kitty Litter Records
<% Do While Not rsProdukter.EOF %> <%rsProdukter.MoveNext : Loop %>

You'll find more ordering information at the end of this page.
<%if addItem > -1 AND redanBestallt = false then%>You have placed an item in your shopping cart.
<%end if%><%if addItem > -1 AND redanBestallt = true then%>You have this item in your cart already!
<%end if%>You have <%=iKundvagn%> items in your cart
Show shopping cart
.jpg" width=110 height=110 border=1 hspace=0 vspace=0> <%=rsProdukter("artist")%>
<%=rsProdukter("namn")%>
<%=rsProdukter("produktnr")%>
<%=FormatNumber(rsProdukter("prisSEK"), 2)%> kr | € <%=FormatNumber(rsProdukter("prisEUR"), 2)%> | $ <%=FormatNumber(rsProdukter("prisUSD"), 2)%>   ">

<%=rsProdukter("beskrivning")%>
Show shopping cart


Short ordering info
Prices are without postage fees which will be added later in the form. We accept two methods of payment; Bankgiro (Swedish customers only) and Paypal. Exact details will be given when you've placed you order.

Your records will be handled over to the Swedish postal service within 24hrs when we've received your payment.

Please send an email to info@kittylitterrecords.se if something is unclear.




info@kittylitterrecords.se | +46(0)8-437 467 21
Copyright © 2004 Kitty Litter Records. All Rights Reserved. <%conn.close : Set conn = Nothing%>