<%
  
  Const ADMIN = -1
  Const USER = 1
  Const GUEST = 2
  
  Dim objWiz, intUserLevel
  Set objWiz = Server.CreateObject("AspWebSolution.ReportWizard2")  
  
'remove all admin capability
objWiz.IsAdmin =  False
  
intUserLevel =  CInt(Session("UserLevel"))
  
  Select  Case intUserLevel
      Case ADMIN  
          objWiz.IsAdmin =  True
          objWiz.UseReports = "Admin"
      Case USER  
          objWiz.CanEdit  =  True
          objWiz.UseReports = "HR, IT"
      Case GUEST  
          objWiz.UseReports = "Finance"
      Case  Else
          'invalid user level
          Response.Redirect (your_error_page.asp)
  End  Select
  
      
'Make sure you initialize before adding any HTML text
objWiz.Init(your_connection_string)  
  
    
'put this where you want your reports
objWiz.DisplayReports  
      
  Set objWiz =  Nothing
  
%>