Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function DioP(DioN As String) As String
Dim Br As Integer
Dim DioK As String
DioN = DioN & ","
For Br = 1 To Len(DioN)
DioK = Left(DioN, Br)
If Right(DioK,