<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 />
Public Function DLookup(Pole As String, Tabela As String, Optional ByVal Uslov As Variant) As Variant
   On Error Resume Next
   Dim rsdl As ADODB.Recordset
   Dim strsql As String
   
   If IsNull(Uslov) Or Uslov = "" Then
      strsql = "SELECT " & Tabela & "." & Pole & " FROM " & Tabela
   Else
      strsql = "SELECT " & Tabela & "." & Pole & " FROM " & Tabela & " WHERE ((" & Tabela & "." & Uslov & "))"
   End If
   Set rsdl = cn.Execute(strsql)