<%
	'How many records per page do we want to show?
	Const iRecordsPerPage = 10

	Dim currentPage	 'what page are we on??
	Dim bolLastPage	 'are we on the last page?
	
	if len(Request.QueryString("page")) = 0 then
		currentPage = 1
	else
		currentPage = CInt(Request.QueryString("page"))
	end if

	'Show the paged results
	strSQL = "sp_PagedItems " & currentPage & "," & iRecordsPerPage
	objRS.Open strSQL, my_Conn
	
	'See if we're on the last page
	if Not objRS.EOF then
		if CInt(objRS("MoreRecords")) > 0 then
			bolLastPage = False
		else
			bolLastPage = True
		end if
	end if
%>
<P>

<TABLE BORDER=0 CELLSPACING=1 CELLPADDING=4 ALIGN=CENTER>
<TR><TH COLSPAN=2 BGCOLOR=NAVY>
	<FONT SIZE=+1 COLOR=WHITE>
		List of Items
	</FONT>
</TH></TR>
<%
	Do While Not objRS.EOF %>
		<TR><TD ALIGN=LEFT BGCOLOR=GRAY>
			<%=objRS("Name")%>
		</TD><TD ALIGN=CENTER BGCOLOR=GRAY>
			<%=FormatCurrency(objRS("Price"))%>
		</TD></TR>
<%		objRS.MoveNext
	Loop %>
</TABLE>
<P>
<CENTER>
<%
'Only show the previous button if we are NOT on the first page
if currentPage > 1 then %>
  <INPUT TYPE=BUTTON VALUE="<< Previous <%=iMaxRecords%> Records"
  ONCLICK="document.location.href='thispage.asp?page=<%=currentPage-1%>'">
       
<% end if 

'Only show the next button if we are NOT on the last page
if Not bolLastPage then %>
  <INPUT TYPE=BUTTON VALUE="Next <%=iMaxRecords%> Records >>"
  ONCLICK="document.location.href='thispage.asp?page=<%=currentPage+1%>'">
<% end if %>
</CENTER>