<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Function KonSQL() As Boolean
    Dim Kon As ADODB.Connection
    Dim KonStr As String

On Error Resume Next
    KonStr = "Provider=SQLOLEDB;Data Source=ImeServeraILIIP;" & _
                  "Initial Catalog=IMeBaze;" & _
                  "Integrated Security=SSPI;"
    Set Kon = New ADODB.Connection
    Kon