<% '
' Vendor Listing
'
MaxRecs = 20 ' maximum records per report
ZoomURL = "Vendor.asp" ' name of zoom file. If blank none.
RunReport = (Request("RunReport")<>"")
%>
Vendor Listing
<% ' 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 ------------- %>
Vendor Listing
<%
Index = request("Index") ' The last selected Index number
StartRowId = request("Start")
oVendor.call "msg_SetHRefName", ZoomUrl
EndRowId = oVendor.call("get_RunVendorList", Index, StartRowId, MaxRecs)
%>
<% If StartRowId <>"" then %>
Previous Page
<% end if %>
<% If EndRowId <> "" then %>
Next Page
<% end if %>
New Report
<% else '-------------set up the report ------------- %>