Subversion Repositories DevTools

Rev

Rev 6827 | Rev 7003 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6827 Rev 6873
Line 143... Line 143...
143 
 
 143 
 
144 
   End Sub
 144 
   End Sub
145 
   '-----------------------------------------------------------------------------------------------------------------
 145 
   '-----------------------------------------------------------------------------------------------------------------
146 
   Public Sub Render ( aAbtnList, ByRef oAccessControl )
 146 
   Public Sub Render ( aAbtnList, ByRef oAccessControl )
147 
      Dim itemInx, itemName, nLastItemInx, btnImage, ButtonStr, ButtonStrDisabled, bIsVisibleAC, bIsActiveAC
 147 
      Dim itemInx, itemName, nLastItemInx, btnImage, ButtonStr, ButtonStrDisabled, bIsVisibleAC, bIsActiveAC
148 
      Response.write "<table cellpadding='0' cellspacing='0' width='1'><tr>"
 148 
      Response.write "<table cellpadding='0' cellspacing='0' width='1' ><tr>"
149 
 
 149 
 
150 
      For Each itemName in aAbtnList
 150 
      For Each itemName in aAbtnList
151 
         itemInx = mobjNameDefMap.Item (Cstr(itemName))
 151 
         itemInx = mobjNameDefMap.Item (Cstr(itemName))
152 
 
 152 
 
153 
         '-- Define Image
 153 
         '-- Define Image