<%
Do Until RSProducts.EOF
%>        
<P ALIGN=LEFT>Nazwa: <% Response.Write RSProducts("ProductName") %>
<BR>Ilo: <% Response.Write RSProducts("Quantity") %>
<BR>Cena: <% Response.Write FormatCurrency(RSProducts("ItemPrice")) %>
<P>Wybrane opcje (o ile istniej): <BR><% Response.Write RSProducts("SelectText") %>
<P><A HREF="./shopping_cart.asp?Action=Remove&SessionItemID=
<% Response.Write RSProducts("SessionItemID") %>" >
Wyjmij z koszyka</A>
<%
  RSProducts.MoveNext
Loop
%>
