<% '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 Products ORDER BY item_number asc" 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 item_no = data("item_number") %>
<% data.movenext end if next data.close set data = nothing%>

Item Number

Product Name

File Path

Price

Modify
<%=data("item_number")%> <%=data("product_name")%> <%=data("file_path")%> $<%=data("product_price")%> Update / "> Delete


<%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 %>