<% If Request("Category") <> "" Then vCategory = Request("Category") Else vCategory = "Prints" End If sql = "SELECT * FROM Inventory WHERE Category='" & vCategory & "' Order By ID" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.CursorLocation=3 Rs.Open sql, Conn, 3, 3 If Request("Page") <> "" Then vPage = Request("Page") * 1 Else vPage = 1 End If vItemsPerPage = 6 vCount = 0 vNextPage = 1 %>

Send PayPal payments to uscav@comcast.net

 P & L Enterprises Official PayPal Seal

(Click our logo above to return to our home page)
(386) 986-2080 or (800) 430-4452
To search the database by keywords, click here.
<% If Rs.Recordcount > 0 Then vStart = ((vPage-1)*vItemsPerPage) %>
<% If vPage > 1 AND vItemsPerPage = 6 Then %> <% Else %> <% End If %> <% If Rs.RecordCount > (vItemsPerPage * vPage) AND vItemsPerPage = 6 Then %> <% Else %> <% End If %>
<% End If %>

Confirmation of Your Order Will be Sent to Your Mail Box

Number of Items in Cart: <% If Session("Cart") <> "" Then Response.write Session("Cart") Else Response.write "0" End If %>  
You are Currently Browsing <% sql = "SELECT DISTINCT Category FROM Inventory Order By Category" Set CatRs = Server.CreateObject("ADODB.Recordset") CatRs.CursorLocation=3 CatRs.Open sql, Conn, 3, 3 %> <% CatRs.Close Set CatRs = Nothing %> «-Click Here To Choose A New Category
You are currently viewing records <%=vStart+1 & " - " %> <% If vStart+vItemsPerPage > Rs.RecordCount Then response.write Rs.RecordCount Else response.write vStart+vItemsPerPage End If %> out of <%=Rs.RecordCount %>
<% i = 0 Rs.movefirst Rs.move(vStart) Do Until Rs.EOF %> <% Rs.MoveNext i = i+1 If i=vItemsPerPage Then exit Do End If Loop %>
<% If Rs("ShowGraphic") = "YES" AND Rs("Graphic") <> "" Then %> "> " ALT="<%=Rs("Graphic")%>" Border="1" align="Left"> <% Else %> No Picture Available <% End If %>
<%=Rs("description")%>
Product No: <%=Rs("Id")%>
Price: <%=FormatCurrency(rs("price"))%>
">
<% vCount=0 vNextPage=1 If Rs.Recordcount<>0 Then %>
<% If vPage > 1 AND vItemsPerPage = 6 Then %> <% Else %> <% End If %> <% If Rs.RecordCount > (vItemsPerPage * vPage) AND vItemsPerPage = 6 Then %> <% Else %> <% End If %>
<% End If %>
P & L Enterprise
 (386) 986-2080 or (800) 430-4452
P.O. Box 351323
Palm Coast, FL 32135-1323
Email: uscav@maxxconnect.net