<%
Do Until RSProducts.EOF
%>
<A HREF="./image_router.asp?ProductID=<% Response.Write RSProducts("ProductID") %>">
<IMG ID="Picture147" HEIGHT=130 WIDTH=130 
SRC="../products/<% Response.Write RSProducts("path2icon") %>" 
BORDER=2 ALT="<% Response.Write RSProducts("ProductName") %>"></A>
<P ALIGN=CENTER><A HREF="./image_router.asp?ProductID=
<% Response.Write RSProducts("ProductID") %>">Powiksz rysunek</A>
<P><B><% Response.Write RSProducts("ProductName") %></B> - 
<% Response.Write RSProducts("ShortDescription") %>
<%
If RSProducts("OnClearance") = 1 Then
%> 
  <P><B>Cena</B>: <STRIKE><% Response.Write FormatCurrency(RSProducts("Price"))%>  
  </STRIKE> <FONT COLOR="#FF0000">Przecena 
  <% Response.Write FormatCurrency(RSProducts("ClearancePrice")) %>
  <BR></FONT><A HREF="../html/product.asp?ProductID=
  <% Response.Write RSProducts("ProductID") %>">
  Kliknij, aby wywietli informacje szczegowe lub zamwi</A></TD>
<%
Else
%>
  <P><B>Cena</B>: <% Response.Write FormatCurrency(RSProducts("Price")) %><BR>
  <A HREF="../html/product.asp?ProductID=<% Response.Write RSProducts("ProductID")%>">   
  Kliknij, aby wywietli informacje szczegowe lub zamwi</A></TD>
<%
End If
%>
<%
  RSProducts.MoveNext
Loop
%>
