% '
' Customer Information Drill Down Report
'
MaxRecs = 50 ' maximum records per report
ZoomURL = "CustomerReportZoom.asp" ' name of zoom file. If blank none.
RunReport = (Request("RunReport")<>"")
%>
Customer Report
<% ' 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 Information Drill Down Report
<%
Index = request("Index") ' The last selected Index number
StartRowId = request("Start")
SelStart1 = request("SelStart1")
SelStop1 = request("SelStop1")
oCustomerReport.call "msg_SetHRefName", ZoomUrl
oCustomerReport.call "msg_SetCustomer_Number", SelStart1, SelStop1
EndRowId = oCustomerReport.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 ------------- %>