Page History

/* Create an INET_ procedure called INET_RLIST_DYN() by pasting the following code: */
Function INET_RLIST_DYN(request)
$insert inet_equates
declare function Inet_QueryParam, Inet_Rlist,Inet_Msg
*---
* Did We get a command?
*---
rtext = Inet_QueryParam(request, 'RLIST')
report_id = Inet_QueryParam(request, 'REPORT_ID')
Convert @lower.case to @upper.case in rtext
Convert @lower.case to @upper.case in report_id
varHtml = ""
Begin Case
  Case len(rtext)
    * Custom Rlist
    varHtml = Inet_rlist(request,rtext)
  Case len(report_id)
    * Canned Report
    varHtml = Inet_Rlist(request)
  Case 1
    * Error
    varHtml = Inet_Msg(request,"Attention: You did not enter an RLIST Command!")
End Case
Return varHtml