<%
set conn = server.createobject ("adodb.connection")
conn.open "Ecommerce", "sa", "twojehaslo"
set RSOrderItems = conn.Execute("select ItemID, " _
  & "ItemName, ItemType, Quantity, TotalPrice, " _
  & "DetailText from WIOrderItems where " _
  & SessionID = " & Session("SessionID"))
Do Until RSOrderItems.EOF
%>
  <P>Item Name: <% Response.Write RSOrderItems("ItemType") %>
<% Response.Write RSOrderItems("ItemName") %>
  <BR>Quantity: <% Response.Write RSOrderItems("Quantity") %>
  <BR>Price: <% Response.Write RSOrderItems("TotalPrice") %>
<%
  RSOrderItems.MoveNext
Loop
%>
