<% 'The following three lines of code are used to ensure that this page is not cached on the client. Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires = -1 if session("UID")="" then Response.Redirect "Default.asp" Response.End end if %> <% set data = server.createobject("ADODB.RecordSet") data.activeconnection = strDB data.source = "SELECT * FROM transactions ORDER BY id desc" data.PageSize = 10 data.CacheSize = 5 data.CursorLocation = 3 data.open If Len(Request("pagenum")) = 0 Then data.AbsolutePage = 1 Else If CInt(Request("pagenum")) <= data.PageCount Then data.AbsolutePage = Request("pagenum") Else data.AbsolutePage = 1 End If End If %> spamBat Product Manager

Log Out

 

Page <%=data.AbsolutePage%>
<% Dim abspage, pagecnt abspage = data.AbsolutePage pagecnt = data.PageCount Dim fldF, intRec For intRec=1 To data.PageSize if data.eof then 'do nothing else%>
<% data.movenext end if next data.close set data = nothing%>
Name Purchase Date Item Name Item Number Item Price Quantity

 
<%=data("first_name")%> <%=data("last_name")%> <%=data("payment_date")%> <%=data("item_name")%> <%=data("item_number")%> $<%=data("payment_gross")%> <%=data("quantity")%> ">Details


<%Response.Write "

" & vbcrlf If abspage = 1 Then Response.Write "First Page Page" Else Response.Write "First Page" End If Response.Write " | " If abspage = 1 Then Response.Write "Previous Page" Else Response.Write "Previous Page" End If Response.Write " | " If abspage < pagecnt Then Response.Write "Next Page" Else Response.Write "Next Page" End If Response.Write " | " If abspage = pagecnt Then Response.Write "Last Page" Else Response.Write "Last Page" End If Response.Write "
" & vbcrlf %>