<% '
' CustomerList
'
MaxRecs = 10 ' maximum records per report
ZoomURL = "Customer.asp" ' name of zoom file. If blank none.
RunReport = (Request("RunReport")<>"")
%>
<% ' LoginRights: If 1 user has full rights, if 0 or -1, browse only rights %>
<% LoginRights = request.cookies("Rights") %>
" TYPE="text/css">
<% ' DebugMode =1 ' uncomment this for page get/post debug help %>
<% If RunReport then '-------------run the report ------------- %>
Customer Listing
<%
Index = request("Index") ' The last selected Index number
StartRowId = request("Start")
oCustomer.call "msg_SetHRefName", ZoomUrl
EndRowId = oCustomer.call("get_RunCustomerReport", Index, StartRowId, MaxRecs)
%>
<% If StartRowId <>"" then %>
Previous Page
<% end if %>
<% If EndRowId <>"" then %>
Next Page
<% end if %>
New Report
<% else '-------------set up the report ------------- %>